Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB7
Expertise: Advanced
Aug 25, 2003

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", "MYPC\Owner",
'  "")

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 False
End Function
Robert N Neuman
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap