Dim sHost		
Dim sTarget		
Dim cPingResults	
Dim oPingResult		
Dim sService
Dim cService
Dim oService
Dim iInterval

sHost = "."
sTarget	= "192.168.0.1"
sService = "Messenger"
iInterval = 1000

Do
Set cPingResults = GetObject("winmgmts:{impersonationLevel=impersonate}//" & _
		sHost & "/root/cimv2"). ExecQuery("SELECT * FROM Win32_PingStatus " & _
		"WHERE Address = '" + sTarget + "'")

  For Each oPingResult In cPingResults
  	If oPingResult.StatusCode = 0 Then
                Set cService = GetObject("winmgmts:{impersonationLevel=impersonate}//" & _
		               sHost & "/root/cimv2"). ExecQuery("SELECT * FROM Win32_Service " & _
                               "WHERE Name = '" + sService + "'")
                   For Each oService In cService
                       If oService.Started = False Then oService.StartService
                   Next
  	Else
                Set cService = GetObject("winmgmts:{impersonationLevel=impersonate}//" & _
		               sHost & "/root/cimv2"). ExecQuery("SELECT * FROM Win32_Service " & _
                               "WHERE Name = '" + sService + "'")
                   For Each oService In cService
                       If oService.Started = True Then oService.StopService
                   Next

  	End If
  Next
  Wscript.Sleep iInterval
Loop

Dim sHost
Dim sTarget
Dim cPingResults
Dim oPingResult
Dim sService
Dim cService
Dim oService
Dim iInterval
Dim iFailCount
Dim iCount
Dim oShell
Dim sEventDesrciption

Const EVENT_WARNING = 2
Const EVENT_INFORMATIONAL = 4

sHost = "."
sTarget	= "192.168.0.1"
sService = "Messenger"
iInterval = 1000
iFailCount = 60
iCount = 0

Do
Set cPingResults = GetObject("winmgmts:{impersonationLevel=impersonate}//" & _
		sHost & "/root/cimv2"). ExecQuery("SELECT * FROM Win32_PingStatus " & _
		"WHERE Address = '" + sTarget + "'")

  For Each oPingResult In cPingResults
  	If oPingResult.StatusCode = 0 Then
            Set cService = GetObject("winmgmts:{impersonationLevel=impersonate}//" & _
		               sHost & "/root/cimv2"). ExecQuery("SELECT * FROM Win32_Service " & _
                           "WHERE Name = '" + sService + "'")
            For Each oService In cService
                If oService.Started = False Then
                    Set oShell = CreateObject("WScript.Shell")
                    sEventDescription = "Ping recovered after " & iCount & " ping failures, starting service " & sService
                    oShell.LogEvent EVENT_INFORMATIONAL, sEventDescription
                    oService.StartService
                    Set oShell = Nothing
                End If
            Next
            iCount = 0
            Set cService = Nothing
  	Else
            iCount = iCount + 1
            If iCount = iFailCount Then
                Set oShell = CreateObject("WScript.Shell")
                sEventDescription = "Maximum failed ping replies reached, stopping service " & sService
                oShell.LogEvent EVENT_WARNING, sEventDescription
                Set cService = GetObject("winmgmts:{impersonationLevel=impersonate}//" & _
    		               sHost & "/root/cimv2"). ExecQuery("SELECT * FROM Win32_Service " & _
                               "WHERE Name = '" + sService + "'")
                For Each oService In cService
                    If oService.Started = True Then oService.StopService
                Next
                Set cService = Nothing
                Set oShell = Nothing
            End If
  	End If
  Next
  WScript.Sleep iInterval
Loop