Changing local admin password, domain wide

[Steve]

Is there a way to change the local admin password for
every machine in the domain without having to go to each
one individually.

 

[Johan Arwidmark]

You can do it using a script and the net user command....
In this example i have used the psexec.exe tool from sysinternals
(freeware) to launch net user remotely (you of course need to be
domain admin to run this...)

In the below example I assume that the computer accounts are in the
Sales OU and that psexec.exe file is in the os path.

**********************

Set objShell = WScript.CreateObject("WScript.Shell")

Set objOU = Getobject("LDAP://ou=Sales,dc=lcab,dc=net")

For each obj in objOU

strSetPassword = "psexec \\" & obj.cn & " net user
Administrator P@ssw0rd"
Set objSetPassword = objShell.exec(strSetPassword)

Next

*************************


regards
Johan Arwidmark

Windows User Group - Nordic
http://www.wug-nordic.net

 

[Matjaz Ladava [MVP]]

I use
http://www.danish-company.com/dcwcm/page/{4D40EC77-0788-48E7-9FB6-B81A51F70CD2}.html
and it works.

--

Regards

Matjaz Ladava, MCSA, MCSE, MCT, MVP
Microsoft MVP Windows Server - Active Directory
(e-mail address removed), (e-mail address removed)

 

[Steve]

Thank you. That is exaclty what I was looking for.