 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
近日逼不得已必须用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的文章在精华有介绍，加上我也不太懂就不介绍了。 返回类别: 教程 上一教程: 将汉字转变成汉语拼音的一段代码 下一教程: FSO 安全隐患解决办法 您可以阅读与"ASP创建EXCHANGE用户的一段代码"相关的教程: · 在ASP中通过GETROWS实现数据库记录分页的一段代码 · ASP中通过GETROWS实现数据库记录分页的一段代码 · 关于ACCESS数据库表改名的一段代码 · 将汉字转变成汉语拼音的一段代码 · 抓取动网论坛 EMAIL 地址的一段代码 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
