Exécution programme avec script

Version imprimable

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:

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

10/12/2011, 12h57
hackoofr
:salut:
il y quoi dans le Script.txt :koi:
Donc a première vue :
dans ces deux lignes il manque les doubles quotes "
Code:

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

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

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

Code:

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

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:

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

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

Code:

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)

10/12/2011, 19h29
JC_Huys

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
10/12/2011, 21h07
JC_Huys
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:

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

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.

Avec ceci ça donne quoi comme résultat ?

Code:

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:

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)

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:

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:

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:

1 2 SCRIPT = "C:\Program Files\R\R-2.13.1\bin\ESSAISCRIPT.R"
'SCRIPT' n'est pas reconnu en tant que commande interne...

:?

11/12/2011, 09h39
hackoofr

Tu as changer le chemin de votre script ?

Code:

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

en

Code:

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
11/12/2011, 10h00
JC_Huys

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
11/12/2011, 11h01
hackoofr

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 ?
11/12/2011, 11h38
ProgElecT

Salut

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

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