Определить температуру процессора.

[ZlojBoter]

Есть ли какая нибудь функция, позволяющая считать в реальном времени температуру процессора, более менее "цивилизованным" способом? Через командную строку как-то или может готовая функция...
Пока что из "не цивилизованных" способов в голову приходит: взять специализированную программу типа speedfan, найти смещение и лазить проге в память, хотя может можно и проще. Просьба такие способы не предлагать, хочу по человечески и через :IL_AutoIt_1:

 

[WSWR]

ZlojBoter
1)
http://www.autoitscript.com/forum/topic/115765-hardware-temp/page__hl__+cpu%20+temperature#entry808393 последний пост. У меня на одном компе показывает, на другом нет

2) Тут с какой-то дополнительной прогой, не проверял:
http://www.autoitscript.com/forum/topic/144008-hardware-information/#entry1055104

 

[ZlojBoter]

WSWR,там кроме iWMILib.au3, никаких дополнительных файлов не нужно? выдает ошибку

 

[WSWR]

ZlojBoter
Нет, там в самом последнем посте ThermoCPU.au3, библиотеки не нужны:

TraySetState()
$wbemFlagReturnImmediately = 0x10
$wbemFlagForwardOnly = 0x20
$strComputer  = "."
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\wmi")
While 1
		$colItems = $objWMIService.ExecQuery( "SELECT * FROM MSAcpi_ThermalZoneTemperature", "WQL",$wbemFlagReturnImmediately + $wbemFlagForwardOnly)
		$Instances = $objWMIService.InstancesOf("MSAcpi_ThermalZoneTemperature")
		$Output=""

		For $objItem in $colItems
			$CurrTemp=$objItem.CurrentTemperature
			$Critical = $objItem.CriticalTripPoint
			$Output&= String(($CurrTemp - 2732) / 10 ) & "°C / Max: "& string(($Critical - 2732) / 10) & "°C"& @crlf
		Next

		If $output = "" then
			TraySetToolTip("No ACPI device found")
		Else
				TraySetToolTip($output)
		EndIf
   Sleep(5000)
WEnd

Exit

 

[ZlojBoter]

WSWR, выдает такую штуку в трее No ACPI device found, на 2-х компах смотрел, на старом и на новом(

 

[WSWR]

ZlojBoter
Попробуй 2 вариант, может он сработает

 

[ZlojBoter]

WSWR, да в принципе 2-й вариант он конечно даст то что мне нужно, я примерно так и думал на крайняк делать, только через смещения в другой проге, только пока хочется попытаться по нормальному, сел изучать Windows Management Instrumentation (WMI) :stars: