RegisterEnterpriseService - Register an Enterprise Service in the COM+ Catalog

' Register an Enterprise Service in the COM+ Catalog
' Note: requires a reference to the System.EnterpriseServices.dll assembly

' This version identify the enterprise service with its path
' Example: RegisterEnterpriseService("C:\Temp\TestService.dll")

Sub RegisterEnterpriseService(ByVal servicePath As String)
    Dim appID, typeLib As String
    Dim rh As New System.EnterpriseServices.RegistrationHelper
    rh.InstallAssembly(servicePath, appID, typeLib, System.EnterpriseServices. _
        InstallationFlags.FindOrCreateTargetApplication)
End Sub

' This version identify the enterprise service with a reference to its assembly

Sub RegisterEnterpriseService(ByVal asm As System.Reflection.Assembly)
    RegisterEnterpriseService(asm.Location)
End Sub