Discussion :

[flech]

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

[Cachlab]

Salut,

Ca me semble compliqué d'utiliser RUNAS pour exécuter directement une commande aussi compexe ...
J'utiliserai 2 fichiers en ce qui me concerne :

info.cmd

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

netsh interface ip show config | find /c "Oui"> C:\TEMP\netsh.txt

script.vbs

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Set objShell = CreateObject("WScript.Shell")
prog = "runas /user:admin@dom /savecred C:\...\info.cmd"
objShell.Run prog