Серый форум — 1Сv8 Получение значения температуры процессора

Re: 1Сv8 Получение значения температуры процессора

null@example.com (alexii) — Mon, 03 Jun 2013 14:11:48 +0000

Можете написать свой поставщик данных: Creating WMI Providers (Windows).

Re: 1Сv8 Получение значения температуры процессора

null@example.com (what?) — Mon, 03 Jun 2013 13:04:31 +0000

Что, вообще никак?
Я же серьезно спрашиваю.

Re: 1Сv8 Получение значения температуры процессора

null@example.com (alexii) — Mon, 27 May 2013 15:54:32 +0000

Никак.

Re: 1Сv8 Получение значения температуры процессора

null@example.com (what?) — Mon, 27 May 2013 07:08:42 +0000

Ну, а как разрешить доступ, подскажите, пожалуйста.

Re: 1Сv8 Получение значения температуры процессора

null@example.com (alexii) — Thu, 23 May 2013 18:26:30 +0000

what?, пустая коллекция возвращается, оттого и ошибка возникает. Значит:

может не быть имплементации

Доступа к значениям температуры Wbem на этой машине не имеет.

Re: 1Сv8 Получение значения температуры процессора

null@example.com (what?) — Thu, 23 May 2013 15:22:53 +0000

Спасибо!
Пишут что ошибка на 17 строке на 1 символе.
А как этот скрипт применить? А то я совсем плохо еще соображаю.

Re: 1Сv8 Получение значения температуры процессора

null@example.com (alexii) — Thu, 23 May 2013 14:51:04 +0000

Попробуйте, что «скажет» такой WSH:

Option Explicit

Dim strComputer

Dim objSWbemLocator
Dim objSWbemServicesEx
Dim collSWbemObjectSet
Dim objSWbemObjectEx


strComputer = "."

Set objSWbemLocator    = WScript.CreateObject("WbemScripting.SWbemLocator")
Set objSWbemServicesEx = objSWbemLocator.ConnectServer(strComputer, "root\WMI")
Set collSWbemObjectSet = objSWbemServicesEx.ExecQuery("SELECT * FROM MSAcpi_ThermalZoneTemperature")

For Each objSWbemObjectEx In collSWbemObjectSet
    With objSWbemObjectEx
        If .Active Then
            WScript.Echo .InstanceName & ":", .CurrentTemperature / 10 - 273.2
        End If
    End With
Next

Set collSWbemObjectSet = Nothing
Set objSWbemServicesEx = Nothing
Set objSWbemLocator    = Nothing

WScript.Quit 0

Пример:

ACPI\ThermalZone\TZ00_0: 27.8
ACPI\ThermalZone\TZ01_0: 29.8

Re: 1Сv8 Получение значения температуры процессора

null@example.com (alexii) — Thu, 23 May 2013 14:40:21 +0000

Банально: может не быть имплементации (класс есть, а библиотеки, отвечающей за реализацию — нет). Или умолчальное пространство не «root/WMI».

1Сv8 Получение значения температуры процессора

null@example.com (what?) — Thu, 23 May 2013 14:18:38 +0000

Доброго времени суток, друзья! Я еще совсем дилетант, но мне понадобилось получить значение температуры процессора. Я начитался всяких статей форумов и мало что понял. Собственно, я предполагал, что это должно выглядеть вот так:

Процедура ПриНачалеРаботыСистемы()
ИмяСервера = "localhost";

СервисыУправления = ПолучитьCOMОбъект("winmgmts://"+ИмяСервера);

ИмяКласса = "MSAcpi_ThermalZoneTemperature";

ДанныеСчетчика = СервисыУправления.ExecQuery ("select * from " + ИмяКласса);
Для каждого СтрокаРезультат Из ДанныеСчетчика Цикл
Результат = СтрокаРезультат["CurrentTemperature"];
КонецЦикла;
Сообщить(Результат);
КонецПроцедуры

Но код не работает. Что не так? Как это можно сделать? Не знаю, правильно ли я оформил тему, но все же прошу вас помочь мне.