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
时间: 2024-12-14 18:04:45