lolohtl
Messages postés9Date d'inscriptiondimanche 3 novembre 2002StatutMembreDernière intervention28 janvier 2004
-
28 janv. 2004 à 01:28
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 2021
-
29 janv. 2004 à 13:40
bonjour,
j'aimerai recuperer l' "écho d'une commande shell executee"
ex:
shell("C:\>winnt\system32\ping 10.10.10.1")
recuperer l'echo
Envoi d'une requête 'ping' sur 10.10.10.1 avec 32 octets de données :
Réponse de 10.10.10.1 : octets=32 temps=4 ms TTL=254
Réponse de 10.10.10.1 : octets=32 temps=4 ms TTL=254
Réponse de 10.10.10.1 : octets=32 temps=3 ms TTL=254
Réponse de 10.10.10.1 : octets=32 temps=4 ms TTL=254
Statistiques Ping pour 10.10.10.1: Paquets : envoyés 4, reçus 4, perdus = 0 (perte 0%),
Durée approximative des boucles en millisecondes : Minimum 3ms, Maximum 4ms, Moyenne = 3ms
thierrydelepine
Messages postés521Date d'inscriptionmardi 24 décembre 2002StatutMembreDernière intervention11 septembre 20086 28 janv. 2004 à 09:05
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1
Sub Form_Load()
ShellExecute Me.hwnd,, vbNullString,"C:\>winnt\system32\ping 10.10.10.1",">c:\toto.txt, "C:", SW_SHOWNORMAL
end sub
le principe est de recuperer les echo dans un fichier texte, il ne reste plus qu'a lire ce fichier pour recuperer les echo du ping.
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 28 janv. 2004 à 13:05
Une autre solution consisterait en l'usage de Pipes, mais la redirection dans un fichier Texte, comme thierrydelepine te l'a indiquée, est franchement plus simple à mettre en place !