Delphi Get memory and I/O Address settings of the Adapter [Console]

Code
procedure  GetWiFi_AdapterConfigSettingsInfo;

const

  WbemUser            ='';

  WbemPassword        ='';

  WbemComputer        ='localhost';

  wbemFlagForwardOnly = $00000020;

var

  FSWbemLocator : OLEVariant;

  FWMIService   : OLEVariant;

  FWbemObjectSet: OLEVariant;

  FWbemObject   : OLEVariant;

  oEnum         : IEnumvariant;

  iValue        : LongWord;

begin;

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

  FWMIService   := FSWbemLocator.ConnectServer(WbemComputer, 'root\CIMV2', WbemUser, WbemPassword);

  FWbemObjectSet:= FWMIService.ExecQuery('SELECT * FROM WiFi_AdapterConfigSettings','WQL',wbemFlagForwardOnly);

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

  while oEnum.Next(1, FWbemObject, iValue) = 0 do

  begin

    Writeln(Format('AddressingMode            %s',[FWbemObject.AddressingMode]));// String

    Writeln(Format('AttributeMemoryAddress    %s',[FWbemObject.AttributeMemoryAddress]));// String

    Writeln(Format('AttriuteMemorySize        %s',[FWbemObject.AttriuteMemorySize]));// String

    Writeln(Format('Caption                   %s',[FWbemObject.Caption]));// String

    Writeln(Format('ControllerIOAddress       %s',[FWbemObject.ControllerIOAddress]));// String

    Writeln(Format('Description               %s',[FWbemObject.Description]));// String

    Writeln(Format('InterruptNumber           %s',[FWbemObject.InterruptNumber]));// String

    Writeln(Format('IOAddress                 %s',[FWbemObject.IOAddress]));// String

    Writeln(Format('MemoryAddress             %s',[FWbemObject.MemoryAddress]));// String

    Writeln(Format('MemorySize                %s',[FWbemObject.MemorySize]));// String

    Writeln(Format('PacketFilterMask          %s',[FWbemObject.PacketFilterMask]));// String

    Writeln(Format('SettingID                 %s',[FWbemObject.SettingID]));// String

    Writeln(Format('SocketNumber              %s',[FWbemObject.SocketNumber]));// String

    FWbemObject:=Unassigned;

  end;

end;