Script to change admin pwd - 31 machines

[Tom]

Hello,
I have a small network of 31 machines, all of which are running Windows XP
Pro. I would like to change the administrator password as well as my own. I
created my own username and made it an admin account so we don't use the
built in account. I have not changed the pwd in quite a while and it is
time. I am looking for a script I can run from either our server (running
server 2003) or any local machine which will change both passwords, rather
than having to go to each machine.
Can anyone give me such a script or point me to a place on the web I might
find one?
Thanks in advance.

 

[Torgeir Bakken (MVP)]

Hello,
I have a small network of 31 machines, all of which are running Windows XP
Pro. I would like to change the administrator password as well as my own. I
created my own username and made it an admin account so we don't use the
built in account. I have not changed the pwd in quite a while and it is
time. I am looking for a script I can run from either our server (running
server 2003) or any local machine which will change both passwords, rather
than having to go to each machine.
Can anyone give me such a script or point me to a place on the web I might
find one?
Thanks in advance.

Hi

Here are some input/alternatives, all is command line except 7 (GUI) and 8
(ADSI\VBScript):

1)
Changepw from http://www.joeware.net
(set passwords on accounts on remote domains or machines)
http://home.earthlink.net/~joewarenet/win32/zips/Changepw.zip


2)
CryptPwd.exe
http://www.jsiinc.com/dl/cryptpwd.zip
http://www.jsiinc.com/suba/tip0300/rh0349.htm


3)
"A better method for changing the local Administrator password on all your
workstations, without traveling"
Tip 2501 at http://www.jsiinc.com/reghack.htm


4)
NETUSER.EXE by Matt Bobowski
http://www.jsiinc.com/dl/NETUSER.EXE


5)
PsPasswd.exe in the free PsTools suite
http://www.sysinternals.com/


6)
CUsrMgr.exe, in MS Win 2k Resource Kit


7)
DCPC (DC PasswordChanger, free, looks like it has a GUI)
http://www.danish-company.com/
(look under Tools)


8)
With a VBScript:

sComputer = "SomeComputerName"
On Error Resume Next
Set oUser = GetObject("WinNT://" & sComputer & "/Administrator, user")
If Err.Number = 0 Then
oUser.SetPassword "testpassword"
oUser.SetInfo
Else
Wscript.Echo "Could not connect to " & sComputer
End If