DelComPlusApplication - Deleting a COM+ application

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

Function DelComPlusApplication(ByVal applicationName 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()
    If apps.RemoveEnabled Then
        ' delete the COM+ application, if found
        Dim i As Integer
        For i = 0 To apps.Count - 1
            If applicationName = CType(apps.Item(i), _
                COMAdmin.COMAdminCatalogObject).Name.ToString() Then
                apps.Remove(i)
                apps.SaveChanges()
                Return True
            End If
        Next i
    End If
    Return False
End Function