← Tutti gli articoli

COMPONENT SERVICES MANAGEMENT WITH COMAdminCatalog (Visual Basic 6)

11 January 2011  ·  Visual Basic 6 · Article  ·  356 visite

This article explains how you can leverage the COM+ Admin Library to automate the configuration and deployment of COM+ Applications in Visual Basic 6.0

Create Application and Install components (dll)
 
  1. Dim  catalog  As  COMAdmin.COMAdminCatalog   
  2. Dim  applications  As  COMAdmin.COMAdminCatalogCollection   
  3. Dim  application  As  COMAdmin.COMAdminCatalogObject   
  4.     
  5. Set  catalog =  New  COMAdmin.COMAdminCatalog   
  6. Set  applications = catalog.GetCollection( "Applications" )   
  7. Call  applications.Populate   
  8.     
  9. Set  application = applications.Add()   
  10.        
  11. ' ID is an arbitrary GUID, that you can create using uuidgen   
  12. application.Value( "ID" ) =  "{da2d72e3-f402-4f98-a415-66d21dafc0a9}"   
  13. application.Value( "Name" ) =  "SampleApp"   
  14. application.Value( "Activation" ) = COMAdmin.COMAdminActivationOptions.COMAdminActivationLocal   
  15. application.Value( "ApplicationAccessChecksEnabled" ) = COMAdmin.COMAdminAccessChecksLevelOptions.COMAdminAccessChecksApplicationComponentLevel   
  16.   
  17. application.Value( "Description" ) =  "Sample Application"   
  18. application.Value( "Identity" ) =  "Intranet\giovanni.maragna"   
  19. application.Value( "Password" ) =  "pippo"   
  20. application.Value( "ApplicationAccessChecksEnabled" ) = 0   
  21.   
  22.   
  23.   
  24.   
  25. application.Value( "RunForever" ) =  True   
  26. Call  applications.SaveChanges   
  27. catalog.InstallComponent  "SampleApp" ,  "E:\BIN\RIDDEL.dll" ,  "" ,  ""   
  28.     
  29.     
  30.   
  31.     
  32. Set  application =  Nothing   
  33. Set  applications =  Nothing   
  34. Set  catalog =  Nothing   

Modify Application:
  1. Dim  catalog  As  COMAdmin.COMAdminCatalog   
  2. Set  catalog =  New  COMAdmin.COMAdminCatalog   
  3.     
  4. Dim  components  As  COMAdmin.COMAdminCatalogCollection   
  5. Dim  queryParams(0)   
  6. queryParams(0) =  "{DA2D72E3-F402-4F98-A415-66D21DAFC0A9}"   
  7. Set  components = catalog.GetCollectionByQuery( "Components" , queryParams)   
  8.     
  9. Dim  component  As  COMAdmin.COMAdminCatalogObject   
  10. components.Populate   
  11. Set  component = components.Item(0)   
  12. component.Value( "Transaction" ) = COMAdmin.COMAdminTransactionOptions.COMAdminTransactionRequired   
  13.     
  14. Call  components.SaveChanges   
  15.     
  16. Set  component =  Nothing   
  17. Set  components =  Nothing   
  18. Set  catalog =  Nothing   

Si è verificato un errore imprevisto. Ricarica ✕

Rejoining the server...

Rejoin failed... trying again in seconds.

Failed to rejoin.
Please retry or reload the page.

The session has been paused by the server.

Failed to resume the session.
Please retry or reload the page.