__ExtendedStatus, ROOT\Microsoft\Windows\HardwareManagement, VBScript samples

	'https://wutils.com/wmi/
	Dim wmiClass, oProperty
	Set wmiClass = GetObject( _
	 "WINMGMTS:\\.\ROOT\Microsoft\Windows\HardwareManagement:" + _
	 "__ExtendedStatus")
	
	'get some class property 
	Wscript.Echo wmiClass.properties_("Description").Origin 'or other property name, see properties
	
	'Check if the class is singleton
	Wscript.Echo wmiClass.Path_.IsSingleton
	
	'Get number of methods in the class
	Wscript.Echo wmiClass.Methods_.Count
	
	'List class properties
	For Each oProperty In wmiClass.properties_
		'get property name and origin. Property value in the class is null, of course.
		Wscript.Echo oProperty.Name, oProperty.Origin, oProperty.Value
	Next 
	
	

	'https://wutils.com/wmi/
	Dim oWMI, Instances, Instance
	
	'Get base WMI object, "." means computer name (local)
	Set oWMI = GetObject("WINMGMTS:\\.\ROOT\Microsoft\Windows\HardwareManagement")
	
	'Get instances of __ExtendedStatus - all instances of this class and derived classes 
	Set Instances = oWMI.InstancesOf("__ExtendedStatus")
	
	
	'Enumerate instances  
	For Each Instance In Instances 
	  'Do something with the instance
	  Wscript.Echo Instance.Description 'or other property name
	Next 'Instance