在线等！！怎样自动启动COM+

Question

怎么样能做到到自动启动COM+
谢谢了

Answer 1

先添加引用，然后如下：
Dim objExcel As Object
        objExcel = CreateObject("excel.application")
        objExcel.visible = True
或
Dim objExcel As New Excel.Application
objExcel.visible = True

Answer 2

添加COM+ Admin 1.0 Type Library 引用void bool IsApplicationExist(string appName) 
{ 
COMAdmin.ICOMAdminCatalog2 cac = new COMAdmin.COMAdminCatalogClass(); 
object root = cac.Connect("127.0.0.1"); 
COMAdmin.ICatalogCollection appList = (COMAdmin.COMAdminCatalogCollection)cac.GetCollection("Applications"); 
                for (int i = 0; i < appList.Count; i++) 
                { 
                    COMAdmin.ICatalogObject caObject = (COMAdmin.ICatalogObject)appList.get_Item(i); 
                    COMAdmin.ICatalogCollection compList = (COMAdmin.COMAdminCatalogCollection)appList.GetCollection("Components", caObject.Key); 
                    compList.Populate(); 
                    foreach (COMAdmin.ICatalogObject tmp in compList) 
                    { 
                        if (tmp.Name.ToString() == appName) 
                            return true; 
                    } 
                } 
                return false; } 
void StopApplication(string appName) 
{ 
if(!IsApplicationExist(appName)) 
    return; 
COMAdmin.ICOMAdminCatalog2 cac = new COMAdmin.COMAdminCatalogClass(); 
object root = cac.Connect("127.0.0.1"); 
cac.ShutdownApplication(appName); 
}