Lancer une commande DOS en VBS [Résolu]

Messages postés
2169
Date d'inscription
vendredi 20 avril 2001
Dernière intervention
30 juin 2009
- - Dernière réponse : cs_ITALIA
Messages postés
2169
Date d'inscription
vendredi 20 avril 2001
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
Dernière intervention
30 juin 2009
11
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 91 internautes nous ont dit merci ce mois-ci

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.