Hp Openview active passive state

I coded this script because hp openview does not have script to track status of active and passive system together and reflect status of service(I mean two server is working for one aim) in service graph screen.
Put this script both active and passive system. It is going to help tracking status of servers and if active system goes down the script running on passive system change status to critical in service graph screen. If passive system goes down the script on the active system is going to change status to ok in service graph screen why because active system is working, so you are serving you service.
You have to create this file C:\Documents and Settings\Administrator\Desktop\ACTIVE on the active server.

Dim machine
Set fs=CreateObject("Scripting.FileSystemObject")
machine = "server1" 'write other server

'If you can ping server
If reachable(machine) Then
 'wscript.echo machine & " reachable" 
 'Check if you send alarm before, clear alarm because you can ping
 If fs.FileExists ("c:\alarm.lck")then 
  'WScript.Echo ("alarm send, clear the alarm")
  strstate= "normal"
  hpov (strstate)
  Set objFSO = CreateObject("Scripting.FileSystemObject")
  objFSO.DeleteFile("C:\alarm.lck")
 Else 
  'WScript.Echo ("Nothing to do")
 End If
Else
 'You cant ping server
 'wscript.echo machine & " not reachable"
 'Check if this server is active
 If fs.FileExists("C:\Documents and Settings\Administrator\Desktop\ACTIVE") Then 
  'WScript.Echo ("This is active system")
  If fs.FileExists ("c:\alarm.lck")then 
   'WScript.Echo ("You send alarm before, clearing the alarm,if you can reach the HP Openview") 
   strstate= "normal"
   hpov (strstate)
   Set objFSO = CreateObject("Scripting.FileSystemObject")
   objFSO.DeleteFile("C:\alarm.lck")
  End If 
 Else   
  'WScript.Echo ("This is passive system")
  'This server is passive 
  'Check if you send alarm to hpov
  If fs.FileExists ("c:\alarm.lck")then 
   'WScript.Echo ("something")
  Else 
   'You didnt send alarm Hpov before so send alarm now because you cant ping active server
   'WScript.Echo ("Send alarm")
   strstate = "critical"
   hpov (strstate)
   Set objFSO = CreateObject("Scripting.FileSystemObject")
   objFSO.CreateTextFile("C:\alarm.lck")
  End If
 End If
End If


Function hpov(state)
'WScript.Echo state  
Set objShell = CreateObject("WScript.Shell")
   strMessage="""Node down : server1"""
   'Ask you hp openview administrator about command and arguments.
   strCommand = "C:\usr\OV\bin\Opc\opcmsg severity=" & state & " a=IMA o=Node_Down msg_text=" &strMessage&  " msg_grp=TCELL node=server2 service_id=ima_server2_scr"
   'WScript.Echo strcommand
   intRC = objShell.Run (strCommand,1 ,TRUE) 
End Function


function reachable(HostName)
 dim wshShell, fso, tfolder, tname, TempFile, results, retString, ts
 Const ForReading = 1, TemporaryFolder = 2
 reachable = False
 set wshShell=wscript.createobject("wscript.shell")
 set fso = CreateObject("Scripting.FileSystemObject")
 Set tfolder = fso.GetSpecialFolder(TemporaryFolder)
 tname = fso.GetTempName
 TempFile = tfolder & tname
 '-w 100000 is 5 mins worth of timeout to cope with establishing a dialup
 wshShell.run "cmd /c ping -n 3 -w 1000 " & HostName & ">" & TempFile,0,true
 set results = fso.GetFile(TempFile)
 set ts = results.OpenAsTextStream(ForReading)
 do while ts.AtEndOfStream <> True
  retString = ts.ReadLine
  if instr(retString, "Reply")>0 then
   reachable = true
   exit do
  end If
 Loop
 ts.Close
 results.delete
end Function