а вы знакомы с WMI?

несколько дней назад аббревиатура WMI мне была знакома лишь из списка служб Windows. Однако после короткого знакомства выяснилось что это весьма мощный инструмент для администрирования и получения информации о системе, причем удаленных системах в том числе. В прочем в работе с удаленными машинами это насколько я понимаю и заключается суть WMI. Меня же пока что заинтересовало лишь получение информации с локальной машины, хотя на самом деле получить информацию с удаленной ни чуть не сложнее должно быть. Итак, маленький пример использования WMI в Delphi. Чтобы получить возможность использовать WMI в Delphi необходимо импортировать библиотеку Microsoft WMI Scripting v1.x Library (wbemdisp.tbl) после чего непосредственно получим модуль с описанием интерфейсов WBEM (web-based enterprise managment). Поскольку навыков работы с WMI  я не имею, то теории здесь не будет никакой (: Допустим мы хотим получить некоторую информацию о конфигурации системы, например, о процессоре, об ОС, о BIOS, о жестком диске, или посмотреть список процессов, или даже данные о производительности. Для решения подобных задач сначала необходимо подключиться к провайдеру WMI и выбрать нужную информацию опираясь на описание классов предоставляемых WMI. Для начала с помощью ISWbemLocator нам требуется подключиться к нужной машине и пространству имен, и получить экземпляр ISWbemServices с помощью которого можно выполнять действия над этим пространством имен, например выполнять запросы, для запросов используется язык WQL, весьма напоминающий SQL. Итак, services для будущих нужд занесем в private секцию формы, и получим его экземпляр при создании формы.

uses WbemScripting_TLB;
...
  private
     services : ISWbemServices;
...
procedure TMainForm.FormCreate(Sender: TObject);
var locator : ISWbemLocator;
begin
    locator := CoSWbemLocator.Create();
    services := locator.ConnectServer('.','root\cimv2','','','','',0,nil);
end;

Метод ConnectServer содержит в качестве параметров имя (ип адрес) машины, имя пользователя пароль и т.п Допустим мы хотим получить сведения об операционной системе которые представлены классом Win32_OperatingSystem, например название, номер сборки, архитектуру, директорию системы; Информацию о процессоре Win32_Processor: название, тактовая частота в МГц, число ядер, размер кэша второго уровня в килобайтах; информацию о видеоадаптере (Win32_VideoController): название, количество памяти, режим экрана, драйверы. для хранения нужных классов и полей воспользуется sl:TStringList, в значения которого запишем sl[wmi_class_name] = field_list; Далее для всех записей из списка извлечем нужную информацию с помощью sevices. Далее разделим с помощью pl : TStringList список извлекаемых для класса полей на отдельные строки. Для каждой такой строки получим соответствуещее свойство по названию, и добавим в итоговую информацию в TValueListEditor на форме. После чего для наглядности переведем объем видеопамяти в Мбайты. Поэтому расширим обработчик создания формы следующим образом:

procedure TMainForm.FormCreate(Sender: TObject);
var locator : ISWbemLocator;
    objectSet : ISWbemObjectSet;
    obj : ISWbemObject;
    sl,pl : TStringList;
    i,j:integer;
    wmiClass, selectList : string;
    propName : string;
    propValue : string;
    varProp : oleVariant;
    intVal : cardinal;
begin
    locator := CoSWbemLocator.Create();
    services := locator.ConnectServer('.','root\cimv2','','','','',0,nil);
    locator := nil;

    sl := TStringList.Create;
    pl := TStringList.Create;

    sl.Values['Win32_OperatingSystem'] := 'Caption, Version, OSArchitecture, WindowsDirectory';
    sl.Values['Win32_Processor']       := 'Name, NumberOfCores, CurrentClockSpeed, L2CacheSize';
    sl.Values['Win32_VideoController'] := 'VideoProcessor, AdapterRAM, VideoModeDescription, InstalledDisplayDrivers';
    for i:=0 to sl.Count - 1 do begin
        wmiClass  := sl.Names[i];
        selectList := sl.ValueFromIndex[i];
        pl.CommaText := selectList;
        objectSet :=services.ExecQuery('select '+ selectList + ' from ' + wmiClass,'WQL',
                                   wbemFlagReturnImmediately and wbemFlagForwardOnly,nil);
        obj := objectSet.ItemIndex(0);
        for propName in pl do begin
            varProp := obj.Properties_.Item(propName,0);
            if not varIsNull(varProp) then
                propValue := varToStr(varProp)
            else propValue := '';
            valueList.Values[propName] := propValue;
        end;
    end;
    intVal :=  StrToInt(valueList.Values['AdapterRAM']);
    valueList.Values['AdapterRAM'] := intToStr(intVal shr 20);
    sl.Free;
    pl.Free;
end;

результат: