Температура биоса

[Maxwellion]

Здравствуйте, подскажите, как программно узнать температуру БИОСа?
Если можно, с примерчиком. Заранее благодарен.

[d3drm]

ну как... BIOS (Basic Input-Output System) это ж такая штука =) там на входе температура одна, а на выходе другая. От -273 до +12982 градусов колеблется

[Amed]

Какой у нас там класс WMI для биоса?

Пиши Sebas'у в ЛС. Он по WMI спец, подскажет.

[Maxwellion]

Тьфу ты чего я ляпнул, мне процессора температуру надо:) БИОС мне за даром не сдался. Подскажите про процессор.

[Maxwellion]

Какой у нас там класс WMI для биоса?

Пиши Sebas'у в ЛС. Он по WMI спец, подскажет.

Sebas'y в ЛС? А что такое ЛС? Я тут малость новичёк. Не знаю ещё чаво куда наделать:) Даже не знаю чего такое ЛС.

[GSerg]

http://bbs.vbstreets.ru/privmsg.php?mode=post&u=287

[d3drm]

вот пример, но с моим процом не работает.

http://planet-source-code.com/vb/script ... 3&lngWId=1

[Sebas]

Private Sub Form_Load()
Dim wbemServices As Object, wbemObjectSet As Object
ЩЯ башка не варит, но вот код....

Dim Item As Object

Set wbemServices = GetObject("winmgmts:" & "\\localhost\root\wmi")
Set wbemObjectSet = wbemServices.InstancesOf("MSAcpi_ThermalZoneTemperature")

For Each Item In wbemObjectSet
Debug.Print "CPU Temperature: " & (Item.CurrentTemperature - 2732) / 10 & "°C"

For Each x In Item.properties_
Debug.Print x.Name
Next x
Next
End Sub

[Maxwellion]

Private Sub Form_Load()
Dim wbemServices As Object, wbemObjectSet As Object
ЩЯ башка не варит, но вот код....

Dim Item As Object

Set wbemServices = GetObject("winmgmts:" & "\\localhost\root\wmi")
Set wbemObjectSet = wbemServices.InstancesOf("MSAcpi_ThermalZoneTemperature")

For Each Item In wbemObjectSet
Debug.Print "CPU Temperature: " & (Item.CurrentTemperature - 2732) / 10 & "°C"

For Each x In Item.properties_
Debug.Print x.Name
Next x
Next
End Sub

Чего-то не работает:(

[Sebas]

железо может не поддерживать...

[Maxwellion]

железо может не поддерживать...

Пишет:

Run-time error '-2147217392 (80041010)'
Automation error

и показывает на строчку:

For Each Item In wbemObjectSet

[Бяка]

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

Private Sub Form_Load()
Dim wbemServices As Object, wbemObjectSet As Object
ЩЯ башка не варит, но вот код....

Dim Item As Object

Set wbemServices = GetObject("winmgmts:" & "\\localhost\root\wmi")
Set wbemObjectSet = wbemServices.InstancesOf("MSAcpi_ThermalZoneTemperature")

For Each Item In wbemObjectSet
Debug.Print "CPU Temperature: " & (Item.CurrentTemperature - 2732) / 10 & "°C"

For Each x In Item.properties_
Debug.Print x.Name
Next x
Next
End Sub

врет безбожно !
ет не на цпу а в корпусе (возможно)

[GM]

Хех, как не странно у меня на ХР та же ошибка, и в той же строчке, хотя я точно уверен что железо поддерживает.
Даже сам Sebas писал

точняк, на 2к пашет.... а на ХП даже класса такого нет(((

Щяяяяз разберёмся...

[Sebas]

Хех, как не странно у меня на ХР та же ошибка, и в той же строчке, хотя я точно уверен что железо поддерживает.
Даже сам Sebas писал

точняк, на 2к пашет.... а на ХП даже класса такого нет(((

Щяяяяз разберёмся...

Я ж говорю, аппаратура + дрова решают.

[Smith68]

У меня без ошибок дело обстоит, но температура все равно не показывается.
PS: у меня XP