test.vbs

Programming the Microsoft Windows driver model.2nd 随书光盘。内有很多作者送的实用工具和随书源码。WDM编程

Set wbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set wbemServices = wbemLocator.ConnectServer(, "root\wmi")
wbemServices.Security_.ImpersonationLevel=3 ' i.e., impersonal
Set wbemObjectSet = wbemServices.InstancesOf("WMI42")

For Each wbemObject in wbemObjectSet
  WScript.Echo "Name:      " & wbemObject.Path_ & vbCrlf &_
               "TheAnswer: " & wbemObject.TheAnswer
  wbemObject.TheAnswer = wbemObject.TheAnswer + 1
  wbemObject.Put_()
Next