Script - Reset Local Admin Password

[Bert_D]

Looks up the name of the Local Administrator and resets the password.

Rem: You need to add the password as a parameter.
Rem: If you do not add a password parameter, the password is default set to: !NewCompl3xP@ssword!

Rem: Copy the code below and save it as Reset_Local_Admin_Password.vbs at the {PackageShare}\Scripts folder

On Error Resume Next
strComputer = "."

Set oShell = CreateObject("WScript.Shell") 
sUser = "Administrator" 
sPwd = "!NewCompl3xP@ssword!" 

Set Arg = WScript.Arguments
If  Arg.Count > 0 Then
sPwd = Arg(0) 'Pass the password as parameter to the script
End if

'Get the administrator name
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_UserAccount Where LocalAccount = True")
For Each objItem in colItems
	sidAdmin = objItem.SID
	if trim(right(sidAdmin, 3)="500") and trim(left(sidAdmin,9)="S-1-5-21-") then
		
		'Echo = echo & "Name: " & objItem.Name & vbcrlf
		'Echo = echo & "SID: " & sidAdmin
		sUser =  objItem.Name
		Set oUser = GetObject("WinNT://" & strComputer & "/" & sUser) 
		 
		' Set the password 
		oUser.SetPassword sPwd 
		oUser.Setinfo 
		
		exit for
	end if
Next

[cNone]

Hello,

Thanks for the script but I coludn't made it work. I can send commands via webui but this script isn't working and gives the browser configuration error. Default actions are working but not this one. Am I missing something?

Thanks in advance.

[Florian_Eigsi]

Hi,

I just launch one command :

net user Administrateur YourPassword /active:yes

No vbs needed

[CyberCitizen]

Florian_Eigsi wrote:
Hi,

I just launch one command :

net user Administrateur YourPassword /active:yes

No vbs needed

I do something similar as when I joined this company the local admin password was set randomly on machines and not on others, it was a real hassle when we would get machines back having to bypass the login all the time.

So we pushed this out to every machine but also added it to our SOE.

net user administrator PASSWORD /active:yes
net accounts /MaxPWAge:UNLIMITED
net user Administrator /expires:never
REG ADD HKLM\Software\Lansweeper /v AdminAcctEnabled /t REG_DWORD /d 1

The last command is so we can report on those that have had the password set correctly, if not, we can re-deploy it via a scheduled report or some other means.

[sreejith]

Hi ,

How to rename user account

[warlock1663]

Hi,
I know this feed is pretty old but I hope someone sees this.

Can this be used on certain OU's or will it change every password in active directory?

Thanks

[tmcmanus3385]

gotcha. I"m new to scripts and didn't catch the original script looked the administrators name up. I thought it was changing the password for the account named Administrator. I will give this a try. thanks

[Bert_D]

I'm not sure what you are trying to do there...
If you know the name of the user you are trying to change, don't make it too hard on yourself

On Error Resume Next
strComputer = "."

Set oShell = CreateObject("WScript.Shell")
sUser = "scc2"
sPwd = "newpasswordhere"

Set oUser = GetObject("WinNT://" & strComputer & "/" & sUser)    
oUser.SetPassword sPwd 
oUser.Setinfo 

[tmcmanus3385]

We have a local admin account named scc2 and its a local admin account. I'm trying to edit this script and use it to change the password for this account on all our computers on campus. I changed the password, username and sid where needed, but its not changing the scc2 password, but it does change the local Admin account's password. I thought that was strange considering the username changed in script. I changed the password and SID in script below for security reasons, but this is basically what I'm using. I"m rookie at scripts and could use the help. Any ideas on why its not changing the password for co-optech?

On Error Resume Next
strComputer = "."

Set oShell = CreateObject("WScript.Shell")
sUser = "scc2"
sPwd = "newpasswordhere"

Set Arg = WScript.Arguments
sPwd = Arg(0) 'Pass the password as parameter to the script

'Get the administrator name
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_UserAccount Where LocalAccount = True")
For Each objItem in colItems
sidAdmin = objItem.SID
if trim(right(sidssc2, 3)="1001") and trim(left(sidAdmin,9)="S-1-5-21-333333333-22222222-111111111-1001")

then

'Echo = echo & "Name: " & objItem.Name & vbcrlf
'Echo = echo & "SID: " & sidscc2
sUser = objItem.Name
Set oUser = GetObject("WinNT://" & strComputer & "/" & sUser)

' Set the password
oUser.SetPassword sPwd
oUser.Setinfo

exit for
end if

[Bert_D]

Yes that's possible, you will need to change the script a little to look up the hostname and add it to your password.