繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > ASP创建EXCHANGE用户的一段代码
- ASP
- asp数个使用技巧
- 存储过程里的递归 实现方法
- 非常不错的列出sql服务器上所有数据库的asp代码
- 防范ASP木马的十大基本原则强列建议看下
- 雷客图ASP站长安全助手的ASP木马查找功能
- 防止别人盗链的好方法推荐
- 图片的入库与读取的方法
- 用asp实现无组件生成验证码的方法2种
- 用asp实现检测文件编码
- [asp]怎么添加验证码的解决方法
- ASP文章系统解决方案实现上一页下一页
- ASP编程入门进阶（三）：接触脚本程序
- ASP编程入门进阶（四）：内置对象Request
- ASP编程入门进阶（五）：内置对象Response
- ASP编程入门进阶（六）：Cookies讲座
- ASP编程入门进阶（八）：内置对象Session
- ASP编程入门进阶（九）：内置对象Application
- ASP编码优化技巧8则
- ASP编程入门进阶（十）：Global.asa文件
- ASP编程入门进阶（十一）：Chat聊天程序
ASP创建EXCHANGE用户的一段代码
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 146 ::
收藏到网摘: 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
