Lancer une commande DOS en VBSRésolu

Question

Comment lancer une commande DOS du type START RUN AS en VBS ?

Merci

It@li@

cs_ITALIA · Accepted Answer

On Error Resume Next
dim WshShell,oArgs,FSO
set oArgs=wscript.Arguments


sUser="[mailto:Administrator@steflorine.vems.valeo USER]"
sPass="azdqscd+-45"& VBCRLF
sCmd=[file://MonServeur/sMonRep/MonFichier.exe \MonServeur\sMonRep\MonFichier.exe]


set WshShell = CreateObject("WScript.Shell")
set WshEnv = WshShell.Environment("Process")
WinPath = WshEnv("SystemRoot")&"\System32unas.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@

Lancer une commande DOS en VBS

1 réponse

Discussions similaires