Makale numarası: 313404 - Son Gözden Geçirme: 03 Aralık 2007 Pazartesi - Gözden geçirme: 6.4

Nasıl yapılır: Exchange 2000 Server'da SMTP hizmeti bir aktarım olay havuzunun kaydolun

İngilizce ve Türkçe'yi yan yana görüntülemeBuraya tıklayarak İngilizce ve Türkçe'yi yan yana görüntüleyebilirsiniz.
Otomatik TercümeOtomatik tercüme makalelerin ne olduğunu açıklayan yazıyı okumak için buraya tıklayın
Bu makalenin geçerli olduğu ürünleri görün.
Sistem İpucuBu makale, kullandığınızdan farklı bir işletim sistemine yöneliktir. Sizinle ilgili olmayabilecek makale içeriği devre dışı bırakıldı.

Bu Sayfada

Hepsini aç | Hepsini kapa

Özet

Bu adım adım makalede, Basit Posta Aktarım Protokolü (SMTP) hizmeti aracılığıyla bir aktarım olay havuzunun genişletmeye açıklamaktadır. Microsoft Visual Basic Scripting Edition (VBScript) kod gelen SMTP iletileri ve .vbs uzantılı eklerin "virus" sözcüğünü içeren bir satır için denetler. Her iki durumda da, şüpheli iletileri teslimini engellendi.

Üste

SMTP hizmeti için bir aktarım olay havuzunun kaydetme

  1. Windows Gezgini'ni başlatın.
  2. <a1>C</a1> (C:\EventSink) kök dizini altında EventSink adlı yeni bir klasör oluşturun.
  3. Smtpreg.vbs dosyasını Exchange Software Developers Kit yeni oluşturulan bir klasöre kopyalayın.
  4. Windows Gezgini'nde, C:\EventSink klasörünü açın, sonra da sol bölmesini sağ tıklatın, Yeni ' nin üzerine gelin ve Metin belgesi</a1>'ı tıklatın.
  5. Yeni bir dosya Smtpmsgcheck.vbs adı. Yeniden Adlandır iletişim kutusu belirirse, Evet ' i tıklatın.
  6. Yeni dosyayı sağ tıklatın ve sonra da <a2>Düzenle</a2>'yi tıklatın. Metin düzenleyicisinde (Notepad.exe), aşağıdaki VBScript kodu girin: 
    <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. Değişiklikleri kaydedin ve Not Defteri'ni kapatın.
  8. Başka bir metin dosyası oluşturun, Instsink.bat dosya adı, dosyayı sağ tıklatın ve sonra da <a2>Düzenle</a2>'yi tıklatın. Not Defteri'nde, aşağıdaki satırı girin: 
    @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. Değişiklikleri kaydedin ve Not Defteri'ni kapatın.
  10. Başlat ' ı tıklatın, Çalıştır ' ı tıklatın, cmd yazın ve sonra da Windows 2000 komut istemini başlatmak için Tamam ' ı tıklatın. Cd \EventSink C:\EventSink klasörü değiştirmek için yazın.
  11. Instsink.bat yazın ve sonra iletileri günlüğe EventSink örnek toplu iş dosyasını çalıştırmak ve ENTER tuşuna basın. Olay havuzunu düzgün kaydedildiğini doğrulamak ve daha sonra exit yazın ve sonra da komut isteminden çıkmak için ENTER tuşuna basın.
  12. Başlat ' ı tıklatın, Programlar ' ı tıklatın, Microsoft Exchange ' ı tıklatın ve sonra Sistem Yöneticisi ' ni tıklatın.
  13. Server ' ı tıklatın, sunucunuzu genişletin, SMTP ' ı tıklatın ve Varsayılan SMTP Sanal Sunucusu'nu yeniden başlatın.
  14. Aktarım olay havuzunun Telnet kullanarak sınayın.
Üste
Bu makaledeki bilginin uygulandığı durum:
  • Microsoft Exchange Server 2003 Enterprise Edition
  • Microsoft Exchange Server 2003 Standard Edition
  • Microsoft Exchange 2000 Server Standard Edition
  • Microsoft Windows Small Business Server 2003 Premium Edition
  • Microsoft Windows Small Business Server 2003 Standard Edition
Üste
Anahtar Kelimeler: 
kbmt kbhowtomaster KB313404 KbMttr
Üste
Otomatik TercümeOtomatik Tercüme
ÖNEMLİ: Bu makale, bir kişi tarafından çevrilmek yerine, Microsoft makine-çevirisi yazılımı ile çevrilmiştir. Microsoft size hem kişiler tarafından çevrilmiş, hem de makine-çevrisi ile çevrilmiş makaleler sunar. Böylelikle, bilgi bankamızdaki tüm makalelere, kendi dilinizde ulaşmış olursunuz. Bununla birlikte, makine tarafından çevrilmiş makaleler mükemmel değildir. Bir yabancının sizin dilinizde konuşurken yapabileceği hatalar gibi, makale; kelime dağarcığı, söz dizim kuralları veya dil bilgisi açısından yanlışlar içerebilir. Microsoft, içeriğin yanlış çevrimi veya onun müşteri tarafından kullanımından doğan; kusur, hata veya zarardan sorumlu değildir. Microsoft ayrıca makine çevirisi yazılımını sıkça güncellemektedir.
Makalenin İngilizcesi aşağıdaki gibidir:313404  (http://support.microsoft.com/kb/313404/en-us/ )
Üste