首页 >> 读书频道 >> 电脑 >> ASP创建EXCHANGE用户的一段代码
 
· String添加trim
· 利用http组件实现多引
· 随机访问Recordse
· 怎样把数据库结构显示出来
· 关于页面和代码分离
· 怎样传送更多的数据在表单
· 图片循环显现
· PerlScript编写
· 输入显示框中循环出现文字
· 纯猝使用VBScript
· 不用Global.asa
· 验证email地址是否合
 
· 美容养颜手册
· 加油金顺剧情分集介绍完整
· 红楼梦:120回全本[清
· 素质教育在美国
· 全唐诗卷四十六
· 韩剧《布拉格恋人》剧情介
· 夜航船[作者:明·张岱]
· 局外人[作者:韩·可爱淘
· 现场流行病学
· 源氏物语[日本:紫式部]
· 武林寓言故事
· 2006高考录取规则
 
· (出租)中动商场部分及写
· (出租)中动动漫基地&#
· 喜剧学院
· 《善德女王》剧情介绍
· 魔女18号 剧情
· 丑女无敌剧情介绍
· 魔女幼熙剧情介绍
· 龙游天下剧情介绍
· 震撼世界的七日剧情介绍
· 静静的白桦林剧情介绍
· 心情日记—老公今天我想对
· 旗舰剧情介绍
欢迎来到月影社区!如果您觉得这里不错,请推荐给您的朋友们。月影社区:http://wf66.com/

ASP创建EXCHANGE用户的一段代码


查看有无更新版本

关键字:ASP技巧 2006-9-9

 

近日逼不得已必须用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的文章在精华有介绍,加上我也不太懂就不介绍了。 ;)

ASP创建EXCHANGE用户的一段代码

[ 1 ]
ASP创建EXCHANGE用户的一段代码 num

打印本页 关闭

关于我们版权声明本站导航友情连结作品演示 TOP↑