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

[bakanaev]

Пробую работать с WMI, по этому мануалу
Все делаю как там написано, но

добавляем к нему компоненту TSWbemLocator

такого компонента у меня нет, 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;