' 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 FalseEnd Function