WSH實用講座---第三講創建郵箱

2019-11-18 22:24:57

字體：大中小

來源：轉載

供稿：網友

創建郵箱，情況就復雜了，因為你可能采用不同的電子郵件服務器．有些把郵箱信息放在文本文件里，有些把信息放在注冊表
里，有些提供ＡＤＳＩ接口，所以，得根據具體情況來定．　

　　對于用戶郵箱信息放在文本文件里的，可以直接操作文本文件，下面是一段寫文本文件的代碼示例：
　　Dim fs
　　Dim fw
　　Set fs = WScript.CreateObject("Scripting.FileSystemObject")
　　Set fw = fs.CreateTextFile("c:/users.dat")
　　fw.WriteLine "user1,user1@abc.com,,,"

　　對于用戶信息放在注冊表里的,可以用WSH直接操作注冊表,從而完成郵箱的創建.比如IMAIL,他的用戶信息就放在
HKEY_localmacine/SoftWare/IPswitch/domain/下的．唯一麻煩的郵箱的初始口令，我們不知道他的加密算法．所以只能先手工
創建一個郵箱，然后采用一個固定的口令，看他加密后是多少，我們的腳本在創建別的郵箱時也使用它．這樣的問題是，我們必須
告訴用戶，他們必須在今后修改口令，否則是不安全的．

　　Exchange Server提供ＡＤＳＩ接口，創建郵箱就方便了．而且他的郵箱可以與ＮＴ的域用戶同步．下面是一段示例代碼：
objContainer = GetObject("LDAP://SERVERNAME/o=OrgName/ou=SiteName/cn=Recipients")
objUser = objContainer.Create("Remote-Address", "cn=CustRecip")
objUser.cn = "CustRecip"
objUser.Put "Target-Address", "SMTP:CustRecip@msn.com"
objUser.Put "Internet-Encoding", 1310720objUser.UID = "CustRecip"
objUser.textEncodedORaddress = "c=US;a= ;p=DOIT;o=CDO;s=CustRecip;"
objUser.Mail = "CustRecip@msn.com"
objUser.Put "otherMailbox", "MS:OrgName/SiteName/CustRecip"
objUser.Put "Replication-Sensitivity", 20
objUser.Put "MAPI-Recipient", False
objUser.SetInfo
WScript.Echo objUser.cn
For i = 1 ToobjUser.PRopertyCount
Set vProp = objUser.Next
WScript.Echo vProp.Name
Next
　　注：由于我現在沒有Exchange Server做實驗，所以上面這段代碼未曾測試過，如果大家有問題，請到他的原出處尋求解決．
　　這段腳本，稍加修改，也可以用在ＡＳＰ中．

上一篇：WSH實用講座---第四講配置目錄權限

下一篇：WSH實用講座---第二講創建用戶、目錄和站點