Change Local Administrator Password on Windows XP and 2000 Computers

Add the script below as Startup Script of the domain computers.

Set WshNetwork = WScript.CreateObject("WScript.Network")
strComputer = "."
Set objUser = GetObject("WinNT://" & strComputer & "/Administrator,user")
objUser.SetPassword "new.password" ' <-- new admin password.
objUser.SetInfo