Enumerate COM object properties

Be the code:

procedure TForm1.Button1Click(Sender: TObject);


  procedure EnumerateNetworkAdapters(TheList: TStrings);
  //uses ComObj, ActiveX, UrlMon
  var
    oBindObj        : IDispatch;
    oNetAdapters,
    oNetAdapter,
    oWMIService     : OleVariant;
    i,
    iValue          : longword;
    oEnum           : IEnumvariant;
    oCtx            : IBindCtx;
    oMk             : IMoniker;
    sFileObj        : widestring;
  begin
    sFileObj := 'winmgmts:\\.\root\cimv2';

    // Connect to WMI - Emulate API GetObject()
    OleCheck(CreateBindCtx(0,oCtx));
    OleCheck(MkParseDisplayNameEx(oCtx,PWideChar(sFileObj),i,oMk));
    OleCheck(oMk.BindToObject(oCtx,nil,IUnknown,oBindObj));
    oWMIService := oBindObj;


    oNetAdapters := oWMIService.ExecQuery('Select * from ' +
                                          'Win32_NetworkAdapterConfiguration ');

    oEnum := IUnknown(oNetAdapters._NewEnum) as IEnumVariant;
    while oEnum.Next(1,oNetAdapter,iValue) = 0 do begin
      //Here, I can read the property Caption
      //How can I enumerate all properties availables?
      //And list its values?

      TheList.Add(oNetAdapter.Caption);
      oNetAdapter := Unassigned;
    end;

    oNetAdapters := Unassigned;
    oWMIService := Unassigned;
  end;

begin
 EnumerateNetworkAdapters(Memo1.Lines);
end;

With it, I can enumerate the network adapters.
I iterate trought the results with the loop:

    oEnum := IUnknown(oNetAdapters._NewEnum) as IEnumVariant;
    while oEnum.Next(1,oNetAdapter,iValue) = 0 do begin
      //Here, I can read the property Caption
      //How can I enumerate all properties availables?
      //And list its values?

      TheList.Add(oNetAdapter.Caption);
      oNetAdapter := Unassigned;
    end;

and add in TheList the property 'Caption'.
It's possible enumerate all the properties of the object and get its values?