繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > WSH实用讲座---第三讲 创建邮箱
- ASP
- ASP漏洞及安全建议(3)
- ASP漏洞及安全建议(4)
- 实现聊天室的悄悄话功能（上）
- 实现聊天室的悄悄话功能（中）
- 用ＡＳＰ实现悄悄话的功能
- 《 优化你的ASP程序 》
- 让ASP应用系统成为跨平台的应用系统
- 让ASP应用系统成为跨平台的应用系统(2)
- 使用ASP加密算法加密你的数据（一）
- 使用ASP加密算法加密你的数据（二）
- 用ASP制作个性化的调查板
- asp+语法介绍（二）---书写我们的第一个asp+ 文件
- asp+语法介绍(一)
- asp+语法介绍(三)----asp+的服务器端编程初步
- asp+语法介绍(四)----asp+的服务器端编程进介
- asp+语法介绍(五)----asp+的服务器端编程控件篇
- sp+语法介绍(六)----数据库篇
- 用ASP和VBScript上载文件（一）
- 用ASP和VBScript上载文件（二）
- 解析正则表达式（原创）
ASP 中的 WSH实用讲座---第三讲 创建邮箱
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 176 ::
收藏到网摘: n/a
里，有些提供ＡＤＳＩ接口，所以，得根据具体情况来定．
对于用户邮箱信息放在文本文件里的，可以直接操作文本文件，下面是一段写文本文件的代码示例：
Dim fs
Dim fw
Set fs = WScript.CreateObject("Scripting.FileSystemObject")
Set fw = fs.CreateTextFile("c:\users.dat")
fw.WriteLine "user1,[email protected],,,"
对于用户信息放在注册表里的,可以用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:[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.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做实验，所以上面这段代码未曾测试过，如果大家有问题，请到他的原出处寻求解决．
这段脚本，稍加修改，也可以用在ＡＳＰ中．
评论 (0) All
