Binaryworld - DelComPlusAppRole - Deleting a role from a COM+ application ... [ VB.net -> COM+ ]

' Delete a role from a COM+ application, and return True if the operation is
' successfull
' Note: requires a reference to the COM+ Admin Type Library
'
' Example: DelComPlusAppRole("MyComPlusApp", "MyTestRole", "")

Function DelComPlusAppRole(ByVal applicationName As String, _
  ByVal roleName 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 i As Integer
      For i = 0 To roles.Count - 1
        If roleName = CType(roles.Item(i), _
          COMAdmin.COMAdminCatalogObject).Name.ToString() Then
          If roles.RemoveEnabled Then
            roles.Remove(i)
            roles.SaveChanges()
            Return True
          End If
        End If
      Next i
    End If
  Next AppObj
  Return False
End Function