VBS (+PSEXEC) : Ajout utilisateur du domaine au groupe administrateur local d'une machine distante

Bonjour,

Ci-joint un petit script (associé à PSEXEC pour ajouter des droits administrateurs à un utilisateur sur une machine distante)

1°) Récuperer PSEXEC sur le PC du technicien (c:\windows\system32\psexec)
2°) 

On Error Resume Next
Const Quote = """"
dim wshShell

domain = InputBox ("Nom du domaine","Nom du domaine","Le nom de votre domaine")
login = InputBox("Nom utilisateur?")
pc= InputBox("Nom du PC")

login = domain & "\" & login
set wshShell=CreateObject("Wscript.Shell")
commandtorun=("%comspec% /k psexec \\" & pc & " net localgroup Administrateurs /add " & Quote & login & Quote)
wshShell.run (commandtorun)

Wscript.Quit

Et voilà