Последние записи

made in programmersforum 3

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

27th
Авг

Не появляется TSWbemLocator при импорте Microsoft WMI Scripting v1.2

Posted by Chas under Delphi

Пробую работать с WMI, по мануалу. Все делаю как там написано, но такого компонента у меня нет, Delphi XE4. Как я понимаю он должен был появиться после импорта Microsoft WMI Scripting v1.2, но этого не происходит. В чем соль?)

Stilet
В чем соль нужно посмотреть в палитре классов для этого Microsoft WMI Scripting v1.2.
Сейчас навскидку не помню что он содержит, возможно придется еще что-то подключать. Я лично предпочитаю вот так с ним работать:

uses    activex, comobj, variants,

...

var objSWbemLocator,objWMIService,Records,Rec,Field:olevariant;

  id:IDispatch;  Enum,Fields:IEnumVariant;

...

begin

  objSWbemLocator:=CreateOleObject('WbemScripting.SWbemLocator');

  if not VarIsClear(objSWbemLocator) then begin

   objWMIService:=objSWbemLocator.ConnectServer('','','','','','',0,id);

   if not VarIsClear(objWMIService) then begin

    Records:=objWMIService.ExecQuery('select name from win32_account','WQL',0,id);

    if not VarIsClear(Records) then begin

     Enum:=IEnumVariant(IUnknown(Records._NewEnum));

     while (Enum.Next(1, Rec) = S_OK) do begin

      Fields:=IEnumVariant(IUnknown(Rec.Properties_._NewEnum));

        while (Fields.Next(1, Field) = S_OK) do begin

         try

          if VarIsNull(Field.Value) then s:='[NULL]'

          else  begin

            s:=Field.Value;

            if Field.CIMType=$00000065 then begin

             s:=copy(s,7,2)+'.'+copy(s,5,2)+'.'+copy(s,1,4);

            end;

          end;

          ListBox1.Items.Append(s);

         except
         end;

        end;

     end;

     Records:=nil;

    end;

   end;

   objWMIService:=nil;

  end;

  objSWbemLocator:=nil;

end;