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
strComputer = "." sUser = "YourUser" sPwd = "!NewCompl3xP@ssword!" Set objUser = GetObject("WinNT://" & strComputer & "/" & sUser & ", user" ) objUser.SetPassword sPwd objUser.SetInfo
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