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