' Keep pcAnywhere Host running
'Wait two minutes
WScript.Sleep(120000)
Do
  strComputer = "."
  Set wbemServices = GetObject("winmgmts:\\" & strComputer)
  Set wbemObjectSet = wbemServices.InstancesOf("Win32_Service")
  For Each wbemObject In wbemObjectSet
     'IF wbemObject.DisplayName = "pcAnywhere Host Service" THEN
     IF InStr(wbemObject.DisplayName, "pcAnywhere Host Service") THEN
	pcanywhere = 1	
              isactive = wbemObject.State
     End If
  Next

  if pcanywhere = 1 then
    'MsgBox "pcAnywhere Is Running"
	if isactive = "Running" then
		' everything is ok
		' MsgBox "Waiting"
	Else
		' problem
		'MsgBox "Not Waiting"
		Set WshShell = WScript.CreateObject("WScript.Shell")
		obj = WshShell.Run("c:\data\rich\host.bat",0)
		set WshShell = Nothing
		' wait for 30 seconds
		WScript.Sleep(30000)
	End If
  Else
    MsgBox "pcAnywhere Not Running"
  End If
' loop forever
' HellFreezes = HellFreezes + 1
' Let's not over do it.  Loop every 30 seconds
WScript.Sleep(30000)
Loop While HellFreezes < 1