WMI: Read an array property... how?

Hufff... you must import a type library...
Better... use the code of my answer of this question:

http://www.experts-exchange.com/Programming/Programming_Languages/Delphi/Q_21543514.html

Hi!

Thanks for your code!

Missing definition for vArray... I suppose that is a OleVariant :?

The code raises an exception in:

vArray:=oCosa.Capabilities.Value; //This raise exception: 'Invalid variant operation'

but with this works:

vArray:=oCosa.Capabilities; //This works

Finally, this works:

procedure TForm1.Button3Click(Sender: TObject);

  procedure EnumerateParallelPorts(TheList:TStrings);
  var
    oCosas,
    vArray,
    oCosa        : OleVariant;
    services     : OleVariant;
    i,iTemp      : longword;
    oEnum        : IEnumvariant;
    Locator      : ISWbemLocator;
  begin
    Locator := CreateOleObject('WbemScripting.SWbemLocator') as ISWbemLocator;
    Services := Locator.ConnectServer('.', 'root\cimv2', '', '', '', '', 0, nil);
    oCosas:=Services.ExecQuery('Select * from  Win32_ParallelPort');

    oEnum := IUnknown(oCosas._NewEnum) as IEnumVariant;

    //Get name & PNPDeviceId of the ports
    while oEnum.Next(1,oCosa,iTemp) = 0 do begin
      TheList.Add( Format('Port: %s, DeviceId: %s',[oCosa.Caption, oCosa.PNPDeviceId]) );

      //vArray:=oCosa.Capabilities.Value; //This raise exception: 'Invalid variant operation'
      vArray:=oCosa.Capabilities; //This works
      if not VarIsNull(vArray) then
        for i := VarArrayLowBound(vArray,1) to VarArrayHighBound(vArray, 1) do
          TheList.Add( Format(' Capabilities[%d]: %s',[i, VarToStr(vArray[i])]));

      oCosa:=Unassigned;
    end;

    oCosas := Unassigned;
    Services:=Unassigned;
  end;

begin
  EnumerateParallelPorts(Memo1.Lines);
end;

Sorry, I've declared an "A" variant variable, and after I rename to vArray to better reading.
I've not tested this code, because my NB doesn't have paralel ports.
I use your previous question:

  procedure EnumerateNetworkAdapters(TheList: TStrings);
  var
    oBindObj        : IDispatch;
    oNetAdapters,
    oNetAdapter, prop,
    oWMIService     : OleVariant;
    i,
    iValue          : longword;
    oEnum,Props     : 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
      TheList.Add('');
      TheList.Add(oNetAdapter.Caption);
      Props := IUnknown(oNetAdapter.Properties_._NewEnum) as IEnumVariant;
      while Props.Next(1, prop, iValue) = 0 do begin
        if Prop.IsArray then begin
          if VarIsNull(Prop.Value) then
            TheList.Add(' '+prop.Name+'[Array]: Null')
          else begin
            for i := VarArrayLowBound(Prop.Value,1) to VarArrayHighBound(Prop.Value,1) do
              TheList.Add( Format(' %s[%d]: %s',[VarToStr(prop.Name), i, VarToStr(Prop.Value[i])]));
          end;
        end else if VarIsNull(Prop.Value) then
          TheList.Add(' '+prop.Name+': Null')
        else
          TheList.Add(' '+prop.Name + ': '+string(Prop.Value));
      end;
      TheList.Add(oNetAdapter.Caption);
    end;

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

>Sorry, I've declared an "A" variant variable, and after I rename to vArray to better reading.

Yes I have seen, no problem :) this works!, but my parallel port capabilities enumeration not :( simply... this property is empty...
I have test with other wmi programs and... definitively is empty...

What you want to know of Paralel port?