菜刀Access数据库去除密码小工具

菜刀数据库去密码脚本

代码如下：

Set args = WScript.Arguments
if args.count<>1 then msgbox "need file":wscript.quit
Set conn =CreateObject("ADODB.Connection")
pwd="密"&chr(13)&chr(9)&chr(10)&"码"&chr(2)
connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & args(0)&" ;Mode=Share Deny Read|Share Deny Write;Persist Security Info=False;Jet OLEDB:Database Password="&pwd&";"
conn.open connstr
conn.execute("ALTER DATABASE Password [123456] ["&pwd&"]")
conn.close
msgbox "done"

保存为去密码.vbs即可，将数据库直接托上去就可去除密码