Einführungsbeispiel mit dem COM+-Verwaltungskatalog
Bei der programmgesteuerten Verwendung des COM+-Verwaltungskatalogs führen Sie in der Regel die folgenden allgemeinen Schritte aus (hier nicht in strenger Reihenfolge angegeben):
- Öffnen Sie eine Sitzung mit dem COM+-Katalog auf dem lokalen Computer. Optional können Sie eine Verbindung mit dem COM+-Katalog auf einem Remotecomputer herstellen.
- Führen Sie Aktionen wie das Starten oder Beenden von Diensten aus– Aktionen, die sich nicht auf eine bestimmte COM+-Anwendung beziehen.
- Führen Sie Aktionen aus, z. B. das Installieren oder Exportieren von COM+-Anwendungen oder das Installieren von Komponenten in Anwendungen – Aktionen, die sich auf das Lesen oder Schreiben in Dateien beziehen.
- Fügen Sie Sammlungen neue Elemente hinzu, z. B. das Erstellen einer neuen COM+-Anwendung, indem Sie der Auflistung "Applications" ein neues Element hinzufügen.
- Festlegen oder Abrufen von Eigenschaften für ein Element in einer Auflistung.
- Speichern oder verwerfen Sie ausstehende Änderungen am Katalog.
- Behandeln Sie alle fehler, die auftreten können.
Um zu zeigen, wie diese Schritte aussehen, wenn Sie die COMAdmin-Objekte verwenden, finden Sie unten ein Microsoft Visual Basic-Beispiel. Er veranschaulicht kurz einige der oben beschriebenen typischen Schritte, z. B. das Auffinden von Sammlungen, das Auflisten einer Auflistung zum Abrufen eines Elements und das Festlegen von Eigenschaften für dieses Element.
Im folgenden Beispiel führen Sie die folgenden Aktionen aus:
- Erstellen Sie eine neue COM+-Anwendung, "MyHomeZoo".
- Installieren Sie einige Komponenten( Cat und Dog) in der Anwendung. Beide Komponenten sind in einer einzelnen DLL enthalten, die bereits vorhanden sein muss: MyZoo.dll.
- Konfigurieren Sie die rollenbasierte Sicherheit für die Anwendung, indem Sie zwei Rollen definieren: ZooKeeper und AllergischeToCats.
- Weisen Sie der ZooKeeper-Rolle Zugriff auf die gesamte Anwendung zu.
- Weisen Sie der Rolle AllergischeToCats nur der Komponente Hund Zugriff zu.
- Aktivieren Sie die Sicherheitseigenschaften, damit die Rollenüberprüfung für die Anwendung erzwungen wird.
- Exportieren Sie die Anwendung MyHomeZoo in eine Datei, damit sie auf anderen Computern installiert werden kann.
Um dieses Beispiel aus Visual Basic zu verwenden, fügen Sie einen Verweis auf die COM+-Admin-Typbibliothek hinzu.
Function SetupMyZoo() As Boolean ' Return False if any errors occur.
' Initialize error handling for this function.
SetupMyZoo = False
On Error GoTo My_Error_Handler
' Open a session with the catalog.
' Instantiate a COMAdminCatalog object.
Dim objCatalog As COMAdminCatalog
Set objCatalog = CreateObject("COMAdmin.COMAdminCatalog")
' Create a new COM+ application.
' First get the "Applications" collection from the catalog.
Dim objApplicationsColl As COMAdminCatalogCollection
Set objApplicationsColl = objCatalog.GetCollection("Applications")
' Add a new item to this collection.
Dim objZooApp As COMAdminCatalogObject
Set objZooApp = objApplicationsColl.Add
' The "Applications" collection determines the available properties.
' Set the "Name" property of the new application item.
objZooApp.Value("Name") = "MyHomeZoo"
' Set the "Description" property of the new application item.
objZooApp.Value("Description") = "My pets at home"
' Save changes made to the "Applications" collection.
objApplicationsColl.SaveChanges
' Install components into the application.
' Use the InstallComponent method on COMAdminCatalog.
' In this case, the last two parameters are passed as empty strings.
objCatalog.InstallComponent "MyHomeZoo","MyZoo.DLL","",""
' Define the roles ZooKeeper and AllergicToCats
' by adding them to the "Roles" collection related to MyHomeZoo.
' First get the "Roles" collection related to MyHomeZoo.
' Use the GetCollection method on COMAdminCatalogCollection,
' passing in the name of the desired collection, "Roles",
' and the Key property value of objZooApp.
' The Key property uniquely identifies the object, serving
' here to distinguish the "Roles" collection related
' to MyHomeZoo from that of any other application.
Dim objRolesColl As COMAdminCatalogCollection
Set objRolesColl = objApplicationsColl.GetCollection("Roles", objZooApp.Key)
' Add new items to this "Roles" collection.
Dim objZooKeeperRole As COMAdminCatalogObject
Dim objAllergicToCatsRole As COMAdminCatalogObject
Set objZooKeeperRole = objRolesColl.Add
Set objAllergicToCatsRole = objRolesColl.Add
' Set the "Name" for the new items.
objZooKeeperRole.Value("Name") = "ZooKeeper"
objAllergicToCatsRole.Value("Name") = "AllergicToCats"
' Save changes made to any items in this "Roles" collection.
objRolesColl.SaveChanges
' Assign the AllergicToCats role to the Dog component to
' restrict its scope of access. (The ZooKeeper role, if assigned
' only at the application level, can access the whole application.)
' First get the "Components" collection related to MyHomeZoo.
' Use the GetCollection method on COMAdminCatalogCollection,
' passing in the name of the desired collection, "Components", and
' the Key property value of objZooApp.
Dim objZooComponentsColl As COMAdminCatalogCollection
Set objZooComponentsColl = objApplicationsColl.GetCollection("Components", objZooApp.Key)
' Find the Dog component item in this "Components" collection.
' First Populate the collection to read in data for all its items.
objZooComponentsColl.Populate
' Enumerate through the "Components" collection
' until the Dog component item is located.
Dim objDog As COMAdminCatalogObject
For Each objDog in objZooComponentsColl
If objDog.Name = "Dog" Then
Exit For
End If
Next
' Set the role checking property at the component level for Dog.
objDog.Value("ComponentAccessChecksEnabled") = True
' Save these changes.
objZooComponentsColl.SaveChanges
' Get the "RolesForComponent" collection related to the
' Dog component, using the Key property of objDog.
Dim objRolesForDogColl As COMAdminCatalogCollection
Set objRolesForDogColl = objZooComponentsColl.GetCollection("RolesForComponent", objDog.Key)
' Add a new item to this "RolesForComponent" collection.
Dim objCatSneezerRole As COMAdminCatalogObject
Set objCatSneezerRole = objRolesForDogColl.Add
' Set the "Name" of the new item to be "AllergicToCats".
objCatSneezerRole.Value("Name") = "AllergicToCats"
' Save changes made to this "RolesForComponent" collection.
objRolesForDogColl.SaveChanges
' Now set properties to enforce role-based security.
' First set role-based security at the application level.
objZooApp.Value("ApplicationAccessChecksEnabled") = True
objZooApp.Value("AccessChecksLevel") = COMAdminAccessChecksApplicationComponentLevel
' Save these changes.
objApplicationsColl.SaveChanges
' Finally, export the new configured MyHomeZoo application to an
' MSI file, used to install the application on other machines.
' Use the ExportApplication method on COMAdminCatalogObject.
objCatalog.ExportApplication "MyHomeZoo", "c:\Program Files\COM applications\MyHomeZoo.MSI", 4
' Exit the function gracefully.
SetupMyZoo = True
My_Error_Handler:
If Not SetupMyZoo Then
MsgBox "Error # " & Err.Number & " (Hex: " & Hex(Err.Number) & ")" & vbNewLine & Err.Description
End If
objCatSneezerRole = Nothing
objRolesForDogColl = Nothing
objDog = Nothing
objZooComponentsColl = Nothing
objAllergicToCatsRole = Nothing
objZooKeeperRole = Nothing
objRolesColl = Nothing
objZooApp = Nothing
objApplicationsColl = Nothing
objCatalog = Nothing
Exit Function
Zugehörige Themen