ASP创建EXCHANGE用户代码

2008-02-23 06:13:55来源:互联网 阅读 ()

新老客户大回馈,云服务器低至5折

近日逼不得已必须用ASP创建EXCHANGE 2000用户,但以前的相似文章都是关于EXCHANGE 5。5的,而且明确说明不向后兼容,因此在MSDN网站游荡了很久,终于找到一点资料,经过改编,终于能用于ASP。

中国网管联盟

此段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

,

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇: Exchange通讯服务巧实现

下一篇: Exchange 2003 Server 中的“解析匿名发件人”功能

热门词条
热门标签