ローカル パーティションの管理

  • [アーティクル]

コンポーネント サービス管理ツールを使用してローカル パーティションを作成および構成する代わりに、パーティション固有の COM+ 管理コレクションとプロパティを使用することによりプログラムでパーティションを管理できます。

Note

既定では、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 内のパーティションの管理

パーティションの管理者権限の設定