现象

 www.iTbulo.com-59wLk

FrontEndServer是Exchange 2000服务器；www.iTbulo.com-59wLk

从某个时候起，在这台机器上调用微软的CDO或者CDOEX访问Exchange邮箱发生了异常！而且ADSI也工作不正常。www.iTbulo.com-59wLk

从外表上看，没有任何错误的迹象。www.iTbulo.com-59wLk

重现步骤如下：www.iTbulo.com-59wLk

Ø         VB中创建一个应用程序；

Ø         引用CDOEX.DLL；

Ø         代码写入：

         Set oMsg = CreateObject("CDO.Message")

         oMsg.DataSource.Open(“http://BackEndServer/public”)

则在第二行得到这样的错误：www.iTbulo.com-59wLk

www.iTbulo.com-59wLk

 www.iTbulo.com-59wLk

Run-time error ‘-2147221164(80040154)’:www.iTbulo.com-59wLk

无法向注册表写入项www.iTbulo.com-59wLk

www.iTbulo.com-59wLk

 www.iTbulo.com-59wLk

FrontEndServer 配置：www.iTbulo.com-59wLk

Windows Advanced Server 2000 内部版本号 2195:Service Pack 2www.iTbulo.com-59wLk

IE 版本：5.00.3315.1000 更新版本：SP2www.iTbulo.com-59wLk

CDOEX.DLL的版本号：6.0.4417.0www.iTbulo.com-59wLk

它所处的位置：C:\Program Files\Common Files\Microsoft Shared\CDOwww.iTbulo.com-59wLk

原因

首先在FrontEndServer 安装了SQL Server 2000之前，我们可以使用CDOEX的IDataSource.Open打开用户邮箱的：www.iTbulo.com-59wLk

_ConnectionPtr pCon = NULL;www.iTbulo.com-59wLk

CComPtr <CDO::IFolder>pFldr;www.iTbulo.com-59wLk

CComPtr <CDO::IDataSource>pSource;www.iTbulo.com-59wLk

hr=pFldr.CoCreateInstance(L"CDO.Folder");www.iTbulo.com-59wLk

pFldr->get_DataSource(&pSource);www.iTbulo.com-59wLk

hr=pSource->Open(bstrURLInbox,www.iTbulo.com-59wLk

                                  (IDispatch*)pCon,www.iTbulo.com-59wLk

                                  adModeRead,www.iTbulo.com-59wLk

                                           adFailIfNotExists, www.iTbulo.com-59wLk

                                           adOpenSource,www.iTbulo.com-59wLk

                                           bstrUserDomainAccount,www.iTbulo.com-59wLk

                                           bstrUserPwd);www.iTbulo.com-59wLk

 www.iTbulo.com-59wLk

但是安装了SQL Server之后，MDAC就被更新到了version 2.6！!www.iTbulo.com-59wLk

 www.iTbulo.com-59wLk

由于Microsoft的过错，早期的一些MDAC组件被MDAC 2.6删除或者被覆盖掉了!!www.iTbulo.com-59wLk

 www.iTbulo.com-59wLk

而运行IDataSource.Open，是需要引用MDAC 2.5的这些被删除了的组件的，所以就会报出“Class Not Registered”的错误。www.iTbulo.com-59wLk

 www.iTbulo.com-59wLk

此时，如果运行下面的代码：www.iTbulo.com-59wLk

    Set con = CreateObject("ADODB.Connection")
    con.Provider = "ADsDSOObject"
    con.Open "ADs Provider"www.iTbulo.com-59wLk

最后一行会失败并报错：run-tim error 429 'ActiveX component can't create object'www.iTbulo.com-59wLk

这种情况被新闻组的人们称之为“ADSI toasting ADO”!!www.iTbulo.com-59wLk

 www.iTbulo.com-59wLk

这就是一个非常严重的问题了。你的要使用到以前的ADO的接口的程序可能都不行了！www.iTbulo.com-59wLk

 www.iTbulo.com-59wLk

所以，安装了SQL Server 2000之后，请一定从下列站点下载最新的MDAC安装包或者补丁。www.iTbulo.com-59wLk

http://www.microsoft.com/data/download_26sp1.htmwww.iTbulo.com-59wLk

 www.iTbulo.com-59wLk

解决这个CDOEX的问题，就是下载并安装了MDAC 2.6 SP1 (2.61.7326.6).exe就可以了。www.iTbulo.com-59wLk

小结

在任何机器上安装SQL Server 2000时，都请注意这个问题！www.iTbulo.com-59wLk

一旦发现原来可以运行的程序现在爆出一些莫名其妙的错误，请先更新这台机器上的MDAC！打SQL Server 2000 SP1应该也可以，我想。www.iTbulo.com-59wLk