Exchange Server Forums

Virus

Users viewing this topic: none

Logged in as: Guest

Printable Version

All Forums >> [Microsoft Exchange 2003] >> Server Security >> Virus

Page: [1]

Message

<< Older Topic Newer Topic >>

Limited time MSExchange.org offer! -- 1.Sep.2008 1:00:00 PM

TechGenix and SolarWinds have partnered to provide free copies of SolarWinds Exchange Monitor to all visitors who join the MSExchange.org Forums. SolarWinds Exchange Monitor is a handy desktop dashboard that continuously monitors Microsoft Exchange to deliver real-time insight into Exchange services, mail queue sizes, and host server health. Learn more about Exchange Monitor and the free offer!

Virus - 16.Jun.2004 4:33:00 PM

Guest

It's probably not a virus sitting on your server. It's probably your exchange sending a message back to a sender saying that xyz@xyz.com is not a valid email address and since the majority of spammers don't use a valid email address, it gets bounced back to you. My mail server get's hundreds of these per day and I use a scrip[t in conjunction with scheduled tasks to delete the contents of this folder every 12 hours. It works for me. Here is a copy of the scipt I found and that I use. The only thing I would like to improve on is getting it to write an event so I can be sure that it has run on time by viewing it in the event viewer.

Dim objDir, objFil
Const DeleteReadOnly = True

objDir = "D:\Program Files\Exchsrvr\Mailroot\vsi 1\BadMail\"
objFil = "*.*"
Set objFSO = CreateObject("Scripting.FileSystemObject")

If objFSO.FolderExists(objDir) Then
objFSO.DeleteFile(objDir & objFil), DeleteReadOnly
Else
msgBox("Error: Directory Not Found - """ & objDir & """")
End If

Set objFSO = Nothing

Post #: 1