現(xiàn)象

?

用 Visual Basic 創(chuàng)建的 COM 組件放置到 COM+ 中的某個應(yīng)用下后，在某種情況下調(diào)試時， Visual Basic IDE 會彈出如下對話框：

"System Error &H80004015(-2147467243).運(yùn)行單一線程時再次調(diào)用ConInitialize."?

重新產(chǎn)生本現(xiàn)象的步驟

?

Visual Basic 版本： 6.0(SP5)

????????? 用 Visual Basic 創(chuàng)建一個 Active Dll ， Class Modules 的名字為 WrongServerID ， Project 名字為 Test ；

????????? Project 的設(shè)置均按缺省情況；

????????? 添加一個方法 Run ，隨便加幾句代碼；

????????? Make 出 Test.Dll ；

????????? 將 Test.Dll 放置到 COM+ 的一個應(yīng)用中， COM+ 應(yīng)用的標(biāo)識設(shè)置有以下三種情況：

1

標(biāo)識為“交互式用戶 --- 目前已登錄的用戶”！

這時 Visual Basic IDE 可以調(diào)試 Test.Dll ；

2

標(biāo)識為當(dāng)前登錄的用戶名！

Visual Basic IDE 可以調(diào)試 Test.Dll ；

3

標(biāo)識的用戶不是當(dāng)前登錄的用戶名！

這時調(diào)試 Test.Dll ，就會遇到 0x80004015 的錯誤對話框！

原因

              
                
                  
                    這個錯誤在《
                  
                
                
                  INFO: Translating Automation Errors for VB/VBA (Long)
                
              
              
                Q186063
              
              
                
                  》是這樣定義的：
                
                
                  
                    
                    
                  
                
              
            

              
                
                  -2147467243 (80004015)
                  
                    ??? 
                  
                  The class is configured to run as a security id different from the caller. 
          
                  
                  
                
              
            

?

這個定義顯然要比 VB IDE 報出的語焉不詳?shù)摹斑\(yùn)行單一線程時嘗試再次調(diào)用 CoInitialize ”更讓人清楚明白！

?

首先，讓我們看一看 VB 是怎么做的：

從 VB IDE 運(yùn)行一個 ActiveX Dll 時， IDE 將調(diào)用 CoRegisterClassObject() 。

CoRegisterClassObject() 將會察看要調(diào)用的進(jìn)程 (COM Server) 的安全標(biāo)識是否匹配這個 Class 注冊的安全標(biāo)識。

對于設(shè)置為運(yùn)行在“ Interactive User ”標(biāo)識下的 Server ， CoRegisterClassObject() 將會動態(tài)地確認(rèn)當(dāng)前登錄的交互式用戶的標(biāo)識，以完成這種比較。

但是對于設(shè)置為運(yùn)行在不同于當(dāng)前登錄用戶的另一個用戶標(biāo)識下的 Server ，

RunningObjectTable::Register(ROTFLAGS_ALLOWANYCLIENT) 將會返回

CO_E_WRONG_SERVER_IDENTITY ，這樣是為了強(qiáng)制安全，阻止了惡意欺騙。 COM 不相信調(diào)用 CoRegisterClassObject() 的代碼，它只相信注冊表 ( 注冊表是一個安全的數(shù)據(jù)庫 ) 。

于是 -2147467243 (80004015)的錯誤就出現(xiàn)了。

?

那么上面所說的 Class 注冊的安全標(biāo)識在哪里查到呢？？

我的 Test.WrongServerID 的 CLSID 是 {54BD886F-76CB-49E9-8515-5992B9F9CC50} ，所以在注冊表的

HKEY_CLASSES_ROOT\AppID\{54BD886F-76CB-49E9-8515-5992B9F9CC50} 下：

“ RunAs ”的值就是。它還可以為“ mydomain\myaccount ”、“ Interactive User ”等值。

?

但是 COM+ 應(yīng)用的標(biāo)識設(shè)置的改變，卻并沒有在這個鍵值上體現(xiàn)出來。所以如果把組件不放入到 COM+ 中，則 Class 注冊的安全標(biāo)識應(yīng)該依賴于這個“ RunAs ”鍵值。那么把組件放入到 COM+ 之后，看哪一個鍵值呢 ?

我猜想這已經(jīng)存入到 COM+ 自己的數(shù)據(jù)庫了，而不再是注冊表。這個有待研究。

小結(jié)

當(dāng)一個 client 試圖調(diào)用一個 COM Server ，需要在 client 和 server 之間建立一個經(jīng)過驗(yàn)證的 COM Session 。這時 COM 需要檢查雙方的安全性。

該 Server 調(diào)用 CoRegisterClassObject() 注冊它的 Classes 。然后 COM 試圖假冒 client 來調(diào)用該 Server 。

對于我們這種情況， Visual Bsic IDE 用的是當(dāng)前登錄用戶的標(biāo)識，而這個標(biāo)識是通不過 Server 端的驗(yàn)證的。