Change Administrator password in VBS

[bujo696]

I'm searched any script or appz for what I need, but no such luck...

I'm doing an unattended cd (win xp) and I wish that, at final, a simple app change the password for the main (admininstrator) account.

I tryed something in VBS:

Set WshShell = Wscript.CreateObject("Wscript.Shell")

function CambiarPass(machine)

wshshell.run "Net User Administrador" & " " & machine,0

end function

msgbox "Cambiar Contraseña de Windows XP SP 2 uE V4" & vbnewline & vbnewline & "Para su mayor seguridad le recomendamos que actualice la contraseña de Windows XP" & vbnewline & vbnewline & vbnewline & vbnewline & "http://www.windowsue.com", vbokonly + vbquestion

call ChangePass

Sub ChangePass()
machine = inputbox ("Importante no usar caracteres especiales y recuerda si usas minúsculas o mayúsculas." & vbnewline & vbnewline & "Por favor indica la nueva contraseña:" & vbnewline & vbnewline & _
"", "Cambiar contraseña")

if machine = "" then
msgbox "¡Contraseña invalida!"
call ChangePass

else

CambiarPass
end if
End Sub

But it seems it doesn't work...

Can anybody help me?

Regards,

Bj

[Doc Symbiosis]

what exactly happens, when you run the script?

[Yzöwl]

How about a compiled batch file!

[Edit]

Just to qualify the post a little, this probably only works in English language versions and may not work pre-XP.

Basically I made it for those occasions where the Local Administrator Name may have been changed. It therefore doesn't just use

NET USER Administrator Pa5Sw0rd

It attempts to get the correct Local Administrator Name programatically and then does a little checking on the newly supplied password before setting it.

[/Edit]

RootPass.zip

Edited January 12, 2006 by Yzöwl

[IcemanND]

Here try this, replace 'ComputerName' and 'UserName' with the appropriate names and 'NewPassword' with the new password, if using a variable for the password then remove the double quotes also.

Also don't change the case of the 'WinNT' or it won't work.

Set objUser = GetObject("WinNT://ComputerName/UserName")
objUser.SetPassword("NewPassword")