16.48.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.
На заметку - данный скрипт может выполняться длительное время (до 30-40 сек) ввиду большого количества возвращаемых записей.