[R] TTL

[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
 

[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

[jcaspar]

Merci beaucoup ce n'est pas tout à fait ce que je cherchais mais cela fera son effet..

[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