On Error Resume Next
dim WshShell,oArgs,FSO
set oArgs=wscript.Arguments

sUser="USER"
sPass="azdqscd+-45"& VBCRLF
sCmd=\\MonServeur\sMonRep\MonFichier.exe

set WshShell = CreateObject("WScript.Shell")
set WshEnv = WshShell.Environment("Process")
WinPath = WshEnv("SystemRoot")&"\System32\runas.exe"
set FSO = CreateObject("Scripting.FileSystemObject")
if  Not FSO.FileExists(winpath) then
    wscript.echo "Impossible de Lancer la Commande RUNAS"
   set WshShell=Nothing
   set WshEnv=Nothing
   set oArgs=Nothing
   set FSO=Nothing
   wscript.quit
end if

rc=WshShell.Run("runas /user:" & sUser & " " & CHR(34) & sCmd & CHR(34), 2, FALSE)
Wscript.Sleep 30
WshShell.AppActivate(WinPath)

WshShell.SendKeys sPass

set WshShell=Nothing
set oArgs=Nothing
set WshEnv=Nothing
set FSO=Nothing
wscript.quit

It@li@