' Returns an array with the names of the installed COM+ Applications' Params: the name of the server - defaults to the local server' Requires a reference to the COM+ Admin Type Library,' in the COM tab of the References dialog box'' Example:' Dim apps() As String = GetComPlusApplications()' Dim app As String' For Each app In apps' debug.writeline(app)' NextFunction GetComPlusApplications(Optional ByVal serverName As String = "") As _ String() Dim catalog As New COMAdmin.COMAdminCatalog() catalog.Connect(serverName) ' get the Applications collection Dim apps As COMAdmin.COMAdminCatalogCollection = catalog.GetCollection _ ("Applications") apps.Populate() ' add each application name to an ArrayList Dim app As COMAdmin.COMAdminCatalogObject Dim appNames As New ArrayList(apps.Count) For Each app In apps appNames.Add(app.Name.ToString()) Next ' convert from the ArrayList to an array of strings, and return it Return appNames.ToArray(GetType(String))End Function