邮箱c 如何给ad用户建立exchange邮箱(不用cdoexm)(转)_涅磐飞升的空间_百度空间[要诀]

空间邮箱  时间:2021-03-03  阅读:()

C#怎样给AD用户建立Exchange邮箱(不用CDOEXM) (转)_涅磐飞升的空间_百度空间

C#怎样给AD用户建立Exchange邮箱不用CDOEXM 转 _涅磐飞升的空间_百度空间用户名: 密码: 登录注册涅磐飞升的空间主页

博客相册个人档案好友

查看文章

C#怎样给AD用户建立Exchange邮箱不用CDOEXM 转

2010-08-31 23:48

这几天也被C DOE XM狠狠折磨了一把按照下面MSDN的标准方法添加鸟对CDOEXM的引用而且俺的cdo.dl l,cdoexm.dl l都是exchange2000工作服务器上copy下来的然后用下面MSDN提供的代码报错始终报错一条道走到黑的报错说是

System.Runtime. InteropServices.COMException (0x80072030) :在服务器上没有这样一个对象。mailbox = (IMailboxStore)user.NativeObject;mai lbox.CreateMai lbox(homeMDB) ;user.CommitChanges() ;

我可以确定我的hom eMDB扩展属性值绝对不会错因为那是用微软自家windows系统的vbs脚本直接导出到文本文件的 vbs脚本如下后面还要用它导出homeMTA和msExchHomeS erv erNames t rB ran chN ame="OU名1,OU=OU名0,O U=公司OU名"

'上面的几层路径的ou下面只有一个有邮箱的userstrDC="gdmailclus1" ' IIS服务器名s trDomain="DC=mai l,DC=xxxx" 'AD服务器DN

s trLDAP="<LDAP://"+strDC+"/OU="+st rBranchName+", "+s trDoma in+">"

Set oLDAPConn = CreateObject("AdoDB.Connection")oLDAPConn.Provider = "AdsDSOObject"oLDAPConn.open

Set oCmd = CreateObject("AdoDB.Command")oCmd.ActiveConnecti on = oLDAPConnoCmd.CommandText =strLDAP+"; (objectCategory=Person) ;Di stinguishedName,mail;SubTree"

Set oResult = oCmd.Execute

Set fso =

Wscript.CreateObject("Scripting.FileSystemObject")

Set f = fso.CreateTextFile("C:\Documents and

Settings\szadmin\桌面\homeMDB. txt")strGetUser="LDAP://"+strDC+"/"+oResult.Fields(0)

Set oUser = GetObject(strGetUser)

'wscript.echostrGetUser+vbcrl f+"name:"+oUser.name+vbcrl f+"sAMAccountName:"+oUser. sAMAccountName+vbcrlf+"serverName:"+oUser. serverNa

me+vbcrlf+"Mail:"+oUser.Mailf.Wr iteLine(oUser.homeMDB)

'wscript.echo oUser.homeMDB

'wscript.echo oUser.homeMTA

'wscript.echo oUser.mailNickName

'wscript.echo oUser.msExchUserAccountControl

'wscript.echo oUser.msExchHomeServerName

'wscript.echo oUser.mDBUseDefaults

'wscript.echo oUser.mailf.close

而且我又没法在exchange工作服务器上装开发环境没法调试只好上网找方法了。后来在网上终于搜到原来CDOEXM在C#下就是不好用有转换那一步出错的调了VB.net的一个getobject可方法就ok也有像我一样的问题的说是要整个改成VB.net就好了。天呢我至此彻底晕倒对微软的佩服再次上升鸟一层都是自家的东东能搞成这样。 。

幸好后来在一个跟帖里头找到了方法原来根本不需要CDOEXM这个烂东东就可以完成建exchange邮箱的工作直接写几个AD扩展属性就可以鸟代码如下user.Properti es["homeMDB"] .Value=homeMDB;user.Properti es["homeMTA"] .Value=homeMTA;user.Properties["mailNickName"] .Add(dr["UserID"] .ToString()) ;user.Properties["msExchUserAccountControl"] .Add(0) ;

user.Properti es["msExchHomeServerName"] .Add("/o=MAIL001/ou=mailadmin/cn=Configuration/cn=Servers/cn=Mail-SERVER") ;user.Properti es["mDBUseDefaults"] .Add("TRUE") ;user.CommitChanges() ;user是一个你找到的DirectoryEntry对象实例 dr是输入的数据集中的一个DataRowhomeMDB、 homeMTA和ms Ex chHome ServerName可以用上面的vb s脚本从服务器获得脚本中的s trBran chName改成适合你的

我的这三个参数如下供参考private string homeMDB =

"CN=BE-SG2-MDB1,CN=GDMAIL-SG2,CN=I nf ormat i onStore,CN=GDMAILEXCH,CN=Servers,CN=第一个管理组,CN=Admi nistrative

Groups,CN=xxxxORG,CN=Microsoft

Exchange,CN=Services,CN=Conf iguration,DC=mail,DC=xxxx";private string homeMTA = "CN=Microsoft

MTA,CN=GDMAILEXCH,CN=S erv ers,CN=第一个管理

组,CN=Administrative

Groups,CN=xxxxORG,CN=Microsoft

Exchange,CN=Services,CN=Conf iguration,DC=mail,DC=xxxx";private string msExchHomeServerName =

"/o=GMCCORG/ou=GDMAILEXAG/cn=Conf i gurat ion/cn=Servers/cn=GDMAILEXCH";

试过在我们的工作环境下不能同时写mai l属性会引发约束冲突异常所以之后要通过另外一个vbs脚本批量改下默认邮件地址就可以。

改默认邮件地址的VBSs trBranchName="深圳分公司"s trBranchDoma in="sz. "strAll="gd.xxxx. com"strDC="gdmailclus1"s trDomain="DC=mai l,DC=xxxx"s trLDAP="<LDAP://"+strDC+"/OU="+st rBranchName+", "+s trDoma in

Set oLDAPConn = CreateObject("AdoDB.Connection")oLDAPConn.Provider = "AdsDSOObject"oLDAPConn.open

Set oCmd = CreateObject("AdoDB.Command")oCmd.ActiveConnecti on = oLDAPConnoCmd.CommandText =

strLDAP+"; (objectCategory=Person) ;Di stinguishedName,mail;SubTree"

Set oResult = oCmd.Executewscript.echo oResult.Recordcountwhile not oResult.EOFstrGetUser="LDAP://"+strDC+"/"+oResult.Fields(0)

Set oUser = GetObject(strGetUser)

'wscript.echo oUser.name

OldMai l=oUser.mai l

I f (Len(Ol dMai l)>0) Then

OldPrimaryEmai l=Join(oUser.proxyAddresses, "!")iNotChange=inStr(Ol dPr imaryEmai l, "SMTP:"+oUser. samAccountName+"@"+strBranchDomain+strAl l)

If (iNotChange=0) Then

OldPrimaryEmai l=Rep lace(OldPrimaryEmai l, "SMTP:", "smtp:")OldPrimaryEmai l=Rep lace(OldPrimaryEmai l, "smtp:"+oUs er. samAccountName+"@"+strBranchDomai n+s trA l l, "SMTP:"+oUs er. samAccountName+"@"+strBranchDomai n+s trAl l)

Newmail=oUser. samAccountName+"@"+strBranchDomain+strAl l

'wscript.echo "mail-:"+NewMail

'wscript.echo "proxy-:"+o ldPrimaryEmai lstrProxy=Split(OldPrimaryEmail, "!")oUser.msExchPoliciesExcluded="{26491CFC-9E50-4857-861B-0CB8DF22B5D7}"

' oUser.msExchPol iciesExcluded=VBNulloUser.Mail=NewmailoUser.ProxyAddresses=strProxyoUser.SetInfo

End If

End IfoResult.MoveNext

Wendwscript.echo "done"

上一篇>> c#创建exchange邮箱问题,请教高. . . 下一篇>>CDOEXM操作转k ane boy

类别asp.net | |添加到搜藏|分享到i贴吧|浏览(474) |评论()

网友评论

该篇文章没有任何评论。

发表评论

内 容

取消回复

推荐文章

韩国少女高价卖尿原汁原味价格合理世界上最著名的菲尔人格测试

把身上的名牌脱掉你什么都不是以为洗白张柏芝 自己就不是**

虎跃云-物理机16H/32G/50M山东枣庄高防BGP服务器低至550元每月!

虎跃科技怎么样?虎跃科技(虎跃云)是一家成立于2017年的国内专业服务商,专业主营云服务器和独立服务器(物理机)高防机房有着高端华为T级清洗能力,目前产品地区有:山东,江苏,浙江等多地区云服务器和独立服务器,今天虎跃云给大家带来了优惠活动,为了更好的促销,枣庄高防BGP服务器最高配置16核32G仅需550元/月,有需要的小伙伴可以来看看哦!产品可以支持24H无条件退款(活动产品退款请以活动规则为准...

水墨云历史黑名单IDC,斟酌选购

水墨云怎么样?本站黑名单idc,有被删除账号风险,建议转出及数据备份!水墨云ink cloud Service是成立于2017年的商家,自2020起开始从事香港、日本、韩国、美国等地区CN2 GIA线路的虚拟服务器租赁,同时还有台湾、国内nat vps相关业务,也有iplc专线产品,相对来说主打的是大带宽服务器产品。注意:本站黑名单IDC,有被删除账号风险,请尽量避免,如果已经购买建议转出及数据备...

DiyVM:50元/月起-双核,2G内存,50G硬盘,香港/日本/洛杉矶机房

DiyVM是一家比较低调的国人主机商,成立于2009年,提供VPS主机和独立服务器租用等产品,其中VPS基于XEN(HVM)架构,数据中心包括香港沙田、美国洛杉矶和日本大阪等,CN2或者直连线路,支持异地备份与自定义镜像,可提供内网IP。本月商家最高提供5折优惠码,优惠后香港沙田CN2线路VPS最低2GB内存套餐每月仅50元起。香港(CN2)VPSCPU:2cores内存:2GB硬盘:50GB/R...

空间邮箱为你推荐
futureshop在国内还是在加拿大买笔记本硬盘工作原理高人指点:电子存储器(U盘,储存卡,硬盘等)的工作原理access数据库ACCESS数据库有什么用百花百游百花净斑方多少钱一盒百度关键词工具常见的关键词挖掘工具有哪些m.kan84.net经常使用http://www.feikan.cc看电影的进来帮我下啊www.03ggg.comwww.tvb33.com这里好像有中国性戏观看吧??javbibinobibi的中文意思是?www.se222se.com请问http://www.dibao222.com这个网是做什么www.mfav.org手机登录WWW.brcbc.org 能注册么
me域名 免费域名 南通服务器租用 二级域名申请 x3220 duniu 主机测评网 info域名 淘宝双十一2018 NetSpeeder java空间 怎么测试下载速度 老左正传 双十一秒杀 网游服务器 idc查询 cxz alexa世界排名 web服务器 俄勒冈州 更多