最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
ASP创建EXCHANGE用户的一段代码
时间:2008-01-12 编辑:简简单单 来源:一聚教程网
此段ASP的执行的环境在W2K+IIS5,并且必须要有足够的权限。
如有不当之处,请高手指正。
<%@ Language=VBScript %>
>
<%
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
%>
注:如果使用此代码,请注意你的机器上的LDAP不同。有关ADSI和LDAP的文章在精华有介绍,加上我也不太懂就不介绍了。
;)
-
上一个: Jmail发信的实例,模块化随时调用
相关文章
- asp用户退出登陆代码 09-16
- asp判断用户是否登陆 10-14
- asp 用户访问统计代码{fso} 07-31
- [API] 用ASP创建MDaemon用户 01-12
- 用ASP代码创建EXCHANGE2000用户(续) 01-12
- VBS 批量Ping的项目讲解 09-19