繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > ASP创建EXCHANGE用户的一段代码
- ASP
- ASP编程菜鸟易犯的一个错误
- ASP申请单动态添加实现方法及代码
- 经验总结：ASP与存储过程解析
- 学以致用 驳“ASP低能论”
- 使用ASP脚本技术
- ASP、Request对象与SQL注入
- 判断访问是否来自搜索引擎的ASP函数
- ASP判断数据库值是否为空的通用函数
- 大刀阔斧扔掉ASP,充分准备学习ASP.NET
- 关于创建多级文件夹的ASP函数实例
- ASP正则判断取出HTML的图片地址的函数
- 网页不存在自动给管理员发邮件的ASP代码
- ASP教程：等差数列和等比数列通项公式
- Recordset对象和Command对象的区别
- Filter与updatebatch混合使用实现批量更新
- ASP实例：检测整数和长整数的函数
- 在不支持FSO的服务器上使用XMLDOM创建HTML文件
- 汉字转拼音ASP函数
- 网页输出N行N列表格的ASP实现方法
- ASP操作数据库的类
ASP创建EXCHANGE用户的一段代码
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 114 ::
收藏到网摘: n/a
此段ASP的执行的环境在W2K+IIS5，并且必须要有足够的权限。
如有不当之处，请高手指正。
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 7.0">
</HEAD>
<BODY>
<%
Dim objUser
Dim objContainer
Dim objMailbox
Dim recipname, recip
Dim ServerName, DomainName, emailname, FirstName, LastName, password
ServerName = "skyword.program.org"
DomainName = "DC=program,DC=org"
emailname = "test"
password = "1234"
recip = "CN=" & emailname
LastName = "sky"
FirstName = "Word"
Set objContainer = GetObject("LDAP://" & ServerName & "/OU=China.org," & DomainName)
Set objUser = objContainer.Create("User", recip)
objUser.Put "samAccountName", emailname
objUser.Put "sn", LastName
objUser.Put "givenName", FirstName
objUser.Put "DisplayName", "[email protected]"
objUser.Put "userPrincipalName", emailname & "@China.org"
objUser.SetInfo
objUser.SetPassword password
objUser.AccountDisabled = False
objUser.SetInfo
Set objMailbox = objUser
objMailbox.CreateMailbox "LDAP://skyword.program.org/CN=Mailbox Store (SKYWORD),CN=First Storage Group,CN=InformationStore,CN=SKYWORD,CN=Servers,CN=First Administrative Group,CN=Administrative Groups,CN=ecitye,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=program,DC=org"
objUser.SetInfo
Set objContainer = Nothing
Set objUser = Nothing
Set objMailbox = Nothing
if err <> 0 then
Response.Write "失败"
else
Response.Write "成功!!!"
end if
%>
</BODY>
</HTML>
注：如果使用此代码，请注意你的机器上的LDAP不同。有关ADSI和LDAP的文章在精华有介绍，加上我也不太懂就不介绍了。 ；）
评论 (0) All
