Примеры

Примеры

Previous pageReturn to chapter overviewNext page

1. Скрипт, выводящий сведения о текущих установленных антивирусах

begin

if WMI_INIT('localhost', 'root\SecurityCenter2') then

 if WMI_QUERY('SELECT * FROM AntiVirusProduct') then

  while WMI_FETCH do

  Addtolog(WMI_GETFIELD('displayName') + ', '+WMI_GETFIELD('instanceGuid'));

end.

 
2. Сведения о видеокарте
begin

if WMI_INIT('localhost', 'root\cimv2') then

 if WMI_QUERY('SELECT * FROM Win32_VideoController') then

  while WMI_FETCH do begin

    Addtolog('VideoProcessor = '+ WMI_GETFIELD('VideoProcessor'));

    Addtolog('Video RAM = '+ WMI_GETFIELD('AdapterRAM'));

    Addtolog('VideoModeDescription = '+ WMI_GETFIELD('VideoModeDescription'));

  end;

end.

 
3. Данные о дисках в системе
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_LogicalDisk') then

  while WMI_FETCH do begin

    Addtolog(GetField('DeviceID')+', '+

             GetField('VolumeName')+', '+

             GetField('Size')+', '+

             GetField('FreeSpace')+', '+

             GetField('VolumeSerialNumber'));

  end;

end.