AVZ 5. Руководство пользователя
×

16.47.6.5. Получение списка установленного программного обеспечения

function GetField(AName : string) : string;
begin
  Result := AName +
           '="'+
            WMI_GETFIELD(AName)+
           '"';
end;
 
begin
  if WMI_INIT('localhost', 'root\cimv2') then
    if WMI_QUERY('SELECT * FROM Win32_Product') then
      while WMI_FETCH do begin
         AddToLog(
             GetField('Name')+', '+
             GetField('Caption')+', '+
             GetField('Description')+', '+
             GetField('InstallDate')+', '+
             GetField('Vendor')
         );
      end;
end.
 
В примере использовались:  AddToLog, StrToFloat, WMI_FETCH, WMI_GETFIELD, WMI_INIT, WMI_QUERY
 
На заметку - данный скрипт может выполняться длительное время (до 30-40 сек) ввиду большого количества возвращаемых записей.