asp如何创建一个Exchange用户？
来源：asp之家 时间：2009-11-14 20:52:00
<％@ 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 = "intels.net"
DomainName = "DC=intels,DC=net"
emailname = "liyanbing"
password = "3625"
recip = "CN=" & emailname
LastName = "Yanbing"
FirstName = "Li"
Set objContainer = GetObject("LDAP://" & ServerName & "/OU=intels.net," & DomainName)
Set objUser = objContainer.Create("User", recip)
objUser.Put "samAccountName", emailname
objUser.Put "sn", LastName
objUser.Put "givenName", FirstName
objUser.Put "DisplayName", "liyanbing@intels.net"
objUser.Put "userPrincipalName", emailname & "@intels.net"
objUser.SetInfo
objUser.SetPassword password
objUser.AccountDisabled = False
objUser.SetInfo
Set objMailbox = objUser
objMailbox.CreateMailbox "LDAP://intels.net/CN=Mailbox Store (intels),CN=First Storage Group,CN=InformationStore,CN=chunfeng,CN=Servers,CN=First Administrative Group,CN=Administrative Groups,CN=ecitye,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=intels,DC=net"
objUser.SetInfo
Set objContainer = Nothing
Set objUser = Nothing
Set objMailbox = Nothing
if err <> 0 then
Response.Write "对不起,创建失败!"
else
Response.Write "恭喜,创建成功!"
end if
％>
</BODY>
</HTML>
0
投稿猜你喜欢
第一类工厂与哈希对象
SQL注入防御：用三种策略应对SQL注入攻击
ORACLE 数据库RMAN备份恢复
PHP桥接模式Bridge Pattern的优点与实现过程
在SQL查询中使用LIKE来代替IN查询的方法
MySQL数据库生产环境的维护工作总结的经验
开发iPhone版校友录
Oracle 安装和卸载问题收集（集合篇）第1/6页
Mysql Innodb 引擎优化
5个充满想象力的Web调色板
实战手记：让百万级数据瞬间导入SQL Server
小诀窍让你快速上手Dreamweaver
英文罚抄引发的艺术创意
