Tips SistemThis article applies to a different operating system than the one you are using. Article content that may not be relevant to you is disabled.
Artikel ini selangkah demi selangkah menjelaskan cara untuk memperluas layanan protokol Transport surat sederhana (SMTP) dengan cara dari transportasi acara wastafel. Microsoft Visual Basic, Scripting Edition (VBScript), kode cek masuk SMTP pesan untuk baris subjek yang mengandung kata "virus" dan untuk lampiran yang memiliki ekstensi .vbs. Dalam kedua kasus, pengiriman pesan mencurigakan diblokir.
Mendaftar acara transportasi wastafel untuk layanan SMTP
Mulai Windows Explorer.
Buat folder baru yang disebut EventSink di bawah direktori root C (C:\EventSink).
Salin file Smtpreg.vbs dari Kit pengembang perangkat lunak valuta ke folder yang baru dibuat.
Di Windows Explorer, buka C:\EventSink folder, klik kanan pada pane kiri, arahkan ke Baru, lalu klik Teks dokumen.
Nama berkas Smtpmsgcheck.vbs. Jika Ubah nama kotak dialog muncul, klik Ya.
Klik kanan berkas yang baru, dan kemudian klik Mengedit. Dalam editor teks (Notepad.exe), masukkan kode VBScript berikut:
<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>
Simpan perubahan, dan kemudian tutup Notepad.
Membuat file teks yang lain, nama berkas Instsink.bat, klik kanan berkas, dan kemudian klik Mengedit. Pada Notepad, masukkan baris berikut:
@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
Simpan perubahan, dan kemudian tutup Notepad.
Klik Mulai, klik Menjalankan, jenis cmd, lalu klik Oke untuk memulai prompt perintah Windows 2000. Jenis CD \EventSink untuk mengubah ke C:\EventSink folder.
Jenis instsink.bat, kemudian tekan ENTER untuk Jalankan batch file dan daftar sampel EventSink untuk log pesan. Memverifikasi bahwa wastafel acara terdaftar dengan benar, dan kemudian ketik exit dan tekan ENTER untuk keluar dari prompt perintah.
Klik Mulai, klik Program, klik Microsoft Exchange, lalu klik Manajer sistem.
Klik Server, memperluas server Anda, klik SMTP, dan kemudian restart Default SMTP Virtual Server.
Menguji transportasi acara wastafel dengan menggunakan Telnet.
PENTING: Artikel ini diterjemahkan menggunakan perangkat lunak mesin penerjemah Microsoft dan bukan oleh seorang penerjemah. Microsoft menawarkan artikel yang diterjemahkan oleh seorang penerjemah maupun artikel yang diterjemahkan menggunakan mesin sehingga Anda akan memiliki akses ke seluruh artikel baru yang diterbitkan di Pangkalan Pengetahuan (Knowledge Base) dalam bahasa yang Anda gunakan. Namun, artikel yang diterjemahkan menggunakan mesin tidak selalu sempurna. Artikel tersebut mungkin memiliki kesalahan kosa kata, sintaksis, atau tata bahasa, hampir sama seperti orang asing yang berbicara dalam bahasa Anda. Microsoft tidak bertanggung jawab terhadap akurasi, kesalahan atau kerusakan yang disebabkan karena kesalahan penerjemahan konten atau penggunaannya oleh para pelanggan. Microsoft juga sering memperbarui perangkat lunak mesin penerjemah.
Klik disini untuk melihat versi Inggris dari artikel ini:313404
(http://support.microsoft.com/kb/313404/en-us/
)
Mondja el, hogy miért, és tudassa velünk, miként tudnánk javítani az információ min?ségén
Köszönjük! Ez az információ segítséget nyújt számunkra, hogy fejlesszük a támogatási tartalmat. További támogatási lehet?ségekért keresse fel a következ? webhelyet: Súgó és támogatási webhely.