Deleting COM+ Components

[smelly]

I have a script step that nukes all standard com apps. Hope that helps.


Call DeleteCOMApp("App1")
Call DeleteCOMApp("App2")
Call DeleteCOMApp("Etc")
' and so on ..

Sub DeleteCOMApp(sAppName)
Dim oAdminCatalog
Dim oApps
Dim i, bFound

bFound = False

Set oAdminCatalog = CreateObject("COMAdmin.COMAdminCatalog")
Set oApps = oAdminCatalog.GetCollection("Applications")

oApps.Populate

For i = 0 To oApps.Count - 1
If oApps.Item(i).Name = sAppName Then
oAdminCatalog.ShutDownApplication(sAppName)
oApps.Remove (i)
oApps.SaveChanges
trace "Removed """ & sAppName & """ Application."
bFound = True
Exit For
End If
Next

If Not bFound Then trace "Skipping """ & sAppName & """. Could not find."

End Sub

Sub Trace(byval sMsg)
Builder.LogMessage sMsg
End Sub