ShutDownComPlusApplication - Shutting-down a COM+ application

' Shut-down the COM+ application with the input name
' Note: requires a reference to the COM+ Admin Type Library
'
' Example: ShutDownComPlusApplication("MyComPlusApp", "")

Sub ShutDownComPlusApplication(ByVal applicationName As String, _
    ByVal serverName As String)
    Dim catalog As New COMAdmin.COMAdminCatalog
    catalog.Connect(serverName)
    ' shutdown the application
    catalog.ShutdownApplication(applicationName)
End Sub