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 : Sélectionner tout - Visualiser dans une fenêtre à part
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