1 2 3 4 5 6 7 8 9 10 11 12 13
| dim net
strcomputer = inputbox("Nom de la machine a modifier le nom","Changer Mot de pass Administrateur Local","")
admin = inputbox ("Nom de l'administrateur Reseau","Changer Mot de pass Administrateur Local","")
pass = inputbox("Mot de pass administrateur Reseau","Changer Mot de pass Administrateur Local","")
npass = inputbox("Nouvelle mot de pass","Changer Mot de pass Administrateur Local","")
Set net = CreateObject("WScript.Network")
Set dso = GetObject("WinNT:")
Set oUser = dso.OpenDSObject("WinNT://" & strComputer & "/Administrateur, user", admin , pass , 1)
oUser.SetPassword npass
oUser.SetInfo
wscript.echo " Terminer" |
Partager