Verwalten lokaler Partitionen
Alternativ zum Erstellen und Konfigurieren lokaler Partitionen über das Component Services-Verwaltungstool können Sie Partitionen programmgesteuert verwalten, indem Sie partitionsspezifische COM+-Verwaltungssammlungen und -eigenschaften verwenden.
Hinweis
Der COM+-Partitionsdienst ist standardmäßig nicht aktiviert. Um den COM+-Partitionsdienst zu verwenden, müssen Sie ihn über das Component Services-Verwaltungstool aktivieren oder die PartitionsEnabled-Eigenschaft in der Sammlung LocalComputer in True ändern.
Die folgende Unterroutine, die in Visual Basic-Skript geschrieben wurde, veranschaulicht, wie eine Partition auf dem lokalen Computer erstellt wird:
Sub CreatePartition (PartitonGuid, PartitionName)
Set cat = CreateObject("COMAdmin.COMAdminCatalog")
Set collPartitions = cat.GetCollection("Partitions")
collPartitions.Populate
Set part = collPartitions.Add
' If you don't specify a partition GUID, one is created for you.
' Otherwise, you can specify one this way:
part.Value("ID") = PartitonGuid
part.Value("Name") = PartitionName
collPartitions.SaveChanges
Set part = Nothing
Set collPartitions = Nothing
Set cat = Nothing
End Sub
Die folgende Unterroutine, die in Visual Basic-Skript geschrieben wurde, veranschaulicht, wie eine Partition vom lokalen Computer gelöscht wird:
Sub DeletePartition (PartitionName)
Set cat = CreateObject("COMAdmin.COMAdminCatalog")
Set collPartitions = cat.GetCollection("Partitions")
collPartitions.Populate
numPartitions = collPartitions.Count
' Begin with the last partition, and work forward through the list.
For i = numPartitions - 1 To 0 Step -1
If collPartitions.Item(i).Value("Name") = PartitionName Then
collPartitions.Remove i
End If
Next
collPartitions.SaveChanges
Set collPartitions = Nothing
Set cat = Nothing
End Sub
Die folgende Unterroutine, die im Visual Basic-Skript geschrieben wurde, veranschaulicht, wie die Standardpartition für einen Benutzer festgelegt wird:
Sub SetDefaultPartitionForUser(UserName, PartitionGuid)
Set cat = CreateObject("COMAdmin.COMAdminCatalog")
Set collUsers = cat.GetCollection("PartitionUsers")
collUsers.Populate
Set user = collUsers.Add
user.Value("AccountName") = UserName
user.Value("DefaultPartitionID") = PartitionGuid
collUsers.SaveChanges
Set collUsers = Nothing
Set cat = Nothing
End Sub
Die folgende Unterroutine, die in Visual Basic-Skript geschrieben wurde, zeigt, wie die Standardpartition für einen Benutzer entfernt wird:
Sub RemoveDefaultPartitionForUser(UserName)
Set cat = CreateObject("COMAdmin.COMAdminCatalog")
Set collUsers = cat.GetCollection("PartitionUsers")
collUsers.Populate
numUsers = collUsers.Count
' Begin with the last user, and work forward through the list.
For i = numUsers - 1 To 0 Step -1
If collUsers.Item(i).Value("AccountName") = UserName Then
collUsers.Remove i
End If
Next
collUsers.SaveChanges
Set collUsers = Nothing
Set cat = Nothing
End Sub
Zugehörige Themen