VBS : Script en RunAs

Pas envie de se prendre la tête pour lancer un VBS en RunAs, avec ce script, il suffit de glisser votre script à executer sur celui-ci.

On Error Resume Next
dim wshShell
set wshShell=CreateObject("Wscript.Shell")

wshShell.run("RunAs /noprofile /user:DOMAINE\CPTE_ADMIN " & Chr(34) & "cmd /c\" & Chr(34) & WScript.Arguments(0) & "\" & Chr(34) & Chr(34))
WScript.Sleep 1000
wshShell.Sendkeys ("MOT_DE_PASSE~")
Wscript.Quit

Informations à changer : DOMAINE, CPTE_ADMIN, MOT DE PASSE, et surtout laisser le "~ "à la fin du mot de passe