New VBS script to access Hmonitor WMI counters is below.
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\wmi")
Set colSettings = objWMIService.ExecQuery _
("Select * from Hmonitor")
For Each objItem in colSettings
Wscript.Echo "key: " & objItem.MyKey
Wscript.Echo "Temp0: " & objItem.Temp0
Wscript.Echo "Temp1: " & objItem.Temp1
Wscript.Echo "Temp2: " & objItem.Temp2
Wscript.Echo "Temp3: " & objItem.Temp3
Wscript.Echo "HDDTemp0: " & objItem.HDDTemp0
Wscript.Echo "HDDTemp1: " & objItem.HDDTemp1
Wscript.Echo "HDDTemp2: " & objItem.HDDTemp2
Wscript.Echo "HDDTemp3: " & objItem.HDDTemp3
Wscript.Echo "Fan0: " & objItem.Fan0
Wscript.Echo "Fan1: " & objItem.Fan1
Wscript.Echo "Fan2: " & objItem.Fan2
Wscript.Echo "Fan3: " & objItem.Fan3
Wscript.Echo "Voltage0: " & objItem.Voltage0
Wscript.Echo "Voltage1: " & objItem.Voltage1
Wscript.Echo "Voltage2: " & objItem.Voltage2
Wscript.Echo "Voltage3: " & objItem.Voltage3
Next
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\wmi")
Set colSettings = objWMIService.ExecQuery _
("Select * from Hmonitor")
For Each objItem in colSettings
Wscript.Echo "key: " & objItem.MyKey
Wscript.Echo "Temp0: " & objItem.Temp0
Wscript.Echo "Temp1: " & objItem.Temp1
Wscript.Echo "Temp2: " & objItem.Temp2
Wscript.Echo "Temp3: " & objItem.Temp3
Wscript.Echo "HDDTemp0: " & objItem.HDDTemp0
Wscript.Echo "HDDTemp1: " & objItem.HDDTemp1
Wscript.Echo "HDDTemp2: " & objItem.HDDTemp2
Wscript.Echo "HDDTemp3: " & objItem.HDDTemp3
Wscript.Echo "Fan0: " & objItem.Fan0
Wscript.Echo "Fan1: " & objItem.Fan1
Wscript.Echo "Fan2: " & objItem.Fan2
Wscript.Echo "Fan3: " & objItem.Fan3
Wscript.Echo "Voltage0: " & objItem.Voltage0
Wscript.Echo "Voltage1: " & objItem.Voltage1
Wscript.Echo "Voltage2: " & objItem.Voltage2
Wscript.Echo "Voltage3: " & objItem.Voltage3
Next