1:
2:
3:
4:
5:
6:
7:
8:
9:

uses Classes, Variants, ActiveX, WbemScripting_TLB

var

  Enum      : IEnumVARIANT;     // brauchen beide Versionen

  Obj       : SWBemObjectSet;    //wird nur von der 1.
  Services  : ISWbemServices;   // Version
  pUnk      : IInterface;              // benötigt					

1:
2:
3:
4:
5:
6:
7:
8:

  CoSWbemLocator.Create.ConnectServer(
          '.', 'root\cimv2', '', '', '', '', 0, nil,Services);

  Services.ExecQuery(
          'Select * from Win32_NetworkAdapter','WQL',
          wbemFlagBidirectional, nil,Obj);
  obj.Get__NewEnum(pUnk);
  Enum := pUnk as IEnumVariant;					

1:
2:
3:
4:

   Enum := CoSWbemLocator.Create.ConnectServer(
          '.', 'root\cimv2', '', '', '', '', 0, nil).ExecQuery(
          'Select * from Win32_NetworkAdapter','WQL',
          wbemFlagBidirectional, nil)._NewEnum as IEnumVariant;