' /////////////////////////////////////////////////////////////////////////////
Option Explicit

' This monitor function checks for files older than 5 minutes in the directory specified in
' the first parameter value of the vbscript monitor.
' change value varFileAgeCheck to adjust value by minutes.
Const retvalUnknown = 1

Function CheckFileAge(strDirName)
On Error Resume Next
Dim objFSO, objFolder, objContents, objFile, objFileDate1, objFileDate2, varDateDiff, varFileAgeCheck
' Set FileSystemObject and get directory listing
Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objFolder = objFSO.GetFolder(strDirName)
Set objContents = objFolder.Files
varFileAgeCheck = 5
' Compare each file's create/modify date & time to current date & time.
For Each objFile in objContents
objFileDate1 = objFile.DateLastModified
objFileDate2 = Now()
varDateDiff = Abs(DateDiff("n",objFileDate2,objFileDate1))
If DateDiff("n", objFileDate1, Now) > varFileAgeCheck then
 ' Check for files older than 5 minutes.  Return FALSE to signify monitor failure
 EXPLANATION = objFile & " is older than 5 minutes."
 CheckFileAge = FALSE
 ' as soon as condition exists, that's all we need to signify monitor failure.  Exit function.
 Exit Function
End If
Next
' Return TRUE to signify monitor success for no files found.
 EXPLANATION = "No files older than 5 minutes in directory " & strDirName
 CheckFileAge = TRUE
End Function

' /////////////////////////////////////////////////////////////////////////////
' Accepts 2 parameters
' First parameter is the UNC path of the file, eg "\\server\path\file.txt"
' Second parameter is the age in hours
' the check reports success if the age in hours of the file is newer than this number.
' /////////////////////////////////////////////////////////////////////////////

Option Explicit

Const retvalUnknown = 1

Function IsFileNewerThanHours(TheFile,Hours)

 ' This file designed, created, tested and deployed by MRIS

  On Error Resume Next


  Dim fso, f, FileDateCreated, AgeInHours

  Set fso = CreateObject("Scripting.FileSystemObject")

  Set f = fso.GetFile(TheFile)

  FileDateCreated = f.DateLastModified

  AgeInHours = DateDiff("h",FileDateCreated,Now)

  If AgeInHours > Hours then 
      EXPLANATION = TheFile & " is " & AgeInHours & " hours old, which is more than " & Hours & " hours." 
      IsFileNewerThanHours = False
  End If

  If AgeInHours <= Hours then 
      EXPLANATION = TheFile & " is " & AgeInHours & " hours old, which is less than " & Hours & " hours." 
      IsFileNewerThanHours = True
  End If


End Function