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 |
Partager