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
投稿猜你喜欢
- 错误类型： Microsoft JET Database Engine (0x80040E10) 至少一个参数没有被指定值。 原因：在写SQ
- 不知道写得对不对啊！错了再改吧！加密函数Function Encodestr(s,xorstr)Dim enFor&nb
不久前因业务需要，我在自己的笔记本中安装了搜霸。当时一个做平面的朋友过来和我做一些设计交流，我在笔记本前准备输入一个网址，他靠近我的电脑，大- 有没有办法更快一点？ 有没有办法一次性收缩所有数据库？ 代码如下:alter database 数据库名 set recovery simp
- 俺觉得自 己试着写写sql,调试调试还是有帮助的，读人家sql例子好像读懂了，自己写就未 必思路正确，调试得通，写得简洁。 这篇文字在网上被
- 如何剔除HTML标识？这里没有使用正则表达式来去除，当然大家用正则"<.+?>"也可以实现这个功能只留下干净
- 去年淘宝做了个“胖子”项目，就是把网页的默认宽度从780提升到了950。也就是说，基本放弃了800×600的用户（没有完全放弃，如果你仔细研
- 主键表的主键（primary key，主关键字）是表中的一个或多个字段，它的值用于惟一地标识表中的某一条记录。一个表不能有多个主关键字，并且
- 这篇文章所说的视觉元素是指：在一个网站中除去内容(文本、图片、视频、音频等）之外的一些元素。比如图标，背景色，以及背景图案。视觉元素的设计是
- 在现代LOGO设计当中，叶子的形状被视做好的创意。或者说，是一种变革的想法。在网页中他们大多被用于轻量级的解决方案、干净的不抽像的设计。在实
- 当你提交一个查询的时候，MySQL会分析它，看是否可以做一些优化使处理该查询的速度更快。这一部分将介绍查询优化器是如何工作的。如果你想知道M
- MySQL使用于认证目的的用户名，与Unix用户名(登录名字)或Windows用户名无关。缺省地，大多数MySQL客户尝试使用当前Unix用
- MooTools 1.2介绍原文地址：30 Days of Mootools 1.2 Tutorials - Day 1 - Intro t
- 看着这个题目可能大家会有点陌生，不知道是什么，说的直白一点，RDFa就是让你的页面更好的被机器所理解，而不简简单单是展示你的页面，下面就关于
- 一、使用css缩写使用缩写可以帮助减少你CSS文件的大小，更加容易阅读。css缩写的主要规则请参看《常用css缩写语法总结》，这里就不展开描
- 接下来我利用一点空余时间发一个函数里面包含和添加和删除功能。实验的架构可以使用IIS.5WEB服务器ACCESS数据库。这个我其实不用说的很
- Mootools 1.2手风琴（Accordion）教程原文地址：30 Days of Mootools 1.2 Tutoria
- 函数名:FenYe(url,pageCount,recordCount,curPage,cssstyle)
- 内容摘要：我们在浏览一些文章的时候，当鼠标选中一些文字的时候，就出现了一些隐藏的字符，平常是看不到的。这些干扰码一般有两种，一是随机无意义的
- 复制代码 代码如下: public partial class CMS_DBDataContext { partial void OnCre
