GFI Faxmaker Queue monitor

' /////////////////////////////////////////////////////////////////////////////
' This file contains a set of VBScript functions, and can be used
' inside Monitor Rules.
' You can write your own functions and them to this file.
' Use the following guidelines when writing a new function:
'   - The routine must be a Function, not a Sub;
'   - The Function must return True (-1), False (0) or Unknown (1);
'   - Optionally, use the EXPLANATION system variable to add your own
'     explanation to the result of the function;
'   - All variables must be 'dimmed', except EXPLANATION. EXPLANATION is an
'     GFI Network Server Monitor system variable and is already dimmed
'     by the GFI Network Server Monitor service.
'
' Prototype:
'   Function MyFunc( var1, var2, ..., varn )
'       ' Own stuff
'       MyFunc = True  ' or False (0) or Unknown (1)
'       EXPLANATION = "MyFunc returns True"
'   End Function
'
' /////////////////////////////////////////////////////////////////////////////
 
Const retvalUnknown = 1
 
Function GetFAXmaker(strFAXmakerServer, strUsername, strPassword)
On Error Resume Next
 'strFAXmakerServer="FAX1"
strFAXmakerFolder = "\\" & strFAXmakerServer & "\fmserver$" 'FAXmaker path
 
intSinkDropThreshold = 5 'alert when more than x emails in sinkdrop dir.
intInDirThreshold = 4 'alert when more than 4 faxes in FAXmaker\In
intOutDirThreshold = 4 'alert when more than 4 faxes in the FAXmaker\out.
intUndeliverableThreshold = 0 'alert when more than 0 files in the FAXmaker\in\undelverable directory.
 
'no changes to variables need to be made beyond this point.
 
'check services
if (strUsername = "") then	
		'Connect to remote host on same domain using same security context
		Set objWMIService = GetObject("winmgmts:{impersonationLevel=Impersonate}!\\" & strFAXmakerServer &"\root\cimv2")
else	
		'Connect to remote host using different security context and/or different domain 
		Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
		Set objWMIService = objSWbemLocator.ConnectServer(strFAXmakerServer, "root\cimv2", strUsername, strPassword)
		if (Err.Number <> 0) Then
			GetServicesList = retvalUnknown			
			EXPLANATION = "Unable to access '" & strFAXmakerServer & "'. Possible reasons: no WMI installed on the remote server, no rights to access remote WMI service, or remote server down"
			Exit Function
		End if
		objWMIService.Security_.ImpersonationLevel = 3
end if
 
If (Err.Number <> 0) Then
	GetFAXmaker = retvalUnknown
	EXPLANATION = "Unable to access '" & strFAXmakerServer & "'. Possible reasons: no WMI installed on the remote server, no rights to access remote WMI service, or remote server down" 	
	Exit Function
End If
 
Set colItems = objWMIService.ExecQuery("Select * from Win32_Service where name = 'smtpsvc'",,48)
bRunning = false
For Each objItem in colItems
  if objItem.State = "Running" Then
    bRunning = true
  end If
Next
if not bRunning then 
		GetFAXmaker=False
		EXPLANATION = "Simple Mail Transport Protocol (SMTP) Service is not running."
		Exit Function
end if
 
Set colItems = objWMIService.ExecQuery("Select * from Win32_Service where name = 'FAXmaker Fax Server'",,48)
bRunning = false
For Each objItem in colItems
  if objItem.State = "Running" Then
    bRunning = true
  end If
Next
If not bRunning Then
		GetFAXmaker=False
		EXPLANATION = "GFI FAXmaker Fax Server Service is not running."
		Exit Function
end If 
 
Set colItems = objWMIService.ExecQuery("Select * from Win32_Service where name = 'FAXmaker MTA Service'",,48)
bRunning = false
For Each objItem in colItems
  if objItem.State = "Running" then
    bRunning = true
  end if
Next
If not bRunning Then
		GetFAXmaker=False
		EXPLANATION = "GFI FAXmaker Message Transfer Agent Service is not running."
		Exit Function
end If 
 
'check directory counts
strFAXmakerSinkDrop = strFAXmakerFolder & "\sinkdrop"
strFAXmakerIn = strFAXmakerFolder & "\In"
strFAXmakerOut = strFAXmakerFolder & "\out"
strFAXmakerUndeliverable = strFAXmakerIn & "\undeliverable"
 
funcEcho("Servername=" & strFAXmakerServer)
funcEcho("strFAXmakerIn=" & strFAXmakerIn)
funcEcho("strFAXmakerOut=" & strFAXmakerOut)
funcEcho("strFAXmakerUndeliverable=" & strFAXmakerUndeliverable)
funcEcho("strFAXmakerSinkDrop=" & strFAXmakerSinkDrop)
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strFAXmakerSinkDrop)
Set colFiles = objFolder.Files
 
GetFAXmaker=False
 
If colFiles.count > intSinkDropThreshold Then
	GetFAXmaker=False
	EXPLANATION = colFiles.count & " (>" & intSinkDropThreshold & ") Files found in SinkDrop directory. Check GFI FAXmaker Message Transfer Agent status."
	Exit Function
End If
 
Set objFolder = objFSO.GetFolder(strFAXmakerIn)
Set colFiles = objFolder.Files
 
filesCount = CountSfmFiles(objFSO, colFiles)
If filesCount > intInDirThreshold Then
	GetFAXmaker = False
	EXPLANATION = filesCount & " (>" & intInDirThreshold & ") Files found in FAXmaker\In directory. Check GFI FAXmaker Message Transfer Agent status."
	Exit Function
End If
 
Set objFolder = objFSO.GetFolder(strFAXmakerOut)
Set colFiles = objFolder.Files
 
filesCount = CountSfmFiles(objFSO, colFiles)
If filesCount > intOutDirThreshold Then
	GetFAXmaker=False
	EXPLANATION = filesCount & " (>" & intOutDirThreshold & ") Files found in FAXmaker\out directory. Check GFI FAXmaker Fax Server status."
	Exit Function
End If
 
Set objFolder = objFSO.GetFolder(strFAXmakerUndeliverable)
Set colFiles = objFolder.Files
 
If colFiles.count > intUndeliverableThreshold Then
	GetFAXmaker=False
	EXPLANATION = colFiles.count & " (>" & intUndeliverableThreshold & ") Files found in FAXmaker\in\undeliverable directory. Check GFI FAXmaker Message Transfer Agent status and SMTP connectivity."
	Exit Function
End If
 
GetFAXmaker=True
EXPLANATION = "FAXmaker status is healthy."
 
End Function
 
Function funcEcho(strLog)
	blnDebug = 0 
	If blnDebug=1 Then
		EXPLANATION =  strLog
	End If
End Function
 
function CountSfmFiles(objFSO, colFiles)
	Dim file, count
	count = 0
	for each file in colFiles	  
		if lCase(objFSO.GetExtensionName(file)) = "sfm" then  
			count = count + 1
		end if
	next
	CountSfmFiles = count
end function

Select allOpen in new window