StartComPlusApplication - Starting a COM+ application

' Start the COM+ application with the input name
' Note: requires a reference to the COM+ Admin Type Library
'
' Example: StartComPlusApplication("MyComPlusApp", "")

Sub StartComPlusApplication(ByVal applicationName As String, _
    ByVal serverName As String)
    Dim catalog As New COMAdmin.COMAdminCatalog
    catalog.Connect(serverName)
    ' start the application
    catalog.StartApplication(applicationName)
End Sub