Pbl de droit admin pour lancer script
Bonjour,
Je souhaite utiliser ce script avec des droit admin.
Le problème vient de la commande runas que j'utilise mal.
Help, je n'ai pas d'erreur au lancement
Merci d'avance
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
|
objShell.Run "runas / & log_user & / & passwd & %comspec% /c netsh interface ip show config | find /c ""Oui""> C:\TEMP\netsh.txt"
Wscript.Sleep 3000
Set dhcp_file = objFSO.OpenTextFile("C:\TEMP\netsh.txt", 1)
Do Until dhcp_file.AtEndOfStream
etat_dhcp = dhcp_file.ReadLine
Loop
If etat_dhcp = 1 Then
MsgBox "IP déjà en Dhcp"
Else
objShell.Run "runas / & log_user & / & passwd & %comspec% /c netsh interface ip set address name= ""Connexion au réseau local"" dhcp"
Wscript.Sleep 7000
objShell.Run "runas / & log_user & / & passwd & %comspec% /c netsh interface ip set dns name= ""Connexion au réseau local"" dhcp"
MsgBox "IP statique passé en Dhcp"
End If
WScript.Quit |