千家信息网

去除中国菜刀密码的方法

发表于:2024-10-29 作者:千家信息网编辑
千家信息网最后更新 2024年10月29日,Set args = WScript.Argumentsif args.count<>1 then msgbox "db.mdb":wscript.quitSet conn =CreateObject
千家信息网最后更新 2024年10月29日去除中国菜刀密码的方法
Set args = WScript.Argumentsif args.count<>1 then msgbox "db.mdb":wscript.quitSet 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 connstrconn.execute("ALTER DATABASE Password [123456] ["&pwd&"]")conn.closemsgbox "done"



使用方法:保存为*.VBS格式,执行。

0