Option Explicit

Dim objWMIService, strComputer, varNetworkAddress, objItem, colItems

strComputer = "." 
varNetworkAddress = "192.168.0.64"
varNetworkAddress = InputBox("Adresse Ip à tester","Adresse cible", varNetworkAddress)
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") 
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_PingStatus where address = '" & varNetworkAddress & + "'",,48)
For Each objItem in colItems 
    Wscript.Echo "-----------------------------------"
    Wscript.Echo "Win32_PingStatus instance"
    Wscript.Echo "-----------------------------------"
    Wscript.Echo "Address: " & objItem.Address	
    Wscript.Echo "ResponseTime: " & objItem.ResponseTime
    Wscript.Echo "ResponseTimeToLive: " & objItem.ResponseTimeToLive	
    Wscript.Echo "BufferSize: " & objItem.BufferSize
    Wscript.Echo "NoFragmentation: " & objItem.NoFragmentation
    Wscript.Echo "PrimaryAddressResolutionStatus: " & objItem.PrimaryAddressResolutionStatus
    Wscript.Echo "ProtocolAddress: " & objItem.ProtocolAddress
    Wscript.Echo "ProtocolAddressResolved: " & objItem.ProtocolAddressResolved
    Wscript.Echo "RecordRoute: " & objItem.RecordRoute
    Wscript.Echo "ReplyInconsistency: " & objItem.ReplyInconsistency
    Wscript.Echo "ReplySize: " & objItem.ReplySize
    Wscript.Echo "ResolveAddressNames: " & objItem.ResolveAddressNames
    If isNull(objItem.RouteRecord) Then
        Wscript.Echo "RouteRecord: "
    Else
        Wscript.Echo "RouteRecord: " & Join(objItem.RouteRecord, ",")
    End If
    If isNull(objItem.RouteRecordResolved) Then
        Wscript.Echo "RouteRecordResolved: "
    Else
        Wscript.Echo "RouteRecordResolved: " & Join(objItem.RouteRecordResolved, ",")
    End If
    Wscript.Echo "SourceRoute: " & objItem.SourceRoute
    Wscript.Echo "SourceRouteType: " & objItem.SourceRouteType
    Wscript.Echo "StatusCode: " & objItem.StatusCode
    Wscript.Echo "Timeout: " & objItem.Timeout
    If isNull(objItem.TimeStampRecord) Then
        Wscript.Echo "TimeStampRecord: "
    Else
        Wscript.Echo "TimeStampRecord: " & Join(objItem.TimeStampRecord, ",")
    End If
    If isNull(objItem.TimeStampRecordAddress) Then
        Wscript.Echo "TimeStampRecordAddress: "
    Else
        Wscript.Echo "TimeStampRecordAddress: " & Join(objItem.TimeStampRecordAddress, ",")
    End If
    If isNull(objItem.TimeStampRecordAddressResolved) Then
        Wscript.Echo "TimeStampRecordAddressResolved: "
    Else
        Wscript.Echo "TimeStampRecordAddressResolved: " & Join(objItem.TimeStampRecordAddressResolved, ",")
    End If
    Wscript.Echo "TimestampRoute: " & objItem.TimestampRoute
    Wscript.Echo "TimeToLive: " & objItem.TimeToLive
    Wscript.Echo "TypeofService: " & objItem.TypeofService
Next