Удаление одного элемента из коллекции WMI

Одним из основных целей доступа к коллекции является удаление элемента из коллекции. Вы можете удалить элемент из коллекции с вызовом метода SWbemPropertySet.Remove. Этот метод недоступен для SWbemObjectSet или SWbemMethodSet.

Элементы удаляются по имени из SWbemPropertySet, SWbemQualifierSetи SWbemNamedValueSet. Однако элементы в SWbemRefresher удаляются индексом и из SWbemPrivilegeSet константой, представляющей имя привилегий.

Удаление элемента из коллекции

• В следующем примере кода показано, как удалить элемент с вызовом метода SWbemPropertySet.Remove.

  oclass.Properties_.Remove "Prop2"
  

  В следующем примере создается новый класс с именем NewClass в пространстве имен root\default и добавляет в него три свойства. Затем скрипт использует код из предыдущего примера для удаления второго свойства.

  ' 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
  

Дополнительные сведения см. в Манипулирование сведениями о классах и экземплярах, Получение доступа к коллекциии Удаление нескольких элементов из коллекции.