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