Узнать температуру Процессора

ConsoleWrite(_ACPI_Temp() & @CrLf)
Func _ACPI_Temp()
Local $wbemFlagReturnImmediately = 0x10, $strComputer, $objWMIService, $colItems
Local $wbemFlagForwardOnly = 0x20
Local $CurrTemp = "N/A"
$strComputer = "."
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\wmi")
$colItems = $objWMIService.ExecQuery("SELECT * FROM MSAcpi_ThermalZoneTemperature", "WQL", $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
For $objItem In $colItems
$CurrTemp = ($objItem.CurrentTemperature - 2732) / 10
Next
Return $CurrTemp
EndFunc

_CPU_Info()
Func _CPU_Info()
$oService  = ObjGet('winmgmts:\\.\root\cimv2')
If IsObj($oService) Then
$oItems  = $oService.ExecQuery('SELECT * FROM Win32_Processor')
If IsObj($oItems) Then
For $Property In $oItems
ConsoleWrite($Property.Caption & @CR)
ConsoleWrite($Property.Name & @CR)
Next
EndIf
EndIf
EndFunc

$handle = DllCall("speedfan.dll", "int", "speedfan", "int", 2, "int", 3, "int", 0)
ConsoleWrite($handle  & @CR)

$Cpu_Name = RegRead ("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0","ProcessorNameString")
$Cpu_BIOS = RegRead ("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\BIOS","SystemProductName")
ConsoleWrite($Cpu_Name  & @CR)
ConsoleWrite($Cpu_BIOS  & @CR)

#RequireAdmin
Local $sOutput, $iPID = Run('wmic /namespace:\\root\wmi PATH MSAcpi_ThermalZoneTemperature get CurrentTemperature', _
		'', @SW_HIDE, BitOR($STDERR_CHILD, $STDOUT_CHILD))
While 1
	$sOutput = StdoutRead($iPID)
	If Number($sOutput) Or @error Then ExitLoop
WEnd
MsgBox(262144, Default, 't = ' & (($sOutput / 10) - 273) & '°C')

#RequireAdmin
#include <constants.au3>
Local $sOutput, $iPID = Run('wmic /namespace:\\root\wmi PATH MSAcpi_ThermalZoneTemperature get CurrentTemperature', '', @SW_HIDE, BitOR($STDERR_CHILD, $STDOUT_CHILD))
While 1
$sOutput = StdoutRead($iPID)
ConsoleWrite($sOutput & @CRLF);пусто
MsgBox(262144, Default, 't = ' & (($sOutput / 10) - 273) & '°C')
; И в скомпилированном виде - 273, потому что в $sOutput пусто
Sleep(1000)
WEnd

#RequireAdmin