Verwalten lokaler Partitionen
Als Alternative zum Erstellen und Konfigurieren lokaler Partitionen über das Verwaltungstool komponentendienste 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 verwenden zu können, müssen Sie ihn über das Verwaltungstool komponentendienste oder durch Ändern der PartitionsEnabled-Eigenschaft in der LocalComputer-Sammlung in True aktivieren.
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 in 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, veranschaulicht, 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