Mengelola Partisi Lokal

  • Artikel

Sebagai alternatif untuk membuat dan mengonfigurasi partisi lokal melalui alat administratif Layanan Komponen, Anda dapat mengelola partisi secara terprogram dengan menggunakan koleksi dan properti administrasi COM+ khusus partisi.

Catatan

Layanan partisi COM+ tidak diaktifkan secara default. Untuk menggunakan layanan partisi COM+, Anda harus mengaktifkannya melalui alat administrasi Layanan Komponen atau dengan mengubah properti PartitionsEnabled pada koleksi LocalComputer menjadi True.

 

Subroutine berikut yang ditulis dalam skrip Visual Basic menunjukkan cara membuat partisi di komputer lokal:

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

Subroutine berikut yang ditulis dalam skrip Visual Basic menunjukkan cara menghapus partisi dari komputer lokal:

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

Sub-rutin berikut yang ditulis dalam skrip Visual Basic menunjukkan cara mengatur partisi default untuk pengguna:

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

Sub-rutin berikut yang ditulis dalam skrip Visual Basic menunjukkan cara menghapus partisi default untuk pengguna:

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

Mengumpulkan Metrik Partisi

Mengonfigurasi Cache Partisi

Mengelompokkan Aplikasi ke dalam Partisi

Mengelola Partisi Dalam Direktori Aktif

Mengatur Hak Administratif untuk Partisi