[R] STDOUT sur appel de fonctions DOS

[DimVar]

Bonjour à tous,

Apres qq recherches sur le forum, je ne trouve pas l'info dont j'ai besoin...
Je fais donc appel à vos competences.

Un bete script qui ne fait pas ce que je veux :

Code : Tout sélectionner

#include <Constants.au3>

Global $pid


$pid = Run(@ComSpec & " /c " & 'net file', "", @SW_HIDE,$STDOUT_CHILD)

MsgBox (0,"",StdoutRead($pid))

Meme avec un "dir c:", msgbox reste vide...
Une idée ?

D'avance merci.

Cdlt, Dimvar.

[TomAijerrie]

Peut-être en rajoutant un petit Sleep(100) pour attendre que le processus soit correctement créé.

[DimVar]

Évidemment !...
Merci, je clos.

[jguinch]

Attention ! Ce n'est pas une simple pause qu'il faut ajouté.
Il faut plutôt attendre que le process ait fini de tourner :

► Afficher le texte

Code : Tout sélectionner

$pid = Run(@ComSpec & " /c " & 'net file', "", @SW_HIDE,$STDOUT_CHILD)

Local $sOutput

While 1
    $sOutput &= StdoutRead($pid)
    If @error Then ExitLoop
WENd

MsgBox (0,"", $sOutput)

[orax]

Code : Tout sélectionner

$pid = Run(@ComSpec & " /c " & 'net file', "", @SW_HIDE,$STDOUT_CHILD)
ProcessWaitClose($pid)

jguinch a été plus rapide Ou avec une boucle comme il vient de le dire.

[jguinch]

J'avais cru lire quelque part (ici ou sur le forum US, je sais plus), qu'il fallait plutôt passer par la boucle...
Je ne sais pas pourquoi (je n'ai encore jamais eu de problème en utilisant ProcessWaitClose() )

[DimVar]

Merci pour ce complément d'infos.

PS : Hello l'ancien ! de vert à orange (jguinch)

[jguinch]

Ah oui, j'ai changé de couleur depuis un moment déjà...
Bon retour parmi nous !

[DimVar]

Bienvenue chez les végé !