ExportComPlusApplication - Exporting a COM+ application to a MSI installer file

' Export the COM+ application with the input name to a MSI installer file
' Note: requires a reference to the COM+ Admin Type Library
'
' Example: ExportComPlusApplication("MyComPlusApp", "C:\MyComPlusApp.msi", "")

Sub ExportComPlusApplication(ByVal applicationName As String, _
    ByVal msiFile As String, ByVal serverName As String)
    Dim catalog As New COMAdmin.COMAdminCatalog
    catalog.Connect(serverName)
    ' export the application
    catalog.ExportApplication(applicationName, msiFile, 4)
End Sub