devxlogo

GetComPlusAppRoles – Retrieving a COM+ Application’s roles

GetComPlusAppRoles – Retrieving a COM+ Application’s roles

' Get an array with the name of an application's roles' Note: requires a reference to the COM+ Admin Type Library'' Example:'    Dim roles() As String = GetComPlusAppRoles("System Application", "")'    Dim role As String'    For Each role In  roles'       Console.WriteLine(role)'    NextFunction GetComPlusAppRoles(ByVal applicationName As String, _    ByVal serverName As String) As String()    Dim catalog As New COMAdmin.COMAdminCatalog    catalog.Connect(serverName)    ' get the Applications collection    Dim apps As COMAdmin.COMAdminCatalogCollection = CType _        (catalog.GetCollection("Applications"), _        COMAdmin.COMAdminCatalogCollection)    apps.Populate()    Dim AppObj As COMAdmin.COMAdminCatalogObject    For Each AppObj In apps        If applicationName = AppObj.Name.ToString() Then            Dim roles As COMAdmin.COMAdminCatalogCollection = CType _                (apps.GetCollection("Roles", AppObj.Key), _                COMAdmin.COMAdminCatalogCollection)            roles.Populate()            ' add each application name to an ArrayList            Dim roleNames(roles.Count) As String            Dim i As Integer            For i = 0 To roles.Count - 1                roleNames(i) = CType(roles.Item(i), _                    COMAdmin.COMAdminCatalogObject).Name.ToString()            Next i            Return roleNames        End If ' convert from the ArrayList to an array of strings,               '  and return it    Next AppObj    Return New String(1) {}End Function

See also  How IoT Tech Will Transform Logistics
devxblackblue

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist