Lancer une commande DOS en VBS [Résolu]

Messages postés
2169
Date d'inscription
vendredi 20 avril 2001
Statut
Membre
Dernière intervention
30 juin 2009
- - Dernière réponse : cs_ITALIA
Messages postés
2169
Date d'inscription
vendredi 20 avril 2001
Statut
Membre
Dernière intervention
30 juin 2009
- 11 oct. 2005 à 13:43
Comment lancer une commande DOS du type START RUN AS en VBS ?

Merci

It@li@
Afficher la suite 

1 réponse

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

Dire « Merci » 3

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

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