现象

　　我的这台机器上调用微软的CDO或者CDOEX访问Exchange邮箱发生了异常！而且ADSI也工作不正常。从外表上看，没有任何错误的迹象。

　　重现步骤如下：

　　VB中创建一个应用程序；

　　引用CDOEX.DLL；

　　代码写入：

　　Set oMsg = CreateObject("CDO.Message") oMsg.DataSource.Open(“http://BackEndServer/public”)

　　则在第二行得到这样的错误：

　　Run-time error ‘-2147221164(80040154)’:

　　无法向注册表写入项

　　FrontEndServer 配置：

　　FrontEndServer 配置： Windows Advanced Server 2000 内部版本号 2195:Service Pack 2 IE 版本：5.00.3315.1000 更新版本：SP2 CDOEX.DLL的版本号：6.0.4417.0 它所处的位置：C:\Program Files\Common Files\Microsoft

　　 原因

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

　　_ConnectionPtr pCon = NULL; CComPtr pFldr; CComPtr pSource; hr=pFldr.CoCreateInstance(L"CDO.Folder"); pFldr->get_DataSource(&pSource); hr=pSource->Open(bstrURLInbox, (IDispatch*)pCon, adModeRead, adFailIfNotExists, adOpenSource, bstrUserDomainAccount, bstrUserPwd);

　　但是安装了SQL Server之后，MDAC就被更新到了version 2.6！!

　　由于Microsoft的过错，早期的一些MDAC组件被MDAC 2.6删除或者被覆盖掉了!!

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

　　此时，如果运行下面的代码：

　　Set con = CreateObject("ADODB.Connection") con.Provider = "ADsDSOObject" con.Open "ADs Provider"

　　最后一行会失败并报错：

　　run-tim error 429 ''''ActiveX component can''''t create object''''

　　这种情况被新闻组的人们称之为：

　　“ADSI toasting ADO”!!

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

　　所以，安装了SQL Server 2000之后，请一定要下载最新的MDAC安装包或者补丁。

　　解决这个CDOEX的问题，就是下载并安装MDAC 2.6 SP1 (2.61.7326.6).exe。

　　 小结

　　在任何机器上安装SQL Server 2000时，都请注意这个问题！

　　一旦发现原来可以运行的程序现在爆出一些莫名其妙的错误，请先更新这台机器上的MDAC或者打SQL Server 2000 SP1。