|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
получить показания датчиков температуры пк
Здравствуйте!
Сижу уже день терзая гугл, но абсолютно ничего работающего не нашел..Все что не пробовал с wmi не работает: или провайдера не существует или пустой список возвращает.. Как же все таки вытащить инфу о температуре компонентов пк? Кучи же подобного софта , казалось бы тривиальная задача, но на деле... Вообще интересуют: HDD,System,CPU и GPU.. Вот этот код возвращает пустой список, пробовал на ноутбуках с разных эпох, результат тот же...Windows7/XP Код:
WMIServices := CoSWbemLocator.Create.ConnectServer('.', 'root\cimv2','', '', '', '', 0, nil); Root := WMIServices.ExecQuery('Select * FROM Win32_TemperatureProbe','WQL', 0, nil); for I := 0 to Root.Count - 1 do begin Item := Root.ItemIndex(I); Writeln('Accuracy '+VarToStr(Item.Accuracy)); Writeln('Availability '+VarToStr(Item.Availability)); Writeln('Caption '+Item.Caption); Writeln('Config Manager Error Code '+VarToStr(Item.ConfigManagerErrorCode)); Writeln('Config Manager User Config '+VarToStr(Item.ConfigManagerUserConfig)); Writeln('Creation Class Name '+VarToStr(Item.CreationClassName)); Writeln('Current Reading '+VarToStr(Item.CurrentReading)); Writeln('Description '+VarToStr(Item.Description)); Writeln('Device ID '+VarToStr(Item.DeviceID)); Writeln('Error Cleared '+VarToStr(Item.ErrorCleared )); Writeln('Error Description '+VarToStr(Item.ErrorDescription)); Writeln('Install Date '+VarToStr(Item.InstallDate)); Writeln('Is Linear '+VarToStr(Item.IsLinear)); Writeln('Last Error Code '+VarToStr(Item.LastErrorCode)); Writeln('Lower Threshold Critical '+VarToStr(Item.LowerThresholdCritical)); Writeln('Lower Threshold Fatal '+VarToStr(Item.LowerThresholdFatal)); Writeln('Lower Threshold NonCritical '+VarToStr(Item.LowerThresholdNonCritical)); Writeln('Max Readable '+VarToStr(Item.MaxReadable)); Writeln('Min Readable '+VarToStr(Item.MinReadable)); Writeln('Name '+VarToStr(Item.Name)); Writeln('Nominal Reading '+VarToStr(Item.NominalReading)); Writeln('Normal Max '+VarToStr(Item.NormalMax)); Writeln('Normal Min '+VarToStr(Item.NormalMin )); Writeln('PNP Device ID '+VarToStr(Item.PNPDeviceID)); Writeln('Power Management Capabilities '+VarToStr(Item.PowerManagementCapabilities)); Writeln('Power Management Supported '+VarToStr(Item.PowerManagementSupported)); Writeln('Resolution '+VarToStr(Item.Resolution)); Writeln('Status '+VarToStr(Item.Status)); Writeln('Status Info '+VarToStr(Item.StatusInfo)); Writeln('System Creation Class Name '+VarToStr(Item.SystemCreationClassName)); Writeln('System Name '+VarToStr(Item.SystemName)); Writeln('Tolerance '+VarToStr(Item.Tolerance)); Writeln('Upper Threshold Critical '+VarToStr(Item.UpperThresholdCritical)); Writeln('Upper Threshold Fatal '+VarToStr(Item.UpperThresholdFatal)); Writeln('Upper Threshold NonCritical '+VarToStr(Item.UpperThresholdNonCritical)); Writeln(''); end; end; |