Hp Openview Microsoft Windows file check template

Hp Openview does not have all the scripts for Windows, so I coded this vbscript to help us checking if the file exist and changes related monitoring status. This script has to be run from hp openview services. You have to call script with file name and monitoring name from HP Openview.

strArgument1 = Wscript.Arguments(0)        'file name
strArgument2 = Wscript.Arguments(1)        'monitor name 
Set objFs=CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("WScript.Shell")
StrOpcmon = "c:\usr\OV\bin\OpC\opcmon" 

If objFs.FileExists (strArgument1)then 
 strCommand = StrOpcmon & " " & strArgument2 & "=1"
 intRC = objShell.Run (strCommand,1 ,TRUE)
 Else 
 strCommand = StrOpcmon & " " & strArgument2 & "=0"
 intRC = objShell.Run (strCommand,1 ,TRUE)
End If