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