Como registrar um coletor de eventos transporte para o SMTP Service em Exchange 2000 Server

Voltar para o início

Registrar um coletor de eventos transporte para o serviço SMTP

1. Iniciar Windows Explorer.
2. Crie uma nova pasta chamada EventSink no diretório raiz (C:\EventSink)..
3. Copie o arquivo Smtpreg.vbs do Exchange Software Developers Kit para a pasta recém-criada..
4. Em Windows Explorer, aberto a pasta C:\EventSink, clique com o botão direito do mouse o painel esquerdo, apontar para Novo , e depois clique Documento de texto .
5. Nomeie o novo arquivo como Smtpmsgcheck.vbs.. Se for exibida uma caixa diálogo Renomear , clique sim .
6. Clique com o botão direito do mouse em seguida, clique o novo arquivo, e Editar . Código VBScript no editor de texto (notepad.exe), digite o seguinte:

   <SCRIPT LANGUAGE="VBScript"> 
   
   Sub IEventIsCacheable_IsCacheable() 
   	'To implement the interface, and return S_OK implicitly 
   End Sub
   
   Sub ISMTPOnArrival_OnArrival(ByVal Msg, EventStatus) 
   	Dim envFlds 
   	Dim colAttachs 
   	Dim iFound 
   	Set envFlds = Msg.EnvelopeFields 
   
   	If Msg.Subject = "" Or Len(Msg.Subject) < 5 Then 
   		iFound = 0 
   	Else 
   		iFound = Instr(1, Msg.Subject, "VIRUS", 1) ' First position of the word VIRUS 
   	End If
    
   	'Check whether the message contains a VBS attachment 
   	Set colAttachs = Msg.Attachments 
   	For Each oAttach in colAttachs 
   		If InStrRev(oAttach.FileName, ".vbs",-1, 1) = (Len(oAttach.FileName)-3) Then
   			iFound = 1 
   		End If
   	Next
   
   	If iFound > 0 Then 
   		'Do not deliver, place message in the Badmail directory. 
   		envFlds ("http://schemas.microsoft.com/cdo/smtpenvelope/messagestatus") = 3 
   		envFlds.Update  'Commit the changes of the message status 'Skip remain event sinks 
   		EventStatus = 1
   	End If 
   End Sub 
   
   </SCRIPT>

7. Salve as alterações, e feche o Bloco de notas..
8. Criar outro arquivo de texto, nomeie o arquivo Instsink.bat , clique com o botão direito do mouse o arquivo, e depois clique Editar . No Bloco de notas, digite as seguintes linhas::

   @Echo Off
   
   REM*********** The following 2 lines install the Event Sink to log SMTP Messages ***********
   Cscript smtpreg.vbs /add 1 onarrival SMTPMessageCheck CDO.SS_SMTPOnArrivalSink "mail from=*"
   Cscript smtpreg.vbs /setprop 1 onarrival SMTPMessageCheck Sink ScriptName "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
   					

9. Salve as alterações, e feche o Bloco de notas..
10. Clique em Iniciar , Executar , tipo clique cmde depois clique OK para iniciar o prompt de comando Windows 2000. Tipo cd \EventSink a alteração para a pasta C:\EventSink.
11. Tipo instsink.bate então pressionar ENTER para executar o arquivo em lotes e registrar o exemplo EventSink às mensagens log. Verifique se o coletor de eventos está registrado corretamente, e clique tipo exit e pressionar ENTER para encerrar o prompt de comando.
12. Clique em Iniciar , clique programas , clique Microsoft Exchange , e depois clique System Manager .
13. Servidores , clique em expansão servidor, clique SMTP , e depois reiniciar o Default SMTP Virtual Server .
14. Teste o coletor de eventos de transporte usando Telnet..

Voltar para o início