' 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