strComputer = "."
strPingTarget = "xxx.xxx.xxx.xxx"
strOutFile = "C:\ping_error.log"
intNormalInterval = 5000
intFailureInterval = 1000

Set fso = CreateObject("Scripting.FileSystemObject")

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set Logfile = fso.OpenTextFile(strOutFile, 8, True, 0)
Logfile.Writeline "**********************************************************************"
Logfile.WriteLine "Ping check startup at " & time & " on " & date & " with ping target= " & strPingTarget & " , ping interval= " & intNormalInterval / 1000 & " sec"
Logfile.Close
Set Logfile = Nothing

Interval = intNormalInterval

Do
Set Logfile = fso.OpenTextFile(strOutFile, 8, True, 0)
Set colPings = objWMIService.ExecQuery ("Select * From Win32_PingStatus where Address = '" & strPingTarget & "'")
    For Each objStatus in colPings
        If IsNull(objStatus.StatusCode) _
            or objStatus.StatusCode<>0 Then
            Interval = intFailureInterval
            Logfile.WriteLine "Computer " & strPingTarget & " did not respond at " & time & " on " & date & ", setting ping interval to " & intFailureInterval / 1000 & " sec"
        Else
            If Interval = intFailureInterval Then
              Interval = intNormalInterval
              Logfile.WriteLine "Computer " & strPingTarget & " responded at " & time & " on " & date & ", resetting ping interval to " & intNormalInterval / 1000 & " sec"
            End If
        End If
    Next
    Logfile.Close
    WScript.Sleep Interval
Loop