Option Explicit Dim objFSO, objTextFile Dim NomFichier, CheminFichier, CheminScriptActuel, ScriptFileName, Position Dim objWMIService, strComputer, varNetworkAddress, objItem, colItems 'Déclaration des constantes Const ForReading = 1 Const ForWritting = 2 Const ForAppending = 8 ScriptFileName = wscript.scriptname Position = InstrRev(ScriptFileName,".") if (Position > 0) Then ScriptFileName = Left(ScriptFileName, Position - 1) NomFichier = ScriptFileName & "_Resultat.txt" CheminScriptActuel = Left(wscript.scriptfullname,Len(wscript.scriptfullname)-Len(wscript.scriptname)-1) CheminFichier = CheminScriptActuel & "\" & NomFichier 'Déclaration du chemin et du nom du fichier If Len(CheminFichier) > 0 Then Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile(CheminFichier, ForWritting, True) objTextFile.WriteLine(Now) 'On ecrit la date et l'heure dans le fichier strComputer = "." varNetworkAddress = "192.168.202.64" varNetworkAddress = InputBox("Adresse Ip à tester","Adresse cible", varNetworkAddress) objTextFile.WriteLine("Date/Heure" & VbTab & "Address" & VbTab & "ResponseTime") Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") Do Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_PingStatus where address = '" & varNetworkAddress & + "'",,48) For Each objItem in colItems objTextFile.WriteLine(Now & VbTab & objItem.Address & VbTab & objItem.ResponseTime) Next Set colItems = Nothing WScript.Sleep(5000) Loop While 1 > 0 objTextFile.Close 'Fermeture du fichier Set objTextFile = Nothing Set objFSO = Nothing Else Wscript.echo "Operation annulee" End If 'CheminFichier