← Tutti gli articoli

COMPONENT SERVICES MANAGEMENT WITH COMAdminCatalog (Visual Basic 6)

11 gennaio 2011  · Visual Basic 6 · Article  ·  361 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