#ini
[Property]
Server=Имя компьютера в сети|2|.
#pas
_prop_Server:string;
...
objService := GetObject('winmgmts:{impersonationLevel=impersonate}!\\' + _prop_Server + '\root\CIMV2');
Данная ф-ция полезна для мониторинга рабочих станций в своей сети.
------------ Дoбавленo:
Добавил параметр LoadPercentage, всвязи с чем обратил внимание на способ получения данных:
#sql
SELECT * FROM Win32_Processor
это не совсем корректно. Дело в том, что такие параметры, как загрузка процессора, напряжение ядра и т.д. не могут быть полученны мгновенно(особенно первое) и поэтому даже если нам надо узнать всего лишь модель CPU мы все равно будем ждать ~3 секунды пока WMI накопит данные о загрузке. Выход тут только один: формировать правильный SQL запрос в зависимости от факта фодключения нижних точек. Но как такое сделать в пакете Delphi пока на ум не приходит...