محاضرة WSH العملية --- المحاضرة 3 إنشاء البريد الإلكتروني
الكاتب：Eve Cole
وقت التحديث：2009-05-30 19:53:45
عند إنشاء صناديق البريد، يكون الوضع معقدًا لأنك قد تستخدم خوادم بريد إلكتروني مختلفة. يقوم البعض بوضع معلومات البريد الإلكتروني في ملفات نصية، والبعض الآخر يضع المعلومات في السجل، والبعض الآخر يوفر واجهات ADSI، لذلك يعتمد الأمر على الموقف المحدد.
للحصول على معلومات البريد الإلكتروني للمستخدم في ملف نصي، يمكنك تشغيل الملف النصي مباشرةً، وفيما يلي مثال للتعليمات البرمجية لكتابة ملف نصي:
و
wxya
تعيين خ = WScript.CreateObject("Scripting.FileSystemObject")
تعيين مهاجم = fs.CreateTextFile("c:users.dat")
fw.WriteLine "user1,[email protected],,,"
بالنسبة لمعلومات المستخدم الموضوعة في السجل، يمكنك استخدام WSH لتشغيل السجل مباشرةً لإكمال إنشاء صندوق البريد. على سبيل المثال، يتم وضع معلومات مستخدم IMAIL في السجل.
ضمن HKEY_localmacineSoftWareIPswitchdomain. الشيء الوحيد المزعج فيما يتعلق بكلمة المرور الأولية لصندوق البريد هو أننا لا نعرف خوارزمية التشفير الخاصة به. لذلك، يمكننا فقط إنشاء صندوق بريد يدويًا أولاً، ثم استخدام كلمة مرور ثابتة لمعرفة ماهيتها بعد تشفيرها، وسيستخدمها البرنامج النصي الخاص بنا أيضًا عند إنشاء صناديق بريد أخرى. تكمن المشكلة في أننا يجب أن نخبر المستخدمين أنه يجب عليهم تغيير كلمات المرور الخاصة بهم في المستقبل، وإلا فإن الأمر غير آمن.
يوفر Exchange Server واجهة ADSI، مما يجعل من السهل إنشاء صناديق البريد. ويمكن مزامنة صندوق البريد الخاص به مع مستخدمي مجال NT. هنا نموذج التعليمات البرمجية:
objContainer = GetObject("LDAP://SERVERNAME/o=OrgName/ou=SiteName/cn=Recipients")
objUser = objContainer.Create("العنوان البعيد"، "cn=CustRecip")
objUser.cn = "CustRecip"
objUser.Put "عنوان الهدف"، "SMTP:[email protected]"
objUser.Put "ترميز الإنترنت"، 1310720objUser.UID = "CustRecip"
objUser.textEncodedORaddress = "c=US;a= ;p=DOIT;o=CDO;s=CustRecip;"
objUser.Mail = "[email protected]"
objUser.Put "otherMailbox"، "MS:OrgName/SiteName/CustRecip"
objUser.Put "حساسية النسخ المتماثل"، 20
objUser.Put "MAPI-Recipient"، خطأ
objUser.SetInfo
WScript.Echo objUser.cn
لأني = 1ToobjUser.PropertyCount
تعيين vProp = objUser.Next
WScript.Echo vProp.Name
التالي
ملاحظة: بما أنني لا أملك Exchange Server للتجارب الآن، لم يتم اختبار الكود أعلاه. إذا كانت لديك أي أسئلة، فيرجى الانتقال إلى مصدره الأصلي للحصول على الحلول.
يمكن أيضًا استخدام هذا البرنامج النصي، مع بعض التعديلات الطفيفة، في ASP.
