RUN avec un argument pour l'application lancée

Question

Bonjour,
Je désire créer un VBS pour lancer un exe. Ca j'arrive à le faire
set oShell = wscript.createobject("wscript.shell")
Set ScriptAppli = CreateObject("WScript.Shell")
ScriptAppli.Run "\Serveur12\MAJ.exe"
Ce fichier MAJ.exe attend un paramètre, une date.

A l'heure actuelle on a un BATCH qui se présente comme ça:
START /WAIT MAJ.exe -date 13/07/2017

Le paramètre de la date est indiqué à la fin. Comment puis je faire la même chose en VBS ?
Merci pour votre aide. N'hésitez pas à détailler la réponse.

cs_JMO · Answer

Bonjour,

Je n'ai pas fait de vbs depuis de nombreuses années mais
 
Dim WshShell, objArgs
Set WshShell = WScript.CreateObject("WScript.Shell")
Set objArgs = WScript.Arguments
If objArgs.Count = 1 Then 
    MsgBox FnBatch(objArgs(0))
Else
   MsgBox "ce script doit être lancé avec ....." 
End If
Set WshShell = Nothing
Set objArgs = Nothing

Function FnBatch(arg1)
   FnBatch = "argument -> " & arg1
End Function

Via invite de commandes "monscript.vbs 20/07/2017"

ou peut-être
Dim WshShell, objArgs
Set WshShell = WScript.CreateObject("WScript.Shell")
Set objArgs = WScript.Arguments
If objArgs.Count = 1 Then 
   WshShell.Run "\Serveur12\MAJ.exe " & objArgs(0)
Else
   MsgBox "ce script doit être lancé avec ....." 
End If
Set WshShell = Nothing
Set objArgs = Nothing
jean-marc

RUN avec un argument pour l'application lancée

1 réponse

Votre réponse

Discussions similaires