Kuliah Praktek WSH---Kuliah 3 Membuat Email
Penulis：Eve Cole
Waktu Pembaruan：2009-05-30 19:53:45
Saat membuat kotak surat, situasinya menjadi rumit karena Anda mungkin menggunakan server email yang berbeda. Ada yang memasukkan informasi email ke dalam file teks, ada yang memasukkan informasi ke dalam registri, dan ada pula yang menyediakan antarmuka ADSI, jadi itu tergantung pada situasi spesifik.
Untuk informasi email pengguna dalam file teks, Anda dapat langsung mengoperasikan file teks tersebut. Berikut adalah contoh kode untuk menulis file teks:
F
wxya
Setel fs = WScript.CreateObject("Scripting.FileSystemObject")
Setel fw = fs.CreateTextFile("c:users.dat")
fw.WriteLine "pengguna1,[email protected],,,"
Untuk informasi pengguna yang ditempatkan di registri, Anda dapat menggunakan WSH untuk mengoperasikan registri secara langsung guna menyelesaikan pembuatan kotak surat. Misalnya, informasi pengguna IMAIL ditempatkan di registri.
Di bawah HKEY_localmacineSoftWareIPswitchdomain. Satu-satunya hal yang menyusahkan tentang kata sandi awal kotak surat adalah kita tidak mengetahui algoritma enkripsinya. Oleh karena itu, kami hanya dapat membuat kotak surat secara manual terlebih dahulu, lalu menggunakan kata sandi tetap untuk melihatnya setelah mengenkripsinya. Skrip kami juga akan menggunakannya saat membuat kotak surat lain. Masalahnya adalah kita harus memberi tahu pengguna bahwa mereka harus mengubah kata sandi mereka di masa depan, jika tidak maka tidak aman.
Exchange Server menyediakan antarmuka ADSI, yang memudahkan pembuatan kotak surat. Dan kotak suratnya bisa disinkronkan dengan pengguna domain NT. Berikut ini contoh kodenya:
objContainer = GetObject("LDAP://SERVERNAME/o=OrgName/ou=SiteName/cn=Recipients")
objUser = objContainer.Create("Alamat Jarak Jauh", "cn=CustRecip")
objUser.cn = "Resep Pelanggan"
objUser.Masukkan "Alamat-Target", "SMTP:[email protected]"
objUser.Put "Internet-Encoding", 1310720objUser.UID = "CustRecip"
objUser.textEncodedORaddress = "c=US;a= ;p=DOIT;o=CDO;s=CustRecip;"
objUser.Mail = "[email protected]"
objUser.Masukkan "kotak surat lain", "MS:OrgName/SiteName/CustRecip"
objUser.Masukkan "Sensitivitas Replikasi", 20
objUser.Masukkan "Penerima MAPI", Salah
objUser.SetInfo
WScript.Echo objUser.cn
Untuk i = 1ToobjUser.PropertyCount
Setel vProp = objUser.Berikutnya
WScript.Echo vProp.Nama
Berikutnya
Catatan: Karena saya tidak memiliki Exchange Server untuk eksperimen sekarang, kode di atas belum diuji. Jika Anda memiliki pertanyaan, silakan buka sumber aslinya untuk mendapatkan solusi.
Script ini, dengan sedikit modifikasi, juga dapat digunakan di ASP.
