Runas avec ipconfig /release /renew

[Kiwinovich]

Bonjour à tous,

Je cherche à faire un petit script suite à quelques problème de dhcp pour " exécuter en tant que "runas" et ainsi exécuter une commande ipconfig /release et ipconfig renew".

J'ai trouvé la commande runas :

Code :

1
2
3
4
5
6
7
 set WshShell = WScript.CreateObject("WScript.Shell" ) 
 
WshShell.run "runas /user:Admin %comspec%"  
WScript.Sleep 1000 
WshShell.SendKeys "password" 
WshShell.SendKeys "{ENTER}"
WScript.Sleep 1000

Et n'étant pas un pro dans ce domaine je ne vois pas comment intégrer ipconfig dans la commande.

Est-ce que vous auriez une solution ?

Je vous en remercie d'avance

[hackoofr]

Testez ce code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim Ws,WshEnv,WinPath,sUser,sPass,sCmd,rc
sCmd ="cmd /c ipconfig /release & ipconfig /flushdns & ipconfig /renew"
set Ws = CreateObject("WScript.Shell")
set WshEnv = Ws.Environment("Process")
WinPath = WshEnv("SystemRoot")&"\System32\runas.exe"
sUser = WshEnv("USERNAME")
sPass="Votre mot de passe"& VBCRLF 'Modifiez cette ligne par votre mot de passe
rc=Ws.Run("runas /user:" & qq(sUser) & " " & qq(sCmd),2,FALSE)
Wscript.Sleep 1000
Ws.AppActivate(WinPath)
Ws.SendKeys sPass
 
Function qq(strIn)
qq = Chr(34) & strIn & Chr(34)
End Function