Lancer un exe (ou bat) et récupérrer les données -> WScript

Salut,

( Language WScript ou CScript ou VBScript )
J' aimerais lancer un exe et récuppérer les données (tout en laissant mon exe tourner)
De plus il ne faudrait pas de fenetre ( c' est une fenetre Dos à l' origine )

J' ai essayé :
1/ Ici pas de retour de donnée

Set WshShell = WScript.CreateObject("WScript.Shell")
Set oExec    = WshShell.Run("programme.exe", 0, false) ' que je mette false ou true pour le 3eme param ne change pas le résultat de oExec
WScript.Echo oExec ' ça affiche toujours 0


2/ Ici le WScript attend la fermeture de programme.exe et il y a l' affichage d' une fenetre

Set WshShell = CreateObject("WScript.Shell")
Set oExec    = WshShell.Exec("programme.exe")
WScript.Echo oExec.StdOut.ReadAll

Je ne vois pas comment faire :-/
Merci d' avoir pris le temps d' étudier mon problème ;-)

Cordialement

Immortal-PC,
téléchargements,astuces ,entre-aide informatique , conseils pour vos problèmes d'ordi. 
Grâce à Immortal-PC votre ordinateur passera les âges.

 Bonjour,


Avec l'exemple ci-dessous, çà devrait aller mieux .

Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run "calc.exe",,0
Wscript.Sleep 300
MsgBox "vérif"

jean-marc

Salut,

Non désolé ça ne marche pas :-/ du moin pas comme je l' aimerais :
objShell.Run "calc.exe",,0
renvoie toujours 0 alors que mon programme.exe renvoie des données.
Comment faire pour les récupérrer ? tout en laissant tourner mon programme.exe

Cordialement
Immortal-PC,
téléchargements,astuces ,entre-aide informatique , conseils pour vos problèmes d'ordi. 
Grâce à Immortal-PC votre ordinateur passera les âges.

Salut,

Pour info :
Le 0 que tu obtient, ce n'est pas la sortie texte, mais le code d'erreur en sortie d'execution (Valeur passée à ExitProcess généralement). 0 ça veut dire que tout c'est bien passé. C'est le code qui est affecté à ERRORLEVEL sous DOS par exemple.

Pour récupérer la sortie texte de manière asynchrone si tu ne trouve pas mieux, tu peux envoyer la sortie de l'exe dans un fichier texte et l'ouvrir par la suite (Mais bon, si tu n'attend pas la fin de l'execution de l'exe, difficile de savoir quand récupérer les données du fichier texte...)

quelque chose comme ça :

Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run "calc.exe > MonFichier.txt",,0
Wscript.Sleep 300
MsgBox "vérif"

Salut,

"Le 0 que tu obtient, ce n'est pas la sortie texte, mais le code d'erreur en sortie d'execution (Valeur passée à ExitProcess généralement). 0 ça veut dire que tout c'est bien passé. C'est le code qui est affecté à ERRORLEVEL sous DOS par exemple. "
>> Merci pour l' info ;-)

"Pour récupérer la sortie texte de manière asynchrone si tu ne trouve pas mieux, tu peux envoyer la sortie de l'exe dans un fichier texte et l'ouvrir par la suite (Mais bon, si tu n'attend pas la fin de l'execution de l'exe, difficile de savoir quand récupérer les données du fichier texte...)"
>> Je connaissais déjà le principe ;-)
Mais le programme n' écrit rien dans le fichier avant d' avoir été arrêté :@

Programme.exe m' envoie les données quasiement au démarrage. ( à 1 secs près )

Je reste donc toujour sur l' éternel question : Comment  lancer un exe et récupérrer les données sans arrêter le exe ?

Cordialement

Immortal-PC,
téléchargements,astuces ,entre-aide informatique , conseils pour vos problèmes d'ordi. 
Grâce à Immortal-PC votre ordinateur passera les âges.

Essaie ce genre de truc peut être (Je n'ai apparement pas le droit d'executer du vbs sur mon poste...) :

Set WshShell = CreateObject("WScript.Shell")
Set oExec    = WshShell.Exec("ping localhost")

While Not objStdOut.AtEndOfStream
   strLine = objStdOut.ReadLine
   WScript.Echo strLine
Wend

stdOut possède aussi la méthode Read, qui prend en argument le nombre de caractère à lire.

Ces appels ont l'air bloquants d'après la doc... Donc l'execution ne reprend qu'après que le stream contient suffisament de caractère à renvoyer.

Pas mal d'explications ici.