'Option Explicit
'
'------------------------------------------------------------------------------
' 
' MDBファイルをVBSにドロップすると
' ドロップするMDBファイルと同じフォルダにTextFileにテーブル一覧が出力されます。
' テキストファイル名はMDBに更にTXTを追加する形・・・手抜きですスミマセン
' 
'------------------------------------------------------------------------------
' This value indicates that the QueryType is requesting information about the tables on the server.
    Dim adSchemaTables
    Dim DbOpenUser
    Dim DbOpenpass
    Dim DropFileName
    Dim OutFile
    Dim FsObj
    Dim conn
    Dim Rst
    Dim Prov
'
'------------------------------------------------------------------------------
' 初期値設定
'------------------------------------------------------------------------------
    adSchemaTables  = 20
'
'------------------------------------------------------------------------------
'* ファイル名取得処理
'------------------------------------------------------------------------------
'On Error Resume Next
    DropFileName    = wscript.arguments(0)                                       ' ドロップファイル名取得
    Set FsObj       = CreateObject("Scripting.FileSystemObject")
    Set OutFile     = FsObj.CreateTextFile(DropFileName & ".txt", True)
    Prov            = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ= " & DropFileName
    set conn        = createobject("ADODB.Connection")
    conn.Open Prov
    Set Rst         = conn.OpenSchema(adSchemaTables)
    Do Until Rst.EOF
        If Rst("TABLE_TYPE") = "TABLE" Then
            OutFile.WriteLine(Rst("TABLE_NAME"))
        End If
        Rst.MoveNext
    Loop
    Rst.Close
    conn.Close
    OutFile.Close
    Set FsObj       = Nothing
    Set conn        = Nothing
    Set OutFile     = Nothing
    Set Rst         = Nothing
'On Error GoTo 0
msgbox