récupérer le résultat d'un script

c'est un problème semblable à celui là mais c'est pas pareil :)

j'ai besoin d'appeler un script VBS depuis un autre script. Le script appelé est censé retourner un chaîne de caractères, ça ressemble à ça :

l'appelant

Code:

---

1 2	Set ShellObject = CreateObject("Wscript.Shell") ShellObject.Run "monScript.vbs /a=1"

---

monScript.vbs

Code:

---

1 2 3 4 5

Main   Function Main Main = "toto" End Function

---

je cherche donc à récupérer "toto" dans un variable dans le script appelant

Merci d'avance pour votre aide :)

J'ai trouvé un truc.

Je le met là car ça peut aider des gens.

J'ai fait 2 fichiers VBS

Pong.vbs

Code:

---

1 2 3 4

Dim oArgs Set oArgs = WScript.Arguments   WScript.Echo "On m'a dit de dire : " & oArgs(0)

---

Et enfin ping.vbs

Code:

---

1 2 3 4 5 6 7 8

Set oArgs = WScript.Arguments ' tableau d'arguments   WScript.Echo "Ping a dit : " & oArgs(0) Set myShell = CreateObject("WScript.Shell") Set exec = myShell.exec("cscript //nologo pong.vbs Hello") str = exec.StdOut.ReadAll()   WScript.Echo str

---

Et en résultat, j'ai eu ça

Citation:

---

D:\Test>ping.vbs bonjour
Microsoft (R) Windows Script Host Version 5.6
Copyright (C) Microsoft Corporation 1996-2001. Tous droits réservés.

Ping a dit : bonjour
On m'a dit de dire : Hello

---

En espérant que ça t'aide.

:ave: exactement ce qu'il me fallait, mon problème venait de la commande en paramètre de Exec, sans le CScript il ne la reconnaît pas.