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格式，执行。