Dim WshShell, oExec

Set wshShell = CreateObject("WScript.Shell")

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objInputFile = objFSO.OpenTextFile("D:\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