Page 1 sur 1
[R] TTL
Posté : sam. 29 mars 2014 18:34
par jcaspar
B
onjour à tous !
Je souhaiterais que le contenu du ping s'inscrive dans un fichier texte avec la valeur TTL
j'ai pris l'exemple de Google dans le code ci dessous...mais j'ignore comment récupèrer cette
valeur ...
Je vous remercie pour vos idées !
Jean-Marc
► Afficher le texte
Code : Tout sélectionner
#include <Date.au3>
Creation_Fichier()
;~ Horodateur()
Pinger()
Func Creation_Fichier()
if FileExists("d:\") then msgbox(64,"Dossier existe","Le lecteur D existe")
;~ FileWrite("test.log","test")
EndFunc
Func Horodateur()
msgbox(64,"Heure",_NowTime (5))
$begin=TimerInit()
Sleep(1000*60*24)
Local $dif = TimerDiff($begin)
MsgBox(0, "Time Difference", $dif)
EndFunc
Func Pinger()
while 1
$adresse="www.google.fr"
$suivi=ping($adresse)
if @error then
filewriteline("test.log",@error)
else
filewriteline("test.log",$adresse &"|"&@MDAY &"-" & @MON &"-" &@YEAR & "|" &@HOUR &":" &@MIN &":"&@sec &"|"& "Temps:->" & $suivi)
EndIf
WEnd
Endfunc
Re: [..] TTL
Posté : sam. 29 mars 2014 19:46
par PandiPanda
Bonsoir,
ceci vous suffit?
► Afficher le texte
Code : Tout sélectionner
_ping("8.8.8.8",1,@DesktopDir&'\pingTest.txt')
Func _ping($adress,$n,$pathFile)
Run(@ComSpec & " /c " & 'ping -n '&$n&' '&$adress&' > "'&$pathFile&'"', "", @SW_HIDE)
EndFunc
Re: [..] TTL
Posté : dim. 30 mars 2014 13:57
par jcaspar
Merci beaucoup ce n'est pas tout à fait ce que je cherchais mais cela fera son effet..
Re: [R] TTL
Posté : dim. 30 mars 2014 15:14
par PandiPanda
Bonjour,
si vous voulez autre choses va falloir être un peu plus précis x)
au final on récupère une chaine de caractère dont on peux faire tout les traitement qu'on veux via ce code ci;
► Afficher le texte
Code : Tout sélectionner
MsgBox(0,"",_ping("8.8.8.8",1))
Func _ping($adress,$n)
local $pid = Run(@ComSpec & " /c " & 'ping -n '&$n&' '&$adress, "", @SW_HIDE,0x2)
Local $s = ""
While 1
local $line = StdoutRead($pid)
If @error Then ExitLoop
If $line <> "" Then
$s&=$line&@CRLF
EndIf
WEnd
Local $a = StringSplit($s,@CRLF,3)
$s = ""
For $i = 0 to UBound($a)-1
If StringInStr($a[$i],"TTL") Then $s&=$a[$i]
Next
return $s
EndFunc