Such a good solution - thank you!

I tried this script deployment executes fine but the password is not changing if the built in admin account is disabled and new local admin account has been created. Please let us know how to proceed in this situation

This script is designed to change the password of the default LocalAccount.

If you want to change the password of a user, you could try something like this.
(FYI: I'm assuming you know the username)




FYI: This is semi-tested code

If you send the password as an Arg, is it sent in a secure fashion?

No it is not.
To make it more secure, you could add an decryption method to the script and pass the password encrypted.

In the end, the script will still be readable by everyone who has access to the share where the file resides.

We have thin clients not on the domain and locked down pretty tight as far as remote access, each thin client has a password specific to itself based on the Host Name, but all usernames are the same, could I possibly use this script to change the password for all those thin clients? Our password is my%hostname%password, could I just put that variable in the script?

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

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

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

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

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

Hi ,

How to rename user account

Hi,

I just launch one command :



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.

Hi, Could you please share how we could achieve this. (Sending an encrypted password and then decrypting it at the workstation.

Thanks.

Microsoft has you covered with LAPS:
https://www.microsoft.com/en-us/...ad/details.aspx?id=46899