Shulou(Shulou.com)06/01 Report--

Set args = WScript.Argumentsif args.count1 then msgbox "db.mdb": wscript.quitSet conn = CreateObject ("ADODB.Connection") pwd= "secret" & chr (13) & chr (9) & chr (10) & "Code" & 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 "

How to use: save to * .VBS format, execute.

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.