Практическая лекция WSH --- Лекция 3 Создание электронного письма
Автор：Eve Cole
Время обновления：2009-05-30 19:53:45
При создании почтовых ящиков ситуация усложняется, поскольку вы можете использовать разные почтовые серверы. Некоторые помещают информацию электронной почты в текстовые файлы, некоторые помещают информацию в реестр, а некоторые предоставляют интерфейсы ADSI, поэтому это зависит от конкретной ситуации.
Для информации электронной почты пользователя в текстовом файле вы можете напрямую работать с текстовым файлом. Ниже приведен пример кода для записи текстового файла:
ж
wxya
Set fs = WScript.CreateObject("Scripting.FileSystemObject")
Установите fw = 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-получатель», False
objUser.SetInfo
WScript.Echo objUser.cn
Для я = 1ToobjUser.PropertyCount
Установите vProp = objUser.Next
WScript.Echo vProp.Name
Следующий
Примечание. Поскольку сейчас у меня нет Exchange Server для экспериментов, приведенный выше код не тестировался. Если у вас есть какие-либо вопросы, обратитесь к исходному коду для поиска решений.
Этот сценарий с небольшими изменениями также можно использовать в ASP.
