로컬 파티션 관리

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

참고

COM + 파티션 서비스는 기본적으로 사용 되지 않습니다. COM + 파티션 서비스를 사용 하려면 구성 요소 서비스 관리 도구를 사용 하거나 Localcomputer 컬렉션의 파티션 분할 속성을 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 내에서 파티션 관리

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