Menghapus Item Tunggal dari Koleksi WMI

Salah satu tujuan utama mengakses koleksi adalah untuk menghapus item dari koleksi. Anda dapat menghapus item dari koleksi dengan panggilan ke metode SWbemPropertySet.Remove . Metode ini tidak tersedia untuk SWbemObjectSet atau SWbemMethodSet.

Item dihapus berdasarkan nama dari SWbemPropertySet, SWbemQualifierSet, dan SWbemNamedValueSet. Namun, item di SWbemRefresher dihapus oleh indeks dan dari SWbemPrivilegeSet oleh konstanta yang mewakili nama hak istimewa.

Untuk menghapus item dari koleksi

• Contoh kode berikut menunjukkan cara menghapus item dengan panggilan ke metode SWbemPropertySet.Remove .

  oclass.Properties_.Remove "Prop2"
  

  Contoh berikut membuat kelas baru bernama "NewClass" di namespace root\default dan menambahkan tiga properti ke dalamnya. Skrip kemudian menggunakan kode dari contoh sebelumnya untuk menghapus properti kedua.

  ' Obtain an empty class and name it
  Const WBEM_CIMTYPE_STRING = 8
  Set objSWbemService = GetObject("winmgmts:root\default")
  Set objClass = objSWbemService.get()
  Wscript.Echo "Creating class NewClass"
  objClass.Path_.Class = "NewClass"
  
  ' Add three properties 
  For i = 1 to 3
      objClass.Properties_.Add "Prop" & i, WBEM_CIMTYPE_STRING
  Next
  Getprops()
  
  ' Remove the Prop2 property
  objClass.Properties_.Remove "Prop2"
  Wscript.Echo "Second property removed "
  Getprops()
  
  ' Write the changes to the class back
  objClass.Put_
  
  Sub Getprops()
      Wscript.Echo "Number of Properties = " _
          & objClass.Properties_.Count
      For Each prop in objClass.Properties_
          Wscript.Echo prop.name
      Next
  End Sub
  

Untuk informasi selengkapnya, lihat Memanipulasi Informasi Kelas dan Instans, Mengakses Koleksi, dan Menghapus Beberapa Item dari Koleksi.