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