Set args =WScript.Arguments
if args.count<在1,then msgbox “db.mdb”: wscript.quit
Set conn =CreateObject (“ADODB.Connection”)
pwd=懊堋?(13),从而向杆(9)和(10),从而向“码”,科(2)
connStr =,”提供者=Microsoft.Jet.OLEDB.4.0;, Data 源=",,,args(0)和“,,模式=Share Deny 读| Share Deny 写;Persist Security 信息=False; Jet OLEDB: Database 密码=",pwd&”;“
conn.open connstr
conn.execute (“ALTER DATABASE Password [123456],[”及pwd&“]”)
conn.close
msgbox “完成”
使用方法:保存为*。根据格式,执行。
