로컬 파티션 관리

구성 요소 서비스 관리 도구를 통해 로컬 파티션을 만들고 구성하는 대신 파티션별 COM+ 관리 컬렉션 및 속성을 사용하여 프로그래밍 방식으로 파티션을 관리할 수 있습니다.

참고

COM+ 파티션 서비스는 기본적으로 사용하도록 설정되지 않습니다. COM+ 파티션 서비스를 사용하려면 구성 요소 서비스 관리 도구를 통해 또는 LocalComputer 컬렉션의 PartitionsEnabled 속성을 True로 변경하여 사용하도록 설정해야 합니다.

 

Visual Basic 스크립트로 작성된 다음 서브루틴은 로컬 컴퓨터에서 파티션을 만드는 방법을 보여 줍니다.

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 

Visual Basic 스크립트로 작성된 다음 서브루틴은 로컬 컴퓨터에서 파티션을 삭제하는 방법을 보여 줍니다.

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

Visual Basic 스크립트로 작성된 다음 서브루틴은 사용자의 기본 파티션을 설정하는 방법을 보여 줍니다.

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

Visual Basic 스크립트로 작성된 다음 서브루틴은 사용자의 기본 파티션을 제거하는 방법을 보여 줍니다.

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

파티션 메트릭 수집

파티션 캐시 구성

애플리케이션을 파티션으로 그룹화

Active Directory 내에서 파티션 관리

파티션에 대한 관리 권한 설정