ASP创建EXCHANGE用户代码
来源：互联网
作者：west263.com
时间：2008-02-23
西部数码-全国虚拟主机10强！40余项虚拟主机管理功能,全国领先!双线多线虚拟主机南北访问畅通无阻!免费赠送企业邮局,.CN域名,自助建站480元起,免费试用7天,满意再付款! P4主机租用799元/月.月付免压金!
中国网管联盟
此段ASP的执行的环境在W2K IIS5，并且必须要有足够的权限。
bbs.bitsCN.com
如有不当之处，请高手指正。
bbs.bitsCN.com
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 7.0">
</HEAD>
<BODY>
<%
Dim objUser
Dim objContainer
Dim objMailbox
BBS.bitsCN.com网管论坛
Dim recipname, recip
Dim ServerName, DomainName, emailname, FirstName, LastName, password
BBS.bitsCN.com网管论坛
ServerName = "skyword.program.org"
DomainName = "DC=program,DC=org"
emailname = "test"
password = "1234"
recip = "CN=" & emailname
LastName = "sky"
FirstName = "Word"
www.bitsCN.com
Set objContainer = GetObject("LDAP://" & ServerName & "/OU=China.org," & DomainName)
www.bitsCN.com
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 www_bitscn_com
objUser.SetPassword password
objUser.AccountDisabled = False
objUser.SetInfo
www.bitsCN.com
Set objMailbox = objUser
bitscn.com
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
bitsCN.Com
if err <> 0 then
Response.Write "失败"
else
Response.Write "成功!!!"
end if
%>
</BODY>
</HTML>
中国网管论坛
注：假如使用此代码，请注意您的机器上的LDAP不同。有关ADSI和LDAP的文章在精华有介绍，加上我也不太懂就不介绍了。 ；） bitscn.com
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
