[データベースを作成する]

test.mdb を作成します。

【ソースコード】

[tips0145.vbs]
Option Explicit
On Error Resume Next

Dim strDbName   ' データベース名
Dim objCatalog  ' カタログ情報

strDbName = "test.mdb"
Set objCatalog = WScript.CreateObject("ADOX.Catalog")
If Err.Number = 0 Then
    objCatalog.Create _
        "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & strDbName
    If Err.Number = 0 Then
        WScript.Echo "データベースを作成しました。"
    Else
        WScript.Echo "エラー：" & Err.Description
    End If
Else
    WScript.Echo "エラー：" & Err.Description
End If

Set objCatalog = Nothing

【実行結果】

C:\> cscript //NoLogo tips0145.vbs
データベースを作成しました。