может не быть имплементации
Доступа к значениям температуры Wbem на этой машине не имеет.
]]>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
Процедура ПриНачалеРаботыСистемы()
ИмяСервера = "localhost";
СервисыУправления = ПолучитьCOMОбъект("winmgmts://"+ИмяСервера);
ИмяКласса = "MSAcpi_ThermalZoneTemperature";
ДанныеСчетчика = СервисыУправления.ExecQuery ("select * from " + ИмяКласса);
Для каждого СтрокаРезультат Из ДанныеСчетчика Цикл
Результат = СтрокаРезультат["CurrentTemperature"];
КонецЦикла;
Сообщить(Результат);
КонецПроцедуры
Но код не работает. Что не так? Как это можно сделать? Не знаю, правильно ли я оформил тему, но все же прошу вас помочь мне.
]]>