我的一亩三分地 我就喜欢!
13fen  设为主页
 收藏本站
 
当前位置: > 一亩三分地：首页 > 网络学院 > 网络编程 > ASP专区 > Asp邮件/FSO > ASP创建EXCHANGE用户的一段代码
热门文章排行
热门文章排行 手推车”功能的实现(10-07)
八大法则防范ASP网站漏洞(10-23)
ASP教程十一、调试ASP脚本(10-23)
在JSP中访问数据库大全(10-23)
虚机服务中常见Asp.Net低级错误一览(03-21)
精采文章排行
精采文章排行 ASP.NET实现抓取网页中的链接(11-15)
ASP连接数据库的11种方法(11-10)
如何动态创建网页的RSS内容摘要(11-10)
ASP网站漏洞及入侵防范方法(11-10)
ASP自定义函数：对字符串正则替换(11-10)
技术专题推荐
网管论坛交流
　

ASP创建EXCHANGE用户的一段代码 

作者:佚名   来源:一亩三分地   点击:   日期:2007-03-28
近日逼不得已必须用ASP创建EXCHANGE 2000用户，但以前的相似文章都是关于EXCHANGE 5。5的，而且明确说明不向后兼容，因此在MSDN网站游荡了很久，终于找到一点资料，经过改编，终于能用于ASP。

此段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", "test@hina.org"
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的文章在精华有介绍，加上我也不太懂就不介绍了。 ；）



【文章评论】 【收藏本文】 【推荐好友】 【打印本文】 【论坛讨论】

   相关文章:
·ASP中巧用Response属性 ·第六课:ASP脚本循环语句
·在 Web 页上使用条件数值格式 ·连接数据库查询手册（不仅仅适用于asp）
·警惕"给你的FileSystemObject对象加把锁" ·用ASP做全文检索

   文章评论:(条)
  
 请留名： 匿名评论   点击查看所有评论 网管论坛
 

  责任编辑:一分  声明：刊登此文章是为了传递更多信息,文章内容仅供参考,转载请注明出处。