[Batch] recuperer ping dans fichier txt

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Batch] recuperer ping dans fichier txt

Empereur78

On s'en fout !

Salut,

afin de réaliser un graphique MRTG concernant le ping d'une machine, je lance la commande ping à l'aide d'un batch et je souhaite récupérer le ping moyen et les paquets perdus dans un fichier texte.

le résultat du ping ressemble à cela ( en gras les valeurs que je voudrai récupérer )

Code :

Envoi d'une requête 'ping' sur free.fr [212.27.48.10] avec 32 octets de données
:
Réponse de 212.27.48.10 : octets=32 temps=46 ms TTL=123
Réponse de 212.27.48.10 : octets=32 temps=57 ms TTL=123
Réponse de 212.27.48.10 : octets=32 temps=43 ms TTL=123
Réponse de 212.27.48.10 : octets=32 temps=30 ms TTL=123
Statistiques Ping pour 212.27.48.10:
Paquets : envoyés = 4, reçus = 4, perdus = 0 (perte 0%),
Durée approximative des boucles en millisecondes :
Minimum = 30ms, Maximum = 57ms, Moyenne = 44ms

mon fichier batch :

Code :

@ECHO off
ping -n 4 free.fr 1>result.txt
@For /F "tokens=10 delims=<=ms' " %%D in ('FIND "Moyenne" C:\divers\mrtg\bin\ping\result.txt') Do @Set /A delay=%%D
@For /F "tokens=7 delims=<=' " %%D in ('FIND "perdus" C:\divers\mrtg\bin\ping\result.txt') Do @Set /A loss=%%D
@ECHO %delay% 1>C:\divers\mrtg\bin\ping\output.txt
@ECHO %loss% 1>>C:\divers\mrtg\bin\ping\output.txt

biensur ce ne marche pas mais je suis sur que je ne suis pas tres loin d'avoir trouvé, mais avec les t okens etc j'ai du mal à comprendre.
Merci par avance de votre aide.

Publicité

olivthill

Ce genre de problème se résout relativement facilement en VBS. Voir http://technet.microsoft.com/library/ee156605.aspx

Par exemple, avec le bout de code suivant que l'on copie/colle dans un simple fichier texte à qui l'on donne un nom qui se termine par ".vbs", et que l'on exécute en cliquant de dessus dans l'explorateur Windows ou en le mettant en paramètre de cscript.exe :

Code :

Set objFSO = Wscript.CreateObject("Scripting.FileSystemObject" )
Set objShell = Wscript.CreateObject("Wscript.Shell" )
objName = objFSO.GetTempName
objTempFile = objName
objShell.Run "cmd /c ping -n 3 -w 1000 212.27.48.10 >" & objTempFile, 0, True
Set objTextFile = objFSO.OpenTextFile(objTempFile, 1)
Do While objTextFile.AtEndOfStream <> True
strText = objTextFile.ReadLine
If Instr(strText, "Réponse" ) > 0 Then
Wscript.Echo "Réponse reçue."
Exit Do
End If
Loop
objTextFile.Close
objFSO.DeleteFile(objTempFile)

Message édité par olivthill le 30-04-2012 à 10:16:33

Empereur78

On s'en fout !

Salut,
après m’être inspiré de ton exemple et après quelques recherches sur le net, j'ai réussi à faire ce que je voulais.
Si jamais sur un malentendu, ça intéresse quelqu'un, voici ce que ça donne ( y a surement moyen d'optimiser, mais ça marche plutôt bien )

Code :

Set objFSO = Wscript.CreateObject("Scripting.FileSystemObject" )
Set objShell = Wscript.CreateObject("Wscript.Shell" )
objName = objFSO.GetTempName
objTempFile = objName
objShell.Run "cmd /c ping -n 4 -w 1000 free.fr >" & objTempFile, 0, True
Set objTextFile = objFSO.OpenTextFile(objTempFile, 1)
Do While objTextFile.AtEndOfStream <> True
strText = objTextFile.ReadLine
objPos1 = inStr(strText,"perte" )
if objPos1 > 1 Then
longueur = Len(strText)
GetLost = Right(strText, longueur - objPos1 - 5)
longueur = Len(GetLost)
GetLost = Left(GetLost, longueur - 3)
'MsgBox "Lost: " & GetLost
End If
objPos2 = inStr(strText,"Moyenne" )
if objPos2 > 1 Then
longueur = Len(strText)
GetPing = Right(strText, longueur - objPos2 - 9)
GetPing = Left(GetPing, longueur - objPos2 - 11)
'MsgBox "Ping: " & GetPing
WScript.Echo GetPing
WScript.Echo Getlost
WScript.Echo "Ping Ms"
WScript.Echo "lost %"
Exit Do
End If
Loop
objTextFile.Close
objFSO.DeleteFile(objTempFile)

Kriki

Salut,

ce que tu demandais mais en batch:

Code :

setlocal enabledelayedexpansion
set fi=test.txt
for /f "tokens=1-10" %%i in ('ping 212.27.48.10') do (
if "%%p"=="perdus" echo perte=%%r>>%fi%
if "%%o"=="Moyenne" (
set var=%%q
echo moyenne=!var:ms=!>>%fi%
)
)

Message cité 1 fois
Message édité par Kriki le 13-05-2012 à 02:17:09

sotayri

Kriki a écrit :

Salut,

ce que tu demandais mais en batch:

Code :

setlocal enabledelayedexpansion
set fi=test.txt
for /f "tokens=1-10" %%i in ('ping 212.27.48.10') do (
if "%%p"=="perdus" echo perte=%%r>>%fi%
if "%%o"=="Moyenne" (
set var=%%q
echo moyenne=!var:ms=!>>%fi%
)
)

Bonjour,

Je sais que ce post date d'il y a longtemps mais serait-il possible de m'expliquer comment ce code fonctionne car j'ai beau essayer de comprendre j'y ai du mal ?

Par exemple à quoi correspond le %%r et %%p ? Car si on change ces variables ce script ne fonctionne plus.

Merci d'avance.

Message édité par sotayri le 27-10-2013 à 14:24:44

FORUM HardWare.fr

Programmation

Shell/Batch

[Batch] recuperer ping dans fichier txt

Sujets relatifs
Ouvrir un fichier en C	Question sur lecture fichier
Batch et FOR	Traitement de fichier avec python !
Générer une image à partir d'un fichier html	récupérer le nom d'un fichier ouvert par Scilab et fonction uigetfile
Stockage des données d'un formulaire php dans un fichier csv	Modifier le fichier xml avec un feuille XSLT
[Batch Dos ou Powershell ]Récupérer un dossier FTP puis le purger?
Plus de sujets relatifs à : [Batch] recuperer ping dans fichier txt

Page générée en 0.046 secondes