RE: [Declude.JunkMail] Hijack Notification
Hi Nick -
I like this. Do I need to set this up as a task, or
how will it run?
Thanks for any tips.
Todd
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Nick
HayerSent: Monday, April 03, 2006 3:59 PMTake that code, adjust the paths/email
addresses as need be, save it as a .vbs file and give it a twirl. Set the count
real low so you can see it work and then set it to whatever alarm level you
would like --Nick
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]]
On Behalf Of Nick
HayerSent: Monday, April 03,
2006 11:03 AMTo: Declude.JunkMail@declude.comSubject: Re: [Declude.JunkMail] Hijack
Notification
Hi John,John
Doyle wrote: this guy suggested this.I'm not sure exactly how. looks like if a count is some value send themail.
I was just suggesting that the number of files in
the spool dir exceed some number [100?] then send an email. I got
the idea from the hijack vbs code [Thanks!] on the declude website which I
kludged to work to notify for the spool overflows.. -Nick#
spool_mon.vbsfSpool = "e:\imaillogs\spool"aMail = "e:\imail\imail1.exe
"mFrom = "-u '[EMAIL PROTECTED]'
"mTo1 = "-t '[EMAIL PROTECTED],[EMAIL PROTECTED]'
"if GetFileCount(fSpool) 100 then
MailNotice "Spool", GetFileCount(fSpool), mTo1end ifFunction
GetFileCount(folderspec) Dim fso, f, f1,
fc Set fso =
CreateObject("Scripting.FileSystemObject") Set f =
fso.GetFolder(folderspec) Set fc =
f.Files GetFileCount = fc.countEnd
FunctionFunction MailNotice(fname, fcount, mTo)
Dim mCmd, mSubj, WshShell set WshShell =
WScript.CreateObject("WScript.Shell") mSubj = "-s 'Mail
held in " fname ": " fcount "' "
mCmd = aMail mFrom mTo mSubj "-f
placeholder.txt" Return = WshShell.Run(mCmd , 1,
TRUE)End
Function
Re: [Declude.JunkMail] Hijack Notification
You can also run the spoolviewer app on the Declude
tools page, http://www.declude.com/Articles.asp?ID=100.
It gives a bit more info.
We run it via batch file every 3 or 4 hours to
watch spool usage, echoing results to a file and using imail1.exe to send the
file as the message body. With it we can see indications of high volumes
of both outgoing and incoming traffic.
Darin.
- Original Message -
From: Todd Richards
To: Declude.JunkMail@declude.com
Sent: Friday, April 07, 2006 10:02 AM
Subject: RE: [Declude.JunkMail] Hijack Notification
Hi Nick -
I like this. Do I need to set this up as a task, or
how will it run?
Thanks for any tips.
Todd
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Nick
HayerSent: Monday, April 03, 2006 3:59 PMTake that code, adjust the paths/email
addresses as need be, save it as a .vbs file and give it a twirl. Set the count
real low so you can see it work and then set it to whatever alarm level you
would like --Nick
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]]
On Behalf Of Nick
HayerSent: Monday, April 03,
2006 11:03 AMTo: Declude.JunkMail@declude.comSubject: Re: [Declude.JunkMail] Hijack
Notification
Hi John,John
Doyle wrote: this guy suggested this.I'm not sure exactly how. looks like if a count is some value send themail.
I was just
suggesting that the number of files in the spool dir exceed some number
[100?] then send an email. I got the idea from the hijack vbs code
[Thanks!] on the declude website which I kludged to work to notify for the
spool overflows.. -Nick# spool_mon.vbsfSpool =
"e:\imaillogs\spool"aMail = "e:\imail\imail1.exe "mFrom = "-u '[EMAIL PROTECTED]'
"mTo1 = "-t '[EMAIL PROTECTED],[EMAIL PROTECTED]'
"if GetFileCount(fSpool) 100 then
MailNotice "Spool", GetFileCount(fSpool), mTo1end ifFunction
GetFileCount(folderspec) Dim fso, f, f1,
fc Set fso =
CreateObject("Scripting.FileSystemObject") Set f =
fso.GetFolder(folderspec) Set fc =
f.Files GetFileCount = fc.countEnd
FunctionFunction MailNotice(fname, fcount, mTo)
Dim mCmd, mSubj, WshShell set WshShell =
WScript.CreateObject("WScript.Shell") mSubj = "-s 'Mail
held in " fname ": " fcount "' "
mCmd = aMail mFrom mTo mSubj "-f
placeholder.txt" Return = WshShell.Run(mCmd , 1,
TRUE)End
Function
Re: [Declude.JunkMail] Hijack Notification
Hi Todd,
I run it every 30 min with the Windows scheduler -
-Nick
-
Original Message -
From:
Todd Richards
To: Declude.JunkMail@declude.com
Sent: Friday, April 07, 2006 10:02 AM
Subject: RE: [Declude.JunkMail] Hijack Notification
Hi Nick -
I like this. Do I need to set
this up as a task, or how will it run?
Thanks for any tips.
Todd
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]] On Behalf Of Nick
Hayer
Sent: Monday, April 03, 2006 3:59 PM
Take that code, adjust the paths/email addresses as need be, save it as
a .vbs file and give it a twirl. Set the count real low so you can see
it work and then set it to whatever alarm level you would like -
-Nick
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]]
On Behalf Of Nick
Hayer
Sent: Monday, April
03, 2006 11:03 AM
To: Declude.JunkMail@declude.com
Subject: Re:
[Declude.JunkMail] Hijack Notification
Hi John,
John Doyle wrote:
this guy suggested this.
I'm not sure exactly how. looks like if a count is some value send the
mail.
I was just suggesting that the number of files in the spool dir exceed
some number [100?] then send an email. I got the idea from the hijack
vbs code [Thanks!] on the declude website which I kludged to work to
notify for the spool overflows..
-Nick
# spool_mon.vbs
fSpool = "e:\imaillogs\spool"
aMail = "e:\imail\imail1.exe "
mFrom = "-u '[EMAIL PROTECTED]'
"
mTo1 = "-t '[EMAIL PROTECTED],[EMAIL PROTECTED]'
"
if GetFileCount(fSpool) 100 then
MailNotice "Spool", GetFileCount(fSpool), mTo1
end if
Function GetFileCount(folderspec)
Dim fso, f, f1, fc
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set fc = f.Files
GetFileCount = fc.count
End Function
Function MailNotice(fname, fcount, mTo)
Dim mCmd, mSubj, WshShell
set WshShell = WScript.CreateObject("WScript.Shell")
mSubj = "-s 'Mail held in " fname ": " fcount
"' "
mCmd = aMail mFrom mTo mSubj "-f
placeholder.txt"
Return = WshShell.Run(mCmd , 1, TRUE)
End Function
RE: [Declude.JunkMail] Hijack Notification
Thanks Nick and Darin for both of your
respones!
Todd
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Nick
HayerSent: Friday, April 07, 2006 9:32 AMTo:
Declude.JunkMail@declude.comSubject: Re: [Declude.JunkMail] Hijack
Notification
Hi Todd,I run it every 30 min with the Windows
scheduler - -Nick
-
Original Message -
From:
Todd Richards
To: Declude.JunkMail@declude.com
Sent: Friday, April 07, 2006 10:02 AM
Subject: RE: [Declude.JunkMail] Hijack Notification
Hi Nick -
I like this. Do I need to set this up as a task, or
how will it run?
Thanks for any tips.
Todd
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]]
On Behalf Of Nick HayerSent: Monday, April 03, 2006 3:59
PMTake that code, adjust the paths/email
addresses as need be, save it as a .vbs file and give it a twirl. Set the
count real low so you can see it work and then set it to whatever alarm level
you would like --Nick
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]]
On Behalf Of Nick
HayerSent: Monday, April
03, 2006 11:03 AMTo: Declude.JunkMail@declude.comSubject: Re: [Declude.JunkMail] Hijack
Notification
Hi John,John
Doyle wrote: this guy suggested this.I'm not sure exactly how. looks like if a count is some value send themail.
I was just suggesting that the number of files
in the spool dir exceed some number [100?] then send an email. I
got the idea from the hijack vbs code [Thanks!] on the declude website which
I kludged to work to notify for the spool overflows.. -Nick#
spool_mon.vbsfSpool = "e:\imaillogs\spool"aMail =
"e:\imail\imail1.exe "mFrom = "-u '[EMAIL PROTECTED]'
"mTo1 = "-t '[EMAIL PROTECTED],[EMAIL PROTECTED]'
"if GetFileCount(fSpool) 100 then
MailNotice "Spool", GetFileCount(fSpool), mTo1end ifFunction
GetFileCount(folderspec) Dim fso, f, f1,
fc Set fso =
CreateObject("Scripting.FileSystemObject") Set f =
fso.GetFolder(folderspec) Set fc =
f.Files GetFileCount = fc.countEnd
FunctionFunction MailNotice(fname, fcount,
mTo) Dim mCmd, mSubj, WshShell
set WshShell = WScript.CreateObject("WScript.Shell")
mSubj = "-s 'Mail held in " fname ": " fcount "'
" mCmd = aMail mFrom mTo mSubj
"-f placeholder.txt" Return = WshShell.Run(mCmd , 1,
TRUE)End
Function
RE: [Declude.JunkMail] Hijack Notification
Thank you for the input. I'll give it a try this week. John -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Craig Edmonds Sent: Sunday, April 02, 2006 7:42 AM To: Declude.JunkMail@declude.com Subject: RE: [Declude.JunkMail] Hijack Notification Importance: High Hi John, Not sure if this is any help but I found a basic way to handle this as I had problems with clients ringing up saying I sent out some mails and they have not gone...etc etc etc, and of course when I check the hold2 directory there are 500 emails in there. What I do is have a basic setup that checks for me every 30 minutes if there are some .smd files in the C:\IMAIL\spool\spam\hold2 folder and if it finds any, it emails me a simple email telling me how many *smd files there are which then goes to my blackberry letting me know. I am pretty sure there is an easier way but this is my 10 minute solution and it works for me. 1) I installed the following object on the mail server http://www.xs4all.nl/~jarit/asp/filefunc/download.html 2) made a .vbs file called check4files.vbs and put it in the C:\IMAIL\spool\spam\hold2 dir. The code in the .vbs file is like this.. === filepath=C:\IMAIL\spool\spam\hold2\*.smd emailfrom=[EMAIL PROTECTED] emailto=[EMAIL PROTECTED] Set FFunc = CreateObject(FileFunctions.files) if FFunc.Exists(filepath) then FFunc.GetFileList(filepath) Set objMessage = CreateObject(CDO.Message) objMessage.Subject = (Alert) FFunc.Count Messages in The Hold Queue objMessage.From = emailfrom objMessage.To = emailto strBody = strBody There are currently FFunc.Count files in the Hold Queue vbCRLF strBody = strBodyvbCRLF strBody = strBody Date:FormatDateTime(Date, 1) - FormatDateTime(Now, 4) objMessage.TextBody = strBody objMessage.Send end if 3) Then I set up a scheduled task in the windows schduled tasks to run the file every 30 minutes. I hope that helps you. Kindest Regards Craig Edmonds 123 Marbella Internet W: www.123marbella.com E : [EMAIL PROTECTED] = -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of John Doyle Sent: Wednesday, March 29, 2006 9:25 PM To: Declude.JunkMail@declude.com Subject: [Declude.JunkMail] Hijack Notification Does anyone have a utility to email a notification when hijack holds an ip address permanently? Thanks in advance John --- This E-mail came from the Declude.JunkMail mailing list. To unsubscribe, just send an E-mail to [EMAIL PROTECTED], and type unsubscribe Declude.JunkMail. The archives can be found at http://www.mail-archive.com. [ This E-mail has been scanned for Spam and Viruses by Declude ] [ Thank You For Using 123 Marbella Internet ] [ This E-mail has been scanned for Spam and Viruses by Declude ] [ Thank You For Using 123 Marbella Internet ] --- This E-mail came from the Declude.JunkMail mailing list. To unsubscribe, just send an E-mail to [EMAIL PROTECTED], and type unsubscribe Declude.JunkMail. The archives can be found at http://www.mail-archive.com. --- This E-mail came from the Declude.JunkMail mailing list. To unsubscribe, just send an E-mail to [EMAIL PROTECTED], and type unsubscribe Declude.JunkMail. The archives can be found at http://www.mail-archive.com.
RE: [Declude.JunkMail] Hijack Notification
this guy suggested this. I'm not sure exactly how. looks like if a count is some value send the mail. john -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Nick Hayer Sent: Sunday, April 02, 2006 7:59 AM To: Declude.JunkMail@declude.com Subject: Re: [Declude.JunkMail] Hijack Notification Hi Craig, Although you may already do this figured I mention it anyway - this technique works well to monitor spool traffic eg when a threshold is reached I get an email - so for example in your code below IF FFunc.Count 100 [altered path for the spool dir] send me an email... -Nick Craig Edmonds wrote: Hi John, Not sure if this is any help but I found a basic way to handle this as I had problems with clients ringing up saying I sent out some mails and they have not gone...etc etc etc, and of course when I check the hold2 directory there are 500 emails in there. What I do is have a basic setup that checks for me every 30 minutes if there are some .smd files in the C:\IMAIL\spool\spam\hold2 folder and if it finds any, it emails me a simple email telling me how many *smd files there are which then goes to my blackberry letting me know. I am pretty sure there is an easier way but this is my 10 minute solution and it works for me. 1) I installed the following object on the mail server http://www.xs4all.nl/~jarit/asp/filefunc/download.html 2) made a .vbs file called check4files.vbs and put it in the C:\IMAIL\spool\spam\hold2 dir. The code in the .vbs file is like this.. === filepath=C:\IMAIL\spool\spam\hold2\*.smd emailfrom=[EMAIL PROTECTED] emailto=[EMAIL PROTECTED] Set FFunc = CreateObject(FileFunctions.files) if FFunc.Exists(filepath) then FFunc.GetFileList(filepath) Set objMessage = CreateObject(CDO.Message) objMessage.Subject = (Alert) FFunc.Count Messages in The Hold Queue objMessage.From = emailfrom objMessage.To = emailto strBody = strBody There are currently FFunc.Count files in the Hold Queue vbCRLF strBody = strBodyvbCRLF strBody = strBody Date:FormatDateTime(Date, 1) - FormatDateTime(Now, 4) objMessage.TextBody = strBody objMessage.Send end if 3) Then I set up a scheduled task in the windows schduled tasks to run the file every 30 minutes. I hope that helps you. Kindest Regards Craig Edmonds 123 Marbella Internet W: www.123marbella.com E : [EMAIL PROTECTED] = -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of John Doyle Sent: Wednesday, March 29, 2006 9:25 PM To: Declude.JunkMail@declude.com Subject: [Declude.JunkMail] Hijack Notification Does anyone have a utility to email a notification when hijack holds an ip address permanently? Thanks in advance John --- This E-mail came from the Declude.JunkMail mailing list. To unsubscribe, just send an E-mail to [EMAIL PROTECTED], and type unsubscribe Declude.JunkMail. The archives can be found at http://www.mail-archive.com. [ This E-mail has been scanned for Spam and Viruses by Declude ] [ Thank You For Using 123 Marbella Internet ] [ This E-mail has been scanned for Spam and Viruses by Declude ] [ Thank You For Using 123 Marbella Internet ] --- This E-mail came from the Declude.JunkMail mailing list. To unsubscribe, just send an E-mail to [EMAIL PROTECTED], and type unsubscribe Declude.JunkMail. The archives can be found at http://www.mail-archive.com. --- This E-mail came from the Declude.JunkMail mailing list. To unsubscribe, just send an E-mail to [EMAIL PROTECTED], and type unsubscribe Declude.JunkMail. The archives can be found at http://www.mail-archive.com. --- This E-mail came from the Declude.JunkMail mailing list. To unsubscribe, just send an E-mail to [EMAIL PROTECTED], and type unsubscribe Declude.JunkMail. The archives can be found at http://www.mail-archive.com.
Re: [Declude.JunkMail] Hijack Notification
Hi John,
John Doyle wrote:
this guy suggested this.
I'm not sure exactly how. looks like if a count is some value send the
mail.
I was just suggesting that the number of files in the spool dir exceed
some number [100?] then send an email. I got the idea from the hijack
vbs code [Thanks!] on the declude website which I kludged to work to
notify for the spool overflows..
-Nick
# spool_mon.vbs
fSpool = "e:\imaillogs\spool"
aMail = "e:\imail\imail1.exe "
mFrom = "-u '[EMAIL PROTECTED]' "
mTo1 = "-t '[EMAIL PROTECTED],[EMAIL PROTECTED]' "
if GetFileCount(fSpool) 100 then
MailNotice "Spool", GetFileCount(fSpool), mTo1
end if
Function GetFileCount(folderspec)
Dim fso, f, f1, fc
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set fc = f.Files
GetFileCount = fc.count
End Function
Function MailNotice(fname, fcount, mTo)
Dim mCmd, mSubj, WshShell
set WshShell = WScript.CreateObject("WScript.Shell")
mSubj = "-s 'Mail held in " fname ": " fcount
"' "
mCmd = aMail mFrom mTo mSubj "-f
placeholder.txt"
Return = WshShell.Run(mCmd , 1, TRUE)
End Function
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]]On Behalf Of Nick Hayer
Sent: Sunday, April 02, 2006 7:59 AM
To: Declude.JunkMail@declude.com
Subject: Re: [Declude.JunkMail] Hijack Notification
Hi Craig,
Although you may already do this figured I mention it anyway - this
technique works well to monitor spool traffic eg when a threshold is
reached I get an email - so for example in your code below IF
FFunc.Count 100 [altered path for the spool dir] send me an email...
-Nick
Craig Edmonds wrote:
Hi John,
Not sure if this is any help but I found a basic way to handle this as I
had
problems with clients ringing up saying "I sent out some mails and they
have
not gone"...etc etc etc, and of course when I check the hold2 directory
there are 500 emails in there.
What I do is have a basic setup that checks for me every 30 minutes if
there
are some .smd files in the C:\IMAIL\spool\spam\hold2 folder and if it finds
any, it emails me a simple email telling me how many *smd files there are
which then goes to my blackberry letting me know.
I am pretty sure there is an easier way but this is my 10 minute solution
and it works for me.
1) I installed the following object on the mail server
http://www.xs4all.nl/~jarit/asp/filefunc/download.html
2) made a .vbs file called check4files.vbs and put it in the
C:\IMAIL\spool\spam\hold2 dir.
The code in the .vbs file is like this..
===
filepath="C:\IMAIL\spool\spam\hold2\*.smd"
emailfrom="[EMAIL PROTECTED]"
emailto="[EMAIL PROTECTED]"
Set FFunc = CreateObject("FileFunctions.files")
if FFunc.Exists(filepath) then
FFunc.GetFileList(filepath)
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "(Alert) " FFunc.Count " Messages in The Hold
Queue"
objMessage.From = emailfrom
objMessage.To = emailto
strBody = strBody "There are currently " FFunc.Count " files in
the
Hold Queue" vbCRLF
strBody = strBody "" vbCRLF
strBody = strBody "Date: " FormatDateTime(Date, 1) " - "
FormatDateTime(Now, 4)
objMessage.TextBody = strBody
objMessage.Send
end if
3) Then I set up a scheduled task in the windows schduled tasks to run the
file every 30 minutes.
I hope that helps you.
Kindest Regards
Craig Edmonds
123 Marbella Internet
W: www.123marbella.com
E : [EMAIL PROTECTED]
=========
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]] On Behalf Of John Doyle
Sent: Wednesday, March 29, 2006 9:25 PM
To: Declude.JunkMail@declude.com
Subject: [Declude.JunkMail] Hijack Notification
Does anyone have a utility to email a notification when hijack holds an ip
address permanently?
Thanks in advance
John
---
This E-mail came from the Declude.JunkMail mailing list. To unsubscribe,
just send an E-mail to [EMAIL PROTECTED], and type "unsubscribe
Declude.JunkMail". The archives can be found at
http://www.mail-archive.com.
[ This E-mail has been scanned for Spam and Viruses by Declude ] [ Thank
You
For Using 123 Marbella Internet ]
[ This E-mail has been scanned for Spam and Viruses by Declude ]
[ Thank You For Using 123 Marbella Internet ]
---
This E-mail came from the Declude.JunkMail mailing list. To
unsubscribe, just send an E-mail to [EMAIL PROTECTED], and
type "unsubscribe Declude.JunkMail". The archives can be found
at http://www.mail-archive.com.
---
This E-mail came from the Declude.JunkMail mailing list. To
uns
RE: [Declude.JunkMail] Hijack Notification
I think I understand, Im not a programmer and its semi Greek to me. I like the idea of getting notified if the spool file begins to fill up, I check it now and then and if would be nice To simply be notified if it begins to back up for whatever reason. John . From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Nick Hayer Sent: Monday, April 03, 2006 11:03 AM To: Declude.JunkMail@declude.com Subject: Re: [Declude.JunkMail] Hijack Notification Hi John, John Doyle wrote: this guy suggested this.I'm not sure exactly how. looks like if a count is some value send themail. I was just suggesting that the number of files in the spool dir exceed some number [100?] then send an email. I got the idea from the hijack vbs code [Thanks!] on the declude website which I kludged to work to notify for the spool overflows.. -Nick # spool_mon.vbs fSpool = e:\imaillogs\spool aMail = e:\imail\imail1.exe mFrom = -u '[EMAIL PROTECTED]' mTo1 = -t '[EMAIL PROTECTED],[EMAIL PROTECTED]' if GetFileCount(fSpool) 100 then MailNotice Spool, GetFileCount(fSpool), mTo1 end if Function GetFileCount(folderspec) Dim fso, f, f1, fc Set fso = CreateObject(Scripting.FileSystemObject) Set f = fso.GetFolder(folderspec) Set fc = f.Files GetFileCount = fc.count End Function Function MailNotice(fname, fcount, mTo) Dim mCmd, mSubj, WshShell set WshShell = WScript.CreateObject(WScript.Shell) mSubj = -s 'Mail held in fname : fcount ' mCmd = aMail mFrom mTo mSubj -f placeholder.txt Return = WshShell.Run(mCmd , 1, TRUE) End Function -Original Message-From: [EMAIL PROTECTED][mailto:[EMAIL PROTECTED]]On Behalf Of Nick HayerSent: Sunday, April 02, 2006 7:59 AMTo: Declude.JunkMail@declude.comSubject: Re: [Declude.JunkMail] Hijack NotificationHi Craig,Although you may already do this figured I mention it anyway - thistechnique works well to monitor spool traffic eg when a threshold isreached I get an email - so for example in your code below IFFFunc.Count 100 [altered path for the spool dir] send me an email...-NickCraig Edmonds wrote: Hi John,Not sure if this is any help but I found a basic way to handle this as I had problems with clients ringing up saying I sent out some mails and they have not gone...etc etc etc, and of course when I check the hold2 directorythere are 500 emails in there.What I do is have a basic setup that checks for me every 30 minutes if there are some .smd files in the C:\IMAIL\spool\spam\hold2 folder and if it findsany, it emails me a simple email telling me how many *smd files there arewhich then goes to my blackberry letting me know.I am pretty sure there is an easier way but this is my 10 minute solutionand it works for me.1) I installed the following object on the mail serverhttp://www.xs4all.nl/~jarit/asp/filefunc/download.html2) made a .vbs file called check4files.vbs and put it in theC:\IMAIL\spool\spam\hold2 dir.The code in the .vbs file is like this..===filepath=C:\IMAIL\spool\spam\hold2\*.smdemailfrom=[EMAIL PROTECTED]emailto=[EMAIL PROTECTED]Set FFunc = CreateObject(FileFunctions.files)if FFunc.Exists(filepath) thenFFunc.GetFileList(filepath) Set objMessage = CreateObject(CDO.Message) objMessage.Subject = (Alert) FFunc.Count Messages in The HoldQueue objMessage.From = emailfrom objMessage.To = emailto strBody = strBody There are currently FFunc.Count files in the Hold Queue vbCRLF strBody = strBodyvbCRLF strBody = strBody Date: FormatDateTime(Date, 1) - FormatDateTime(Now, 4) objMessage.TextBody = strBody objMessage.Sendend if3) Then I set up a scheduled task in the windows schduled tasks to run thefile every 30 minutes.I hope that helps you.Kindest RegardsCraig Edmonds123 Marbella InternetW: www.123marbella.comE : [EMAIL PROTECTED]=-Original Message-From: [EMAIL PROTECTED][mailto:[EMAIL PROTECTED]] On Behalf Of John DoyleSent: Wednesday, March 29, 2006 9:25 PMTo: Declude.JunkMail@declude.comSubject: [Declude.JunkMail] Hijack NotificationDoes anyone have a utility to email a notification when hijack holds an ipaddress permanently?Thanks in advanceJohn---This E-mail came from the Declude.JunkMail mailing list. To unsubscribe,just send an E-mail to [EMAIL PROTECTED], and type unsubscribeDeclude.JunkMail. The archives can be found athttp://www.mail-archive.com.[ This E-mail has been scanned for Spam and Viruses by Declude ] [ Thank You For Using 123 Marbella Internet ][ This E-mail has been scanned for Spam and Viruses by Declude ][ Thank You For Using 123 Marbella Internet ]---This E-mail came from the Declude.JunkMail mailing list. Tounsubscribe, just send an E-mail to [EMAIL PROTECTED], andtype unsubscribe Declude.JunkMail. The archives can be foundat http://www.mail-archive.com. ---This E-mail came from the Declude.JunkMail mailing list. Tounsubscribe, just send an E-mail to [EMAIL PROTECTED
Re: [Declude.JunkMail] Hijack Notification
John Doyle wrote:
I think I
understand, Im not a
programmer and its semi Greek to me.
I like the
idea of getting notified if the
spool file begins to fill up, I check it now and then and if would be
nice
To simply be
notified if it begins to back
up for whatever reason.
agreed!
Take that code, adjust the paths/email addresses as need be, save it as
a .vbs file and give it a twirl. Set the count real low so you can see
it work and then set it to whatever alarm level you would like -
-Nick
John
.
From:
[EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]] On
Behalf Of Nick Hayer
Sent: Monday, April
03, 2006 11:03
AM
To:
Declude.JunkMail@declude.com
Subject: Re:
[Declude.JunkMail]
Hijack Notification
Hi John,
John Doyle wrote:
this guy suggested this.
I'm not sure exactly how. looks like if a count is some value send the
mail.
I was just suggesting that the number of files in the spool dir exceed
some
number [100?] then send an email. I got the idea from the hijack
vbs code [Thanks!] on the declude website which I kludged to work to
notify for
the spool overflows..
-Nick
# spool_mon.vbs
fSpool = "e:\imaillogs\spool"
aMail = "e:\imail\imail1.exe "
mFrom = "-u '[EMAIL PROTECTED]'
"
mTo1 = "-t '[EMAIL PROTECTED],[EMAIL PROTECTED]'
"
if GetFileCount(fSpool) 100 then
MailNotice "Spool", GetFileCount(fSpool), mTo1
end if
Function GetFileCount(folderspec)
Dim fso, f, f1, fc
Set fso =
CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set fc = f.Files
GetFileCount = fc.count
End Function
Function MailNotice(fname, fcount, mTo)
Dim mCmd, mSubj, WshShell
set WshShell =
WScript.CreateObject("WScript.Shell")
mSubj = "-s 'Mail held in " fname
": " fcount "' "
mCmd = aMail mFrom mTo mSubj
"-f placeholder.txt"
Return = WshShell.Run(mCmd , 1, TRUE)
End Function
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]]On Behalf Of Nick Hayer
Sent: Sunday, April 02, 2006 7:59 AM
To: Declude.JunkMail@declude.com
Subject: Re: [Declude.JunkMail] Hijack Notification
Hi Craig,
Although you may already do this figured I mention it anyway - this
technique works well to monitor spool traffic eg when a threshold is
reached I get an email - so for example in your code below IF
FFunc.Count 100 [altered path for the spool dir] send me an email...
-Nick
Craig Edmonds wrote:
Hi John,
Not sure if this is any help but I found a basic way to handle this as I
had
problems with clients ringing up saying "I sent out some mails and they
have
not gone"...etc etc etc, and of course when I check the hold2 directory
there are 500 emails in there.
What I do is have a basic setup that checks for me every 30 minutes if
there
are some .smd files in the C:\IMAIL\spool\spam\hold2 folder and if it finds
any, it emails me a simple email telling me how many *smd files there are
which then goes to my blackberry letting me know.
I am pretty sure there is an easier way but this is my 10 minute solution
and it works for me.
1) I installed the following object on the mail server
http://www.xs4all.nl/~jarit/asp/filefunc/download.html
2) made a .vbs file called check4files.vbs and put it in the
C:\IMAIL\spool\spam\hold2 dir.
The code in the .vbs file is like this..
===
filepath="C:\IMAIL\spool\spam\hold2\*.smd"
emailfrom="[EMAIL PROTECTED]"
emailto="[EMAIL PROTECTED]"
Set FFunc = CreateObject("FileFunctions.files")
if FFunc.Exists(filepath) then
FFunc.GetFileList(filepath)
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "(Alert) " FFunc.Count " Messages in The Hold
Queue"
objMessage.From = emailfrom
objMessage.To = emailto
strBody = strBody "There are currently " FFunc.Count " files in
the
Hold Queue" vbCRLF
strBody = strBody "" vbCRLF
strBody = strBody "Date: " FormatDateTime(Date, 1) " - "
FormatDateTime(Now, 4)
objMessage.TextBody = strBody
objMessage.Send
end if
3) Then I set up a scheduled task in the windows schduled tasks to run the
file every 30 minutes.
I hope that helps you.
Kindest Regards
Craig Edmonds
123 Marbella Internet
W: www.123marbella.com
E : [EMAIL PROTECTED]
=====
-----Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL
RE: [Declude.JunkMail] Hijack Notification
QueueMon is excellent for monitoring and logging these things, and very affordable too. http://www.invariantsystems.com/queuemon/ FYI, it doesn't official support SmarterMail, but it works perfectly fine on my SmarterMail servers. Thanks! - Jay Sudowski // Handy Networks LLC Director of Technical Operations Providing Shared, Reseller, Semi Managed and Fully Managed Windows 2003 Hosting Solutions Tel: 877-70 HANDY x882 | Fax: 888-300-2FAX www.handynetworks.com From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of John Doyle Sent: Monday, April 03, 2006 4:51 PM To: Declude.JunkMail@declude.com Subject: RE: [Declude.JunkMail] Hijack Notification I think I understand, I'm not a programmer and it's semi Greek to me. I like the idea of getting notified if the spool file begins to fill up, I check it now and then and if would be nice To simply be notified if it begins to back up for whatever reason. John . From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Nick Hayer Sent: Monday, April 03, 2006 11:03 AM To: Declude.JunkMail@declude.com Subject: Re: [Declude.JunkMail] Hijack Notification Hi John, John Doyle wrote: this guy suggested this. I'm not sure exactly how. looks like if a count is some value send the mail. I was just suggesting that the number of files in the spool dir exceed some number [100?] then send an email. I got the idea from the hijack vbs code [Thanks!] on the declude website which I kludged to work to notify for the spool overflows.. -Nick # spool_mon.vbs fSpool = e:\imaillogs\spool aMail = e:\imail\imail1.exe mFrom = -u '[EMAIL PROTECTED]' mTo1 = -t '[EMAIL PROTECTED],[EMAIL PROTECTED]' if GetFileCount(fSpool) 100 then MailNotice Spool, GetFileCount(fSpool), mTo1 end if Function GetFileCount(folderspec) Dim fso, f, f1, fc Set fso = CreateObject(Scripting.FileSystemObject) Set f = fso.GetFolder(folderspec) Set fc = f.Files GetFileCount = fc.count End Function Function MailNotice(fname, fcount, mTo) Dim mCmd, mSubj, WshShell set WshShell = WScript.CreateObject(WScript.Shell) mSubj = -s 'Mail held in fname : fcount ' mCmd = aMail mFrom mTo mSubj -f placeholder.txt Return = WshShell.Run(mCmd , 1, TRUE) End Function -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Nick Hayer Sent: Sunday, April 02, 2006 7:59 AM To: Declude.JunkMail@declude.com Subject: Re: [Declude.JunkMail] Hijack Notification Hi Craig, Although you may already do this figured I mention it anyway - this technique works well to monitor spool traffic eg when a threshold is reached I get an email - so for example in your code below IF FFunc.Count 100 [altered path for the spool dir] send me an email... -Nick Craig Edmonds wrote: Hi John, Not sure if this is any help but I found a basic way to handle this as I had problems with clients ringing up saying I sent out some mails and they have not gone...etc etc etc, and of course when I check the hold2 directory there are 500 emails in there. What I do is have a basic setup that checks for me every 30 minutes if there are some .smd files in the C:\IMAIL\spool\spam\hold2 folder and if it finds any, it emails me a simple email telling me how many *smd files there are which then goes to my blackberry letting me know. I am pretty sure there is an easier way but this is my 10 minute solution and it works for me. 1) I installed the following object on the mail server http://www.xs4all.nl/~jarit/asp/filefunc/download.html 2) made a .vbs file called check4files.vbs and put it in the C:\IMAIL\spool\spam\hold2 dir. The code in the .vbs file is like this.. === filepath=C:\IMAIL\spool\spam\hold2\*.smd emailfrom=[EMAIL PROTECTED] emailto=[EMAIL PROTECTED] Set FFunc = CreateObject(FileFunctions.files) if FFunc.Exists(filepath) then FFunc.GetFileList(filepath) Set objMessage = CreateObject(CDO.Message) objMessage.Subject = (Alert) FFunc.Count Messages in The Hold Queue objMessage.From = emailfrom objMessage.To = emailto strBody = strBody There are currently FFunc.Count files in the Hold Queue vbCRLF strBody = strBodyvbCRLF strBody = strBody Date: FormatDateTime(Date, 1) - FormatDateTime(Now, 4) objMessage.TextBody = strBody objMessage.Send end if 3) Then I set up a scheduled task in the windows schduled tasks to run the file every 30 minutes. I hope that helps you. Kindest Regards Craig Edmonds 123 Marbella Internet W: www.123marbella.com E : [EMAIL PROTECTED] = -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of John Doyle Sent: Wednesday, March 29, 2006 9:25 PM To: Declude.JunkMail@declude.com Subject: [Declude.JunkMail] Hijack Notification Does anyone
RE: [Declude.JunkMail] Hijack Notification
Hi John, Not sure if this is any help but I found a basic way to handle this as I had problems with clients ringing up saying I sent out some mails and they have not gone...etc etc etc, and of course when I check the hold2 directory there are 500 emails in there. What I do is have a basic setup that checks for me every 30 minutes if there are some .smd files in the C:\IMAIL\spool\spam\hold2 folder and if it finds any, it emails me a simple email telling me how many *smd files there are which then goes to my blackberry letting me know. I am pretty sure there is an easier way but this is my 10 minute solution and it works for me. 1) I installed the following object on the mail server http://www.xs4all.nl/~jarit/asp/filefunc/download.html 2) made a .vbs file called check4files.vbs and put it in the C:\IMAIL\spool\spam\hold2 dir. The code in the .vbs file is like this.. === filepath=C:\IMAIL\spool\spam\hold2\*.smd emailfrom=[EMAIL PROTECTED] emailto=[EMAIL PROTECTED] Set FFunc = CreateObject(FileFunctions.files) if FFunc.Exists(filepath) then FFunc.GetFileList(filepath) Set objMessage = CreateObject(CDO.Message) objMessage.Subject = (Alert) FFunc.Count Messages in The Hold Queue objMessage.From = emailfrom objMessage.To = emailto strBody = strBody There are currently FFunc.Count files in the Hold Queue vbCRLF strBody = strBodyvbCRLF strBody = strBody Date:FormatDateTime(Date, 1) - FormatDateTime(Now, 4) objMessage.TextBody = strBody objMessage.Send end if 3) Then I set up a scheduled task in the windows schduled tasks to run the file every 30 minutes. I hope that helps you. Kindest Regards Craig Edmonds 123 Marbella Internet W: www.123marbella.com E : [EMAIL PROTECTED] = -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of John Doyle Sent: Wednesday, March 29, 2006 9:25 PM To: Declude.JunkMail@declude.com Subject: [Declude.JunkMail] Hijack Notification Does anyone have a utility to email a notification when hijack holds an ip address permanently? Thanks in advance John --- This E-mail came from the Declude.JunkMail mailing list. To unsubscribe, just send an E-mail to [EMAIL PROTECTED], and type unsubscribe Declude.JunkMail. The archives can be found at http://www.mail-archive.com. [ This E-mail has been scanned for Spam and Viruses by Declude ] [ Thank You For Using 123 Marbella Internet ] [ This E-mail has been scanned for Spam and Viruses by Declude ] [ Thank You For Using 123 Marbella Internet ] --- This E-mail came from the Declude.JunkMail mailing list. To unsubscribe, just send an E-mail to [EMAIL PROTECTED], and type unsubscribe Declude.JunkMail. The archives can be found at http://www.mail-archive.com.
Re: [Declude.JunkMail] Hijack Notification
Hi Craig, Although you may already do this figured I mention it anyway - this technique works well to monitor spool traffic eg when a threshold is reached I get an email - so for example in your code below IF FFunc.Count 100 [altered path for the spool dir] send me an email... -Nick Craig Edmonds wrote: Hi John, Not sure if this is any help but I found a basic way to handle this as I had problems with clients ringing up saying I sent out some mails and they have not gone...etc etc etc, and of course when I check the hold2 directory there are 500 emails in there. What I do is have a basic setup that checks for me every 30 minutes if there are some .smd files in the C:\IMAIL\spool\spam\hold2 folder and if it finds any, it emails me a simple email telling me how many *smd files there are which then goes to my blackberry letting me know. I am pretty sure there is an easier way but this is my 10 minute solution and it works for me. 1) I installed the following object on the mail server http://www.xs4all.nl/~jarit/asp/filefunc/download.html 2) made a .vbs file called check4files.vbs and put it in the C:\IMAIL\spool\spam\hold2 dir. The code in the .vbs file is like this.. === filepath=C:\IMAIL\spool\spam\hold2\*.smd emailfrom=[EMAIL PROTECTED] emailto=[EMAIL PROTECTED] Set FFunc = CreateObject(FileFunctions.files) if FFunc.Exists(filepath) then FFunc.GetFileList(filepath) Set objMessage = CreateObject(CDO.Message) objMessage.Subject = (Alert) FFunc.Count Messages in The Hold Queue objMessage.From = emailfrom objMessage.To = emailto strBody = strBody There are currently FFunc.Count files in the Hold Queue vbCRLF strBody = strBodyvbCRLF strBody = strBody Date:FormatDateTime(Date, 1) - FormatDateTime(Now, 4) objMessage.TextBody = strBody objMessage.Send end if 3) Then I set up a scheduled task in the windows schduled tasks to run the file every 30 minutes. I hope that helps you. Kindest Regards Craig Edmonds 123 Marbella Internet W: www.123marbella.com E : [EMAIL PROTECTED] = -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of John Doyle Sent: Wednesday, March 29, 2006 9:25 PM To: Declude.JunkMail@declude.com Subject: [Declude.JunkMail] Hijack Notification Does anyone have a utility to email a notification when hijack holds an ip address permanently? Thanks in advance John --- This E-mail came from the Declude.JunkMail mailing list. To unsubscribe, just send an E-mail to [EMAIL PROTECTED], and type unsubscribe Declude.JunkMail. The archives can be found at http://www.mail-archive.com. [ This E-mail has been scanned for Spam and Viruses by Declude ] [ Thank You For Using 123 Marbella Internet ] [ This E-mail has been scanned for Spam and Viruses by Declude ] [ Thank You For Using 123 Marbella Internet ] --- This E-mail came from the Declude.JunkMail mailing list. To unsubscribe, just send an E-mail to [EMAIL PROTECTED], and type unsubscribe Declude.JunkMail. The archives can be found at http://www.mail-archive.com. --- This E-mail came from the Declude.JunkMail mailing list. To unsubscribe, just send an E-mail to [EMAIL PROTECTED], and type unsubscribe Declude.JunkMail. The archives can be found at http://www.mail-archive.com.
[Declude.JunkMail] Hijack Notification
Does anyone have a utility to email a notification when hijack holds an ip address permanently? Thanks in advance John --- This E-mail came from the Declude.JunkMail mailing list. To unsubscribe, just send an E-mail to [EMAIL PROTECTED], and type unsubscribe Declude.JunkMail. The archives can be found at http://www.mail-archive.com.
RE: [Declude.JunkMail] Hijack Notification
There is a scheduled script that I use that was created by another user a couple years ago. I will post it to the list later tonight if desired. John T eServices For You Seek, and ye shall find! -Original Message- From: [EMAIL PROTECTED] [mailto:Declude.JunkMail- [EMAIL PROTECTED] On Behalf Of John Doyle Sent: Wednesday, March 29, 2006 11:25 AM To: Declude.JunkMail@declude.com Subject: [Declude.JunkMail] Hijack Notification Does anyone have a utility to email a notification when hijack holds an ip address permanently? Thanks in advance John --- This E-mail came from the Declude.JunkMail mailing list. To unsubscribe, just send an E-mail to [EMAIL PROTECTED], and type unsubscribe Declude.JunkMail. The archives can be found at http://www.mail-archive.com. --- This E-mail came from the Declude.JunkMail mailing list. To unsubscribe, just send an E-mail to [EMAIL PROTECTED], and type unsubscribe Declude.JunkMail. The archives can be found at http://www.mail-archive.com.
