Lancer une commande DOS en VBS [Résolu]

cs_ITALIA 2169 Messages postés vendredi 20 avril 2001Date d'inscription 30 juin 2009 Dernière intervention - 11 oct. 2005 à 09:38 - Dernière réponse : cs_ITALIA 2169 Messages postés vendredi 20 avril 2001Date d'inscription 30 juin 2009 Dernière intervention
- 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

cs_ITALIA 2169 Messages postés vendredi 20 avril 2001Date d'inscription 30 juin 2009 Dernière intervention - 11 oct. 2005 à 13:43
+3
Utile
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@
Cette réponse vous a-t-elle aidé ?  

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.