AddComPlusAppRoleMember – Adding a member to a COM+ application’s role

' Add a member to a COM+ application's role, and return True if the operation ' is successfull' Note: requires a reference to the COM+ Admin Type Library'' Example: AddComPlusAppRoleMember("MyComPlusApp", "MyTestRole", "MYPCOwner",'  "")Function AddComPlusAppRoleMember(ByVal applicationName As String, _    ByVal roleName As String, ByVal memberName As String, _    ByVal serverName As String) As Boolean    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()            Dim RoleObj As COMAdmin.COMAdminCatalogObject            For Each RoleObj In roles                If roleName = RoleObj.Name.ToString() Then                    Dim members As COMAdmin.COMAdminCatalogCollection = CType _                        (roles.GetCollection("UsersInRole", RoleObj.Key), _                        COMAdmin.COMAdminCatalogCollection)                    members.Populate()                    ' add each member name to an ArrayList                    Dim mbrObj As COMAdmin.COMAdminCatalogObject                    For Each mbrObj In members                        If memberName = mbrObj.Name.ToString() Then                            Return False                        End If                    Next mbrObj                    If members.AddEnabled Then                        Dim newMember As COMAdmin.COMAdminCatalogObject = CType _                            (members.Add(), COMAdmin.COMAdminCatalogObject)                        newMember.Value("User") = CType(memberName, Object)                        members.SaveChanges()                        Return True                    End If                End If            Next RoleObj        End If    Next AppObj    Return FalseEnd Function

Share the Post:
Share on facebook
Share on twitter
Share on linkedin

Overview

Recent Articles: