Lancer une commande DOS en VBS [Résolu]

Signaler
Messages postés
2169
Date d'inscription
vendredi 20 avril 2001
Statut
Membre
Dernière intervention
30 juin 2009
-
Messages postés
2169
Date d'inscription
vendredi 20 avril 2001
Statut
Membre
Dernière intervention
30 juin 2009
-
Comment lancer une commande DOS du type START RUN AS en VBS ?

Merci

It@li@

1 réponse

Messages postés
2169
Date d'inscription
vendredi 20 avril 2001
Statut
Membre
Dernière intervention
30 juin 2009
8
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\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@
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 123 internautes nous ont dit merci ce mois-ci