Runas avec ipconfig /release /renew

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

:salut:
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

---