vbs 修改Administrator帐号密码

Dim WshShell, oExec
Set wshShell = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objInputFile = objFSO.OpenTextFile("D:\PS_Exchange\test\computer.txt",1)
do until objInputFile.AtEndofStream
strcomputer = objInputFile.ReadLine
Set objUser = GetObject("WinNT://" & strComputer & "/Administrator, user")
objUser.SetPassword "new password"
objUser.SetInfo
loop