Discussion :

[Ragmaxone]

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 :

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

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

monScript.vbs

Code :

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

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

[Psycadi]

J'ai trouvé un truc.

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

J'ai fait 2 fichiers VBS

Pong.vbs

Code :

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

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 :

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

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

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.

[Ragmaxone]

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.