Partager via

Gestion des partitions locales

  • Article

En guise d’alternative à la création et à la configuration de partitions locales via l’outil d’administration Component Services, vous pouvez gérer les partitions par programmation à l’aide de collections et de propriétés d’administration COM+ spécifiques aux partitions.

Notes

Le service de partitions COM+ n’est pas activé par défaut. Pour utiliser le service de partitions COM+, vous devez l’activer via l’outil d’administration Component Services ou en remplaçant la propriété PartitionsEnabled de la collection LocalComputer sur True.

 

La sous-routine suivante écrite en script Visual Basic montre comment créer une partition sur l’ordinateur local :

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

La sous-routine suivante écrite en script Visual Basic montre comment supprimer une partition de l’ordinateur local :

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

La sous-routine suivante écrite en script Visual Basic montre comment définir la partition par défaut pour un utilisateur :

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

La sous-routine suivante écrite en script Visual Basic montre comment supprimer la partition par défaut d’un utilisateur :

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

Collecte des métriques de partition

Configuration du cache de partition

Regroupement d’applications dans des partitions

Gestion des partitions dans Active Directory

Définition des droits d’administration pour une partition