Compartir a través de

Administración de particiones locales

  • Artículo

Como alternativa a la creación y configuración de particiones locales a través de la herramienta administrativa Servicios de componentes, puede administrar particiones mediante programación mediante colecciones y propiedades de administración COM+ específicas de la partición.

Nota

El servicio de particiones COM+ no está habilitado de forma predeterminada. Para usar el servicio de particiones COM+, debe habilitarlo a través de la herramienta de administración servicios de componentes o cambiando la propiedad PartitionsEnabled de la colección LocalComputer a True.

 

La subrutina siguiente escrita en el script de Visual Basic muestra cómo crear una partición en el equipo 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 subrutina siguiente escrita en el script de Visual Basic muestra cómo eliminar una partición del equipo 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 subrutina siguiente escrita en el script de Visual Basic muestra cómo establecer la partición predeterminada para un usuario:

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 subrutina siguiente escrita en el script de Visual Basic muestra cómo quitar la partición predeterminada para un usuario:

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

Recopilación de métricas de partición

Configuración de la caché de particiones

Agrupación de aplicaciones en particiones

Administración de particiones en Active Directory

Establecer derechos administrativos para una partición