MDBのテーブル名一覧取得

Ruby

るびまのソースを参考に
MSDNでADOのリファレンスを探してきてなんとか

require 'win32ole'

filename = "mdbのファイル名"
connection= WIN32OLE.new("ADODB.Connection")
connstr = "DRIVER={Microsoft Access Driver (*.mdb)};Dbq=#{filename}"
connection.Open(connstr)

catalog= WIN32OLE.new("ADOX.Catalog")
catalog.ActiveConnection = connection
tables = catalog.Tables

for i in 0...tables.Count
  puts tables.Item(i).Name
end

connection.close