ASP创建EXCHANGE用户代码

王朝asp·作者佚名  2008-05-30
窄屏简体版  字體: |||超大  

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

此段ASP的执行的环境在W2K+IIS5,并且必须要有足够的权限。

如有不当之处,请高手指正。

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=" %26amp; emailname

LastName = "sky"

FirstName = "Word"

Set objContainer = GetObject("LDAP://" %26amp; ServerName %26amp; "/OU=China.org," %26amp; 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 %26amp; "@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

%

注:如果使用此代码,请注意你的机器上的LDAP不同。有关ADSI和LDAP的文章在精华有介绍,加上我也不太懂就不介绍了。 ;)

,

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航