change local admin password and name

[Landon]

I want to change the admin name and password because there is someone leaving our Tech group. I want to change the local admin password on all out machines in AD. I am an admin in our OU and have an admin account on all the machines. I have also got all the current computer names. I wans to change the admin password and admin name and be able to log successes and failures. I think that the below will change the local admin password but how can I change the name and log the results?

On Error Resume Next
Set DomObj = GetObject("WinNT://Domain/Computer/Administrator,User")
DomObj.SetPassword "pswd"

Thanks for any help

[Big Fish]

Try to run the below vbs script on all the machines that are within this OU using Group Policy Logon Scripts and see if that helps:

' Script Begin
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colAccounts = objWMIService.ExecQuery _
("Select * From Win32_UserAccount Where LocalAccount = True And Name =
'Administrator'")
For Each objAccount in colAccounts
objAccount.Rename "NewAdmin"
Next

Dim WshShell, oExec
Password ="P@ssw0rd"
strCommand = "net user NewAdmin " & Password
Set WshShell = CreateObject("WScript.Shell")
Set oExec = WshShell.Exec(strCommand)
Do While oExec.Status = 0
WScript.Sleep 100
Loop
' Script End

[Landon]

Thanks alot for the script, I will test it asap. But how do I verify that all have ran it, instead of taking a sample of machines and try to log in with the new name and password? Thanks.

[Gusgr8]

Check the below script that will change your local Administrators passwords to the one you specify. (Note that you'll need to encrypt this one using Microsoft script encrypter if your users shouldn't be able to read it in clear text.)

Set WshNetwork = WScript.CreateObject("WScript.Network")
strComputer = "."
Set objUser = GetObject("WinNT://" & strComputer & "/Administrator,user")
objUser.SetPassword "NEW.PASSWORD" ' Enter new password between brackets
objUser.SetInfo

Some more information here - http://support.microsoft.com/kb/198642