Чтение из BIOS

[Space]

Как из BIOS прочитать температуру CPU?

[awl100Alex]

Увы, никак.

[Space]

Почему? Нет доступа к чтению данных BIOS? Не верю. Интересно, температура CPU отражается в BIOS по одинаковому смещению для разных компов?

[ANDLL]

Можно с помощью WMI
Нельзя с помощью BIOS.

Интересно, температура CPU отражается в BIOS по одинаковому смещению для разных компов?

Относительно чего? AA:BB

[jangle]

Почему? Нет доступа к чтению данных BIOS? Не верю. Интересно, температура CPU отражается в BIOS по одинаковому смещению для разных компов?

Какое нафиг смешение? Температуру проца читает драйвер твоей материнки, а ты забираешь у него данные через WMI.
Маленький нюанс, у большинства дешевых мамок, в драйвере не реализовано чтение температуры процессора, поэтому в BIOS она видна, а в Винде - нет.

Код: Выделить всё

strComputer = "."
Set colTempProbe = GetObject("Winmgmts:"_
    & "{impersonationLevel=impersonate}!\\"_
    & strComputer & "\root\cimv2")._
    InstancesOf("Win32_TemperatureProbe")
Num = 0
For Each obj In colTempProbe
    WScript.Echo   obj.Name & VBNewLine _
        & obj.DeviceID & VBNewLine _
        & obj.Status & VBNewLine _
        & obj.Resolution & VBNewLine _
        & obj.Tolerance & VBNewLine _
        & obj.Accuracy
    Num = Num +1
Next
If Num = 0 Then
    WScript.Echo "No temperature probe data"
End If

[awl100Alex]

Можно с помощью WMI

WMI привязан к железу, дает не точные и статичные данные.
http://bbs.vbstreets.ru/viewtopic.php?t=35075
Полный фуфель!

[Space]

а где BIOS хранит считанное значение температуры? В секретной ячейке памяти?

[awl100Alex]

Эти ячейки не доступны и аппаратно различны. В этом направлении глухо.

[awl100Alex]

К тому же, WMI даст (если даст) тебе температуру датчика, который находится рядом с CPU на материнке, а вот значения датчика на самом кристале он не даст. Короче, всё это тщетно.

[Space]

jangle, твой код выводит "No temperature probe data", однако температуру я получаю

[Space]

Объясните кто-нить, плиз, назначение этих свойств:
Active
ActiveTripPoint
ActiveTripPointCount
CriticalTripPoint 'критическая температура
InstanceName
PassiveTripPoint
SamplingPeriod
ThermalConstant1
ThermalConstant2
ThermalStamp
Кстати, критическая нижняя температура у проца существует?

[iGrok]

Кстати, критическая нижняя температура у проца существует?

Нет.

А критическая верхняя для кристалла - около 100 гр. (при 110 примерно идут необратимые изменения в структуре).
Но обычно в БИОС выставляется критическая под 60 - 80гр.

[Space]

шо такэ? уси поснулы, чы що?

[Space]

мда... код показывает только новую температуру при старте проги, т.е. она фиксирована...

Код: Выделить всё

Dim wbemServices  As Object, wbemObjectSet As Object, CT As Single, PT As Single
Dim Item As Object
    Set wbemServices = GetObject("winmgmts:" & "\\localhost\root\wmi")
    Set wbemObjectSet = wbemServices.InstancesOf("MSAcpi_ThermalZoneTemperature")
    For Each Item In wbemObjectSet
     CT = (Item.CurrentTemperature - 2732) / 10
    Next