A method like this will work, but only IF the local administrators account is in English and has not been rennamed. There are other methods or tools that you could use or shell out to even from ScriptLogic if the names have been renamed or are in other languages. The workstations.txt file needs to be in the same folder as the script and it basically has the name of each computer you want to change, one name per line. You MUST have Admin rights on the remote system.
Sampel code, UNTESTED
Code:
Dim $Computers,$sComputer
$Computers=ReadFile(@ScriptDir+'\'+'workstations.txt')
For Each $sComputer In $Computers
If $sComputer
ChangePass($sComputer)
EndIf
Next
Function ChangePass($sComputer)
$objUser=GetObject("WinNT://" + $sComputer + "/Administrator, user")
$objUser.SetPassword("MyNew2:Pass")
$objUser.SetInfo
Exit @ERROR
EndFunction
Function ReadFile($file)
Dim $lf, $f, $_, $t
$lf=CHR(10)
$f=FreeFileHandle
$_=Open($f,$file)
If @ERROR Exit @ERROR EndIf
Do $t=$t+$lf+ReadLine($f) Until @ERROR
$_=Close($f)
$ReadFile=Split(SubStr($t,2),$lf)
EndFunction
