' 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