mdbテスト
どこかのを見ながら作成。
これで、良いかはわかりませんが。
Dim MDBName Dim Conn DIm Conn_String Dim Args, FilePath FilePath = Replace(WScript.ScriptFullName,WScript.ScriptName,"") Args = "db7.mdb" MDBName = Args Dim sAbc, aAbc(36), iLen ,i sAbc = "0123456789abcdefghijklmnopqrstuvwxyz" iLen = len(sAbc) for i = 1 to iLen aAbc(i) = mid(sAbc, i, 1 ) ' WScript.Echo aAbc(i) pass = aAbc(i) fCon(pass) next for i1 = 1 to iLen for i2 = 1 to iLen ' WScript.Echo aAbc(i1) & aAbc(i2) pass = aAbc(i1) & aAbc(i2) fCon(pass) next next for i1 = 1 to iLen for i2 = 1 to iLen for i3 = 1 to iLen ' WScript.Echo aAbc(i1) & aAbc(i2) &aAbc(i3) pass = aAbc(i1) & aAbc(i2) &aAbc(i3) fCon(pass) next next next for i1 = 1 to iLen for i2 = 1 to iLen for i3 = 1 to iLen for i4 = 1 to iLen ' WScript.Echo aAbc(i1) & aAbc(i2) & aAbc(i3) & aAbc(i4) pass = aAbc(i1) & aAbc(i2) & aAbc(i3) & aAbc(i4) fCon(pass) next next next next for i1 = 1 to iLen for i2 = 1 to iLen for i3 = 1 to iLen for i4 = 1 to iLen for i5 = 1 to iLen ' WScript.Echo aAbc(i1) & aAbc(i2) & aAbc(i3) & aAbc(i4) & aAbc(i5) pass = aAbc(i1) & aAbc(i2) & aAbc(i3) & aAbc(i4) & aAbc(i5) fCon(pass) next next next next next for i1 = 1 to iLen for i2 = 1 to iLen for i3 = 1 to iLen for i4 = 1 to iLen for i5 = 1 to iLen for i6 = 1 to iLen ' WScript.Echo aAbc(i1) & aAbc(i2) & aAbc(i3) & aAbc(i4) & aAbc(i5) & aAbc(i6) pass = aAbc(i1) & aAbc(i2) & aAbc(i3) & aAbc(i4) & aAbc(i5) & aAbc(i6) fCon(pass) next next next next next next for i1 = 1 to iLen for i2 = 1 to iLen for i3 = 1 to iLen for i4 = 1 to iLen for i5 = 1 to iLen for i6 = 1 to iLen for i7 = 1 to iLen ' WScript.Echo aAbc(i1) & aAbc(i2) & aAbc(i3) & aAbc(i4) & aAbc(i5) & aAbc(i6) pass = aAbc(i1) & aAbc(i2) & aAbc(i3) & aAbc(i4) & aAbc(i5) & aAbc(i6)& aAbc(i7) fCon(pass) next next next next next next next for i1 = 1 to iLen for i2 = 1 to iLen for i3 = 1 to iLen for i4 = 1 to iLen for i5 = 1 to iLen for i6 = 1 to iLen for i7 = 1 to iLen for i8 = 1 to iLen ' WScript.Echo aAbc(i1) & aAbc(i2) & aAbc(i3) & aAbc(i4) & aAbc(i5) & aAbc(i6) pass = aAbc(i1) & aAbc(i2) & aAbc(i3) & aAbc(i4) & aAbc(i5) & aAbc(i6)& aAbc(i7)& aAbc(i8) fCon(pass) next next next next next next next next 'on error goto 0 '--------------------------------------- function fCon(sPass) Set Conn = CreateObject("ADODB.Connection") on error resume next Conn_String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & FilePath & MDBName & "; Jet OLEDB:Database Password=" & sPass & ";" 'MDBを開く Conn.Open Conn_String if Err.Number <> 0 then WScript.Echo Err.Description WScript.Echo sPass else WScript.Echo "パスワードは" & sPass & "です。" Conn.Close Wscript.Quit end if Set Conn = Nothing end function