在Exchange 2000 Server中为SMTP服务注册传输事…

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中国网管博客
 

@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中国网管博客