Exécution programme avec script

**JC_Huys** · 10/12/2011, 09h53

Bonjour,

Désolé pour ma question très basique, mais je suis débutant complet en VBscript.

J'ai besoin de faire un petit programme très simple, mais je ne m'en sors pas, malgré toute les informations présente sur ce forum...

Je cherche simplement à appeler un programme avec un script associé, et de passer des arguments (via la fonction inputbox) au script associé au programme appelé.

Par rapport aux infos récoltées, mon code est le suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Dim oShell, oExec, IC, SOFTPath, ScriptPath
 
SOFTPath = C:\chemin\programme.exe
ScriptPath = C:\chemin\SCRIPT.txt
 
INPUT = inputbox ("Valeur ? = ")
 
Set oShell = CreateObject("WScript.Shell")
 
Set oExec = oShell.Exec ("""" & SOFTPath & """ """ & ScriptPath & """ 
""" & INPUT & """")
 
Do While oExec.Status=0
	WScript.Sleep 100
Loop

Evidemment, ça me marche pas... ce bout de code doit paraître bien naïf, mais je n'arrive plus à avancer... quelqu'un pourrait-il me donner un coup de pouce ?

Merci beaucoup,

JC

PS : j'utilise Windows 7

**hackoofr** · 10/12/2011, 12h57

il y quoi dans le Script.txt

Donc a première vue :
dans ces deux lignes il manque les doubles quotes "

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
SOFTPath = C:\chemin\programme.exe
ScriptPath = C:\chemin\SCRIPT.txt

donc ajoute "

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
SOFTPath = "C:\chemin\programme.exe"
ScriptPath = "C:\chemin\SCRIPT.txt"

**hackoofr** · 10/12/2011, 13h27

essayer cet exemple en ajoutant un MsgBox pour récuperer la commande à exécuter :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 Dim oShell, oExec, IC, SOFTPath, ScriptPath
SOFTPath = "Cmd /k"
ScriptPath = "calc.exe"
 
INPUT = inputbox("Valeur ? = ")
 
Set oShell = CreateObject("WScript.Shell")
MsgBox SOFTPath & " " & ScriptPath & " " & INPUT
Set oExec = oShell.Exec ( SOFTPath & " " & ScriptPath & " " & INPUT)
 
Do While oExec.Status=0
	WScript.Sleep 100
Loop

**JC_Huys** · 10/12/2011, 14h35

Merci pour ta réponse... ça m'a permis de comprendre quelques mécanismes, mais ça ne fonctionne toujours pas...

Plus précisément, ce que je souhaite faire est appeler le logiciel R, avec un script de traitement statistique (*.R), auquel je passerais des variables via l'inputbox.

Mais je n'y arrive toujours pas...

J'ai fait évolué le code tel que :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Dim oShell, oExec, INPUT, RcmdPath, Rcmd, RScriptPath
 
RcmdPath = "Program Files\R\R-2.13.1\bin\i386\"
Rcmd = "Rcmd.exe"
RScriptPath = "C:\Users\Documents\ESSAISCRIPT.R"
 
INPUT = inputbox ("INPUT = ")
 
Set oShell = CreateObject("WScript.Shell")
 
MsgBox & RScriptPath " " & INPUT
 
Set oExec = oShell.Exec (cd \)
Set oExec = oShell.Exec (cd RcmdPath &)
Set oExec = oShell.Exec ( & Rcmd & " "open" """ & RScriptPath """ " & INPUT	 )
 
Do While oExec.Status=0
	WScript.Sleep 100
Loop

Ce que je voudrais faire pour commencer, c'est arriver à aller via le prompt DOS dans le chemin :
Program Files\R\R-2.13.1\bin\i386\
puis exécuter :
Rcmd.exe open "C:\Users\Documents\ESSAISCRIPT.R"

J'ai aussi essayé avec la fonction run, mais je bloque également...

Ensuite, le passage des arguments dans R sera la seconde étape...

Merci beaucoup pour l'aide !

JC

**hackoofr** · 10/12/2011, 16h50

Essayez ce code et dis-moi ca donne quoi comme résultat ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim oShell,Com,Command,Resultat
Set oShell = CreateObject("WScript.Shell")
INPUT = inputbox("Valeur ? = ")
Com = "cmd /K CD c:\Program Files\R\R-2.13.1\bin\i386\ & Rcmd.exe open C:\Users\Documents\ESSAISCRIPT.R"
Command = Com & " " & Input
Msgbox command,64,"Commande a executer"
Resultat = oShell.run(Command,1,True)

**JC_Huys** · 10/12/2011, 19h29

Merci, on doit pas être loin de la solution.
Le chemin n'est pas reconnu, mais c'est peut-être à cause la syntaxe d'appel du logiciel.
Je vais encore faire quelques essais. Si je galère trop, peut-être qu'un nouveau (et j'espère dernier) post suivra.

Un grand merci en tout cas,

JC

**JC_Huys** · 10/12/2011, 21h07

Je pense que j'y suis presque, c'est juste un problème de syntaxe pour l'objet com.

J'obtiens le message d'erreur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
La syntaxe du nom de fichier, de répertoire ou de volume est incorrecte

Le code est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Com = "cmd /K cd \" & "cd Program Files\R\R-2.13.1\bin\i386\" & "Rcmd open """"C:\Users\Documents\ESSAISCRIPT.R"""""

et si je le faisais manuellement, je ferais :
1. cmd /K
2. cd \
3. cd Program Files\R\R-2.13.1\bin\i386\
4. Rcmd open "C:\Users\Documents\ESSAISCRIPT.R"

(testé, ça marche)

Je me demande si le problème ne vient pas du fait qu'il faille mettre "" pour appeler le script.

**hackoofr** · 10/12/2011, 23h05

Avec ceci ça donne quoi comme résultat ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim oShell,Com,Command,Resultat
Set oShell = CreateObject("WScript.Shell")
INPUT = inputbox("Valeur ? = ")
Com = "cmd /K CD \ & CD %ProgramFiles%\R\R-2.13.1\bin\i386\ & Rcmd.exe open C:\Users\Documents\ESSAISCRIPT.R"
Command = Com & " " & Input
Msgbox command,64,"Commande a executer"
Resultat = oShell.run(Command,1,True)

ou bien avec ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim oShell,Com,Command,Resultat
Set oShell = CreateObject("WScript.Shell")
INPUT = inputbox("Valeur ? = ")
Com = "cmd /K CD \ & CD ""c:\Program Files\R\R-2.13.1\bin\i386\"" & Rcmd.exe open C:\Users\Documents\ESSAISCRIPT.R"
Command = Com & " " & Input
Msgbox command,64,"Commande a executer"
Resultat = oShell.run(Command,1,True)

**JC_Huys** · 11/12/2011, 09h28

Merci de ta réponse et de ta patience !!!!

Non, définitivement ça n'y est encore pas. Je pense vraiment que le problème vient de la gestion des double quote.

Pour que ça marche manuellement, il faut vraiment qu'ils y soient lors de la déclaration du chemin du script R :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Rcmd.exe open "C:\Program Files\R\R-2.13.1\bin\ESSAISCRIPT.R"

Je pense que ces double quote sont mal exprimés dans le script.

J'ai essayé de le changer un peu, pour essayer de les indiquer plus facilement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Dim oShell,Com,Command,Resultat, SCRIPT
Set oShell = CreateObject("WScript.Shell")
INPUT = inputbox("Valeur ? = ")
SCRIPT = "" "C:\Program Files\R\R-2.13.1\bin\ESSAISCRIPT.R" ""
Com = "cmd /K CD \ & CD ""c:\Program Files\R\R-2.13.1\bin\i386\"" & Rcmd.exe open & SCRIPT"
Command = Com & " " & Input
Msgbox command,64,"Commande a executer"
Resultat = oShell.run(Command,1,True)

Mais dans ce cas, le VBS plante....

Si j'essaye avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
SCRIPT = "C:\Program Files\R\R-2.13.1\bin\ESSAISCRIPT.R"

'SCRIPT' n'est pas reconnu en tant que commande interne...

**hackoofr** · 11/12/2011, 09h39

Tu as changer le chemin de votre script ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Rcmd.exe open "C:\Program Files\R\R-2.13.1\bin\ESSAISCRIPT.R"

en

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Rcmd.exe open "C:\Users\Documents\ESSAISCRIPT.R"

Donc il y a un problème de quotes et d'espaces je crois donc pour ne pas faire plus simple copie ton script et le RCmd dans votre dossier système et essayer dans ce chemin

**JC_Huys** · 11/12/2011, 10h00

oui, justement, j'avais aussi essayé en mettant tout dans le même chemin, pour simplifier.
En tout cas, le problème doit bien venir de la.
Je vais encore un peu bidouiller, ça devrait bien finir par marcher !!!
Merci beaucoup,

JC

**hackoofr** · 11/12/2011, 11h01

Est-ce-que vous avez une documentation sur cette Commande Externe Rcmd.exe ? pour voir mieux les paramètres à passer et comment utiliser un script de connexion ; si oui poste nous le lien.
et c'est quoi votre environemment de travail ?

**ProgElecT** · 11/12/2011, 11h38

Salut

Peut être utiliser Chr(34) à la place de ", l'interprétation est quelque fois mieux comprise par le compilateur.

**JC_Huys** · 11/12/2011, 20h30

Hello,

OK, merci beaucoup, je vais essayer de m'en sortir avec tout ça.
Je vous dirais quel était le pb lorsque je l'aurais résolu (si j'y arrive.... :-) )

Bonne soirée,

JC

Exécution programme avec script

VBScript

Discussions similaires

Partager

Partager