AdresseIP = "192.168.0.4"
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colPingedComputers = objWMIService.ExecQuery _
    ("Select * from Win32_PingStatus Where Address = '" & AdresseIP &  "'")

For Each objComputer in colPingedComputers
    If objComputer.StatusCode = 0 Then
        Wscript.Echo "L'ordinateur " & AdresseIP & " répond."
    Else
        Wscript.Echo "L'ordinateur " & AdresseIP & " ne répond pas."
   End If
Next