''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
' "check_reasonable_folder_file_count.wsf"
'
' Update 09/12/2007 ver 0.1
' Author: The Tech Group, Inc.
'        www.thetechgroup.com
' Credits
'     Joe Garfunkel - JGarfunkel@saipeople.com
'     For "directory_file_count.swf" which we copied and modified.
'
' --------------------------------------------------------------
' 
' This script counts the number of files contained within a
' directory path. For example, the number of files contained 
' in an email queue directory.
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

<job>
<runtime>
  <description>
directory_file_count (nrpe_nt-plugin) 1.1
The nagios plugins come with ABSOLUTELY NO WARRANTY. You may redistribute
copies of the plugins under the terms of the GNU General Public License.
For more information about these matters, see the file named COPYING.

This plugin will count the number of files that are contained within a 
specific directory path.  For example, the number of files contained in
an mail queue directory.  

It produces WARNING if number is less than warning parameter.

It produces CRITICAL if number is greater than CRITICAL parameter

This version of the "check_reasonable_folder_file_count" plugin does not perform
any validation on your command-line options.  Please follow the
syntax provided, and double-check that you have typed your
options correctly.  -Thanks!

An example execution command to run this plugin from the nrpe.cfg follows.
The command should all be entered on one line, but is wrapped here for
readability.

command[directory_file_count]=c:\winnt\system32\cscript.exe 
//NoLogo //T:30 
c:\nrpe_nt\check_reasonable_folder_file_count.wsf c: \temp\servstat\  10  100

In this example, the number of files must be no less than 10, and no greater than 100

Drive may be network share such as \\server\share

Folder must be in a syntax such as \FOLDER to make proper folder when you concat F:\folder or \\net\share\folder


  </description>
  <named
    name="h"
    helpstring="Help"
    type="simple"
    required="false" 
  />
  <unnamed
    name="drive"
    helpstring="Disk Drive Letter."
    many="false"
    required="true"
  />
  <unnamed
    name="directory-path"
    helpstring="Path to the location of your files."
    many="false"
    required="true"
  />
  <unnamed
    name="warning-value"
    helpstring="Number of files for Warning condition."
    many="false"
    required="true"
  />
  <unnamed
    name="critical-value"
    helpstring="Number of files for Critical condition."
    many="false"
    required="true"
  />
</runtime>
<script language="VBScript">

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

  If Wscript.Arguments.Named.Exists("h") Or Wscript.Arguments.Count = 0 Then
	Wscript.Echo "Plugin help screen:"
      Wscript.Arguments.ShowUsage()
      Wscript.Quit(0)
  End If

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Const's and Var's
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

strDiskDrive = Wscript.Arguments.Unnamed.Item(0)
strPath = Wscript.Arguments.Unnamed.Item(1)
strWarningValue = Wscript.Arguments.Unnamed.Item(2)
strCriticalValue = Wscript.Arguments.Unnamed.Item(3)

'Wscript.Echo "strDiskDrive: " & strDiskDrive
'Wscript.Echo "strPath: " & strPath
'Wscript.Echo "strWarningValue: " & strWarningValue
'Wscript.Echo "strCriticalValue: " & strCriticalValue

FileCount = 0

Const intOK = 0
Const intWarning = 1
Const intCritical = 2
Const intUnknown = 3

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Wscript.Echo "Drive and Path:" & strDiskDrive  & strPath

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder=objFSO.GetFolder(strDiskDrive  & strPath)
set colFiles = objFolder.Files

FileCount = 0
For Each objFile in colFiles
    'Wscript.Echo objFile.Name 
    FileCount = FileCount + 1
Next


'Wscript.Echo "Total number of files is: " & FileCount


FileCount = Int(FileCount)
strWarningValue = Int(strWarningValue)
strCriticalValue = Int(strCriticalValue)


If ( FileCount < strWarningValue ) or ( FileCount > strCriticalValue ) Then 
  'Wscript.Echo "Inside outer If statement."

  If (FileCount > strCriticalValue) Then
    'Wscript.Echo "Inside CriticalValue If statement."
    Wscript.Echo "CRITICAL: File count is " & FileCount & "."
    Wscript.Quit(intCritical) 
  End If


  If (FileCount < strWarningValue) Then
    'Wscript.Echo "Inside WarningValue If statement."
    Wscript.Echo "WARNING: File count is " & FileCount & "."
    Wscript.Quit(intWarning)
  End If

End If


Wscript.Echo "OK: File count is " & FileCount & "."
Wscript.Quit(intOK)


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

</script>
</job>