荔园在线
荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀
[回到开始]
[上一篇][下一篇]
发信人: zzt (我命由我不由天), 信区: Microsoft
标 题: 第三讲 创建邮箱
发信站: BBS 荔园晨风站 (Fri Apr 30 23:02:59 1999), 转信
第三讲 创建邮箱
-------------------------------------------------------------------------
-------
创建邮箱，情况就复杂了，因为你可能采用不同的电子邮件服务器．有些把邮
箱信息放在文本文件里，有些把信息放在注册表里，有些提供ＡＤＳＩ接口，所以，?
酶菥咛迩榭隼炊ǎ?
对于用户邮箱信息放在文本文件里的，可以直接操作文本文件，下面是一段写
文本文件的代码示例：
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=Reci
pients")
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做实验，所以上面这段代码未曾测试过，
如果大家有问题，请到他的原出处寻求解决．
这段脚本，稍加修改，也可以用在ＡＳＰ中．
补充：今天在IMAIL目录下浏览的时候，看到好几个命令行工具，有ＡＤＤＵＳＥＲ
，ＡＤＤＤＯＭＡＩＮ等，在ＤＯＳ窗口下打个？号做参数，就知道了他们的用法，
所以，在ＩＭＡＩＬ中添加帐号便有了个简单的方法了。至于在ＷＳＨ中调用命令行
，在下一讲中有个例子（用ＳＨＥＬ?
潭韵螅?(1999.4.26)
--
日出东方，唯我不败；
天上地下，唯我独尊。
※ 来源:．BBS 荔园晨风站 bbs.szu.edu.cn．[FROM: 192.168.1.144]
[回到开始]
[上一篇][下一篇]
荔园在线首页 友情链接：深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店