在Exchange 2000 Server中为SMTP服务注册传输事件接收

来源：互联网 作者：west263.com 时间：2008-02-23

西部数码-全国虚拟主机10强！40余项虚拟主机管理功能,全国领先!双线多线虚拟主机南北访问畅通无阻!免费赠送企业邮局,.CN域名,自助建站480元起,免费试用7天,满意再付款! P4主机租用799元/月.月付免压金!

概要

本文逐步介绍了如何通过传输事件接收来扩展简单邮件传输协议 (SMTP)。Microsoft Visual Basic Scripting Edition (VBScript) 代码检查传入的 SMTP 邮件中是否有包含单词“virus”的主题行和具备 .vbs 后缀的附件。这两种情况下，可疑邮件的传递都将被阻止。

为 SMTP 服务注册传输事件接收

1.	启动 Windows 资源管理器。
2.	在 C 盘根目录下创建名为 EventSink 的新文档夹 (C:\EventSink)。
3.	从 Exchange 软件研发工具包中将文档 Smtpreg.vbs 复制到新创建的文档夹中。
4.	在 Windows 资源管理器中，打开 C:\EventSink 文档夹，右键单击左侧窗格，指向新建，然后单击文本文档。
5.	将新文档命名为 Smtpmsgcheck.vbs。假如出现重命名对话框，请单击是。
6.	右键单击新文档，然后单击编辑。在编辑器（记事本）中输入下列 VBScript 代码：Sub IEventIsCacheable_IsCacheable()'To implement the interface, and return S_OK implicitlyEng SubSub ISMTPOnArrival_OnArrival(ByVal Msg, EventStatus )Dim envFldsDim colAttachsDim iFoundSet envFlds = Msg.EnvelopeFieldsIf Msg.Subject = "" Or Len(Msg.Subject) < 5 Then iFound = 0Else iFound = Instr(1, Msg.Subject, "VIRUS", 1) ' First position of the word VIRUSEnd If'Check whether the message contains a VBS attachmentSet colAttachs = Msg.AttachmentsFor Each oAttach in colAttachs If Instr(1, oAttach.FileName, "vbs", 1)> 0 Then iFound = 1NextIf iFound > 0 Then 'Do not deliver, place message in the Badmail directory.envFlds ("http://schemas.microsoft.com/cdo/smtpenvelope/messagestatus") = 3envFlds.Update 'Commit the changes of the message status'Skip remain event sinksEventStatus = 1End IfEnd Sub bitsCN.nET中国网管博客
7.	保存更改，然后关闭记事本。
	8.创建另一个文本文档，将文档命名为 Instsink.bat，右键单击该文档，然后单击编辑。在记事本中，输入下列行： `www_bitscn_com` @ECho OffREM********* The following 2 lines install the Event Sink to log SMTP Messages ********Cscript smtpreg.vbs /add 1 onarrival SMTPMessageCheckCDO.SS_SMTPOnArrivalSink "mail from="Cscript smtpreg.vbs /setprop 1 onarrival SMTPMessageCheck SinkScriptName "C:\EventSink\SMTPMsgCheck.vbs"REM *** Remove the 'REM' tag from the following line *REM * If you want to deinstall the Event Sink again ***REM cscript smtpreg.vbs /remove 1 onarrival SMTPMessageCheck bitsCN.nET中国网管博客
9.	保存更改，然后关闭记事本。
10.	单击开始，单击运行，键入 cmd，然后单击确定以启动 Windows 2000 命令提示符。键入 cd \EventSink 以更改到 C:\EventSink 文档夹。
11.	键入 instsink.bat，然后按 ENTER，执行批处理文档并注册 EventSink 示例以记录消息。验证事件接收已正确注册，然后键入 exit 并按 ENTER 退出命令提示符。
12.	单击开始，单击程式，单击 Microsoft Exchange，然后单击系统管理器。
13.	单击服务器，展开服务器，单击 SMTP，然后重新启动默认 SMTP 虚拟服务器。
14.	使用 Telnet 测试传输事件接收。