test.vbs

来自「一本在讲述USB驱动程式的书 及其范例原码」· VBS 代码 · 共 12 行

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