VBScript Password Changing for All Computers

Hi guys,

If you want to change the administrator password of your Windows clients and do not want to spend several hours working on it, I send below a script that will do this thankless job for you.

On Error Resume Next

'---===Insert your password here===---
strpassword = "T3st#"

'---===Metodos Set===---
set objComputer = GetObject("WinNT://" & "." & ",computer")
'Set the user you want change the password, in this example will be the user administrator
set objUser = GetObject("WinNT://" & "." & "/administrator, user")

'---===Password's Changing===---
objUser.SetPassword strpassword

'--------- End of Script ---------

As you can see, the password is open and it can become a problem for you. Just in order to solve that, what you can do is encrypt the VBS file using an exe called "screnc".

Having this application in your computer, open it with CMD and perform this command:

C:\> screnc.exe file.vbs file.vbe

Now, set the vbe file in a GPO and apply for all users you want to have the password changed.

See you soon guys.