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