'Sending log message to the WhatsUp Event Viewer
Context.LogMessage "Checking Address=" & Context.GetProperty("Address")
Context.SetResult 0, "OK"
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder("\\faxserver\incomingimages\")
Set FileList = Folder.Files
Numfiles = 0
For Each File in FileList
On Error Resume Next
    If DateDiff("n", Now, File.DateLastModified) < -30 then
    NumFiles = Numfiles + 1
Else
End If
Next

If NumFiles > 1 Then
    Context.SetResult 1, "Files older than 30 minutes in Faxserver-IncomingImages directory.  Check the Readers on FAX2 for proper operation!!!"

End If