August 25, 2003

‘ Add a member to a COM+ application’s role, and return True if the operation ‘ is successfull’ Note: requires a reference to the COM+ Admin Type Library” Example: AddComPlusAppRoleMember(“MyComPlusApp”, “MyTestRole”, “MYPCOwner”,’ “”)Function AddComPlusAppRoleMember(ByVal applicationName As String, _ ByVal roleName As String, ByVal memberName As String, _ ByVal serverName As

‘ Create a new COM+ application, and return True if the operation is successfull’ Note: requires a reference to the COM+ Admin Type Library” Example: AddComPlusApplication(“MyComPlusApp”, “”)Function AddComPlusApplication(ByVal applicationName As String, _ ByVal serverName As String) As Boolean Dim catalog As New COMAdmin.COMAdminCatalog catalog.Connect(serverName) ‘ get the Applications collection Dim

‘ Create a new role to a COM+ application, and return True if the operation is ‘ successfull’ Note: requires a reference to the COM+ Admin Type Library” Example: AddComPlusAppRole(“MyComPlusApp”, “MyTestRole”, “”)Function AddComPlusAppRole(ByVal applicationName As String, _ ByVal roleName As String, ByVal serverName As String) As Boolean Dim catalog As

‘ Remove a member from a COM+ application’s role,’ and return True if the operation is successfull’ Note: requires a reference to the COM+ Admin Type Library” Example: DelComPlusAppRoleMember(“MyComPlusApp”, “MyTestRole”, “MYPCOwner”,’ “”)Function DelComPlusAppRoleMember(ByVal applicationName As String, _ ByVal roleName As String, ByVal memberName As String, _ ByVal serverName As String)

‘ Delete a role from a COM+ application, and return True if the operation is ‘ successfull’ Note: requires a reference to the COM+ Admin Type Library” Example: DelComPlusAppRole(“MyComPlusApp”, “MyTestRole”, “”)Function DelComPlusAppRole(ByVal applicationName As String, _ ByVal roleName As String, ByVal serverName As String) As Boolean Dim catalog As New

‘ Delete a COM+ application, and return True if the operation is successfull’ Note: requires a reference to the COM+ Admin Type Library” Example: DelComPlusApplication(“MyComPlusApp”, “”)Function DelComPlusApplication(ByVal applicationName As String, _ ByVal serverName As String) As Boolean Dim catalog As New COMAdmin.COMAdminCatalog catalog.Connect(serverName) ‘ get the Applications collection Dim apps