Thanks Darin, this is exactly what I needed. Brandon Rowlett
-----Original Message----- From: [email protected] [mailto:[email protected]] On Behalf Of Darin Cox Sent: Friday, October 25, 2013 9:26 AM To: [email protected] Subject: [MBF]Re: HiJack/Proc Warning Hi Brandon, Here's a VBscript we've used for a number of years. Configure it by setting the variable values near the top, and run it as a scheduled process using cscript. Hope this helps, Darin. =======8<====== ' ====================== ' = Begin Main Section = ' ====================== Dim OverflowFolder Dim SpoolFolder Dim OverflowMaxCount Dim SpoolMaxCount Dim SMTPServer Dim SMTPServerPort Dim AlertTo Dim AlertSubject Dim AlertFrom OverflowFolder = "C:\Imail\Spool\overflow" SpoolFolder = "C:\Imail\Spool" OverflowMaxCount = 0 SpoolMaxCount = 500 SMTPServer = "<enter your mail server here>" SMTPServerPort = 25 AlertTo = "<email address to alert>" AlertSubject = "Mail server in overflow" AlertFrom = "<FROM address>" CheckOverflow() CheckSpool() ' ==================== ' = End Main Section = ' ==================== Sub CheckOverflow() Dim fso, folder, files Set fso = wscript.CreateObject("Scripting.FileSystemObject") Set folder = fso.GetFolder(OverflowFolder) Set files = folder.Files wscript.echo "Time: " & FormatDateTime(Now, 3) wscript.echo "Imail Overflow file count: " & files.Count If files.Count > OverflowMaxCount Then Set files = Nothing Set folder = Nothing Set folder = fso.GetFolder(SpoolFolder) Set files = folder.Files wscript.echo "Imail in overflow." ' Send Alert email via alternate server Set objMessage = CreateObject("CDO.Message") objMessage.Subject = AlertSubject objMessage.From = AlertFrom objMessage.To = AlertTo objMessage.TextBody = "Time: " & FormatDateTime(Now, 3) & vbcrlf & vbcrlf & _ "Imail Overflow file count: " & files.Count objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing";) = 2 objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver";) = SMTPServer objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport";) = SMTPServerPort objMessage.Configuration.Fields.Update objMessage.Send Set objMessage = Nothing End If Set files = Nothing Set folder = Nothing Set fso = Nothing End Sub Sub CheckSpool() Dim fso, folder, files Set fso = wscript.CreateObject("Scripting.FileSystemObject") Set folder = fso.GetFolder(SpoolFolder) Set files = folder.Files wscript.echo "Time: " & FormatDateTime(Now, 3) wscript.echo "Imail Spool file count: " & files.Count If files.Count > SpoolMaxCount Then Set files = Nothing Set folder = Nothing Set folder = fso.GetFolder(SpoolFolder) Set files = folder.Files wscript.echo "Imail spool high file count." ' Send Alert email via alternate server Set objMessage = CreateObject("CDO.Message") objMessage.Subject = AlertSubject objMessage.From = AlertFrom objMessage.To = AlertTo objMessage.TextBody = "Time: " & FormatDateTime(Now, 3) & vbcrlf & vbcrlf & _ "Imail Spool file count: " & files.Count objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing";) = 2 objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver";) = SMTPServer objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport";) = SMTPServerPort objMessage.Configuration.Fields.Update objMessage.Send Set objMessage = Nothing End If Set files = Nothing Set folder = Nothing Set fso = Nothing End Sub ======8<======= -----Original Message----- From: Brandon Rowlett Sent: Friday, October 25, 2013 9:08 AM To: [email protected] Subject: [MBF]HiJack/Proc Warning Does anyone have a decent snippet of code that will check on the proc or hold directory that will send an email to alert the administrator if it becomes overrun? A long time ago we used IMail1.exe that would use the built in SMTP server to send out an email but that has long since been discontinued due to security issues. Thanks, Brandon Rowlett CONFIDENTIALITY NOTICE: This message, and any attachments, contains information which may be confidential and privileged. Unless you are the intended recipient (or authorized to receive this message for the intended recipient), you may not use, copy, disseminate or disclose to anyone the message or any information contained in the message. Any opinions or views expressed which are of a personal nature are not necessarily those of the company. The company reserves the right to monitor all e-mail communications. ############################################################# This message is sent to you because you are subscribed to the mailing list <[email protected]>. To unsubscribe, E-mail to: <[email protected]> To switch to the DIGEST mode, E-mail to <[email protected]> To switch to the INDEX mode, E-mail to <[email protected]> Send administrative queries to <[email protected]> ############################################################# This message is sent to you because you are subscribed to the mailing list <[email protected]>. To unsubscribe, E-mail to: <[email protected]> To switch to the DIGEST mode, E-mail to <[email protected]> To switch to the INDEX mode, E-mail to <[email protected]> Send administrative queries to <[email protected]> CONFIDENTIALITY NOTICE: This message, and any attachments, contains information which may be confidential and privileged. Unless you are the intended recipient (or authorized to receive this message for the intended recipient), you may not use, copy, disseminate or disclose to anyone the message or any information contained in the message. Any opinions or views expressed which are of a personal nature are not necessarily those of the company. The company reserves the right to monitor all e-mail communications. ############################################################# This message is sent to you because you are subscribed to the mailing list <[email protected]>. To unsubscribe, E-mail to: <[email protected]> To switch to the DIGEST mode, E-mail to <[email protected]> To switch to the INDEX mode, E-mail to <[email protected]> Send administrative queries to <[email protected]>
