Error utilizando WMI

[madiazg]

Buenos días,
he intentado utilizar el código que aparece en el artículo All about WiFi Networks and WiFi Adapters using the WMI and Delphi pero al ejecutar el procedimiento Current Wifi NetWork me da un error indicándome "clase no válida".

Project raised exception class EOleException with message "Clase no válida"

en la línea

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

El código completo es el siguiente:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
  ComObj, ActiveX, Variants, XPMan;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    XPManifest1: TXPManifest;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure  GetWiFi_AdapterAssociationInfo; //Current Wifi NetWork
const
  WbemUser            ='';
  WbemPassword        ='';
  WbemComputer        ='localhost';
  wbemFlagForwardOnly = $00000020;
var
  FSWbemLocator : OLEVariant;
  FWMIService   : OLEVariant;
  FWbemObjectSet: OLEVariant;
  FWbemObject   : OLEVariant;
  oEnum         : IEnumvariant;
  iValue        : LongWord;
begin;
  Form1.Memo1.Clear;
  FSWbemLocator := CreateOleObject('WbemScripting.SWbemLocator');
  FWMIService   := FSWbemLocator.ConnectServer(WbemComputer, 'root\CIMV2', WbemUser, WbemPassword);
  FWbemObjectSet:= FWMIService.ExecQuery('SELECT * FROM WiFi_AdapterAssociationInfo','WQL',wbemFlagForwardOnly);
  oEnum         := IUnknown(FWbemObjectSet._NewEnum) as IEnumVariant;
  while oEnum.Next(1, FWbemObject, iValue) = 0 do
  begin
    Form1.Memo1.Lines.Add(Format('Associated         %s',[FWbemObject.Associated]));// Boolean
    Form1.Memo1.Lines.Add(Format('AuthenAlgorithm    %s',[FWbemObject.AuthenAlgorithm]));// String
    Form1.Memo1.Lines.Add(Format('AuthenEnabled      %s',[FWbemObject.AuthenEnabled]));// Boolean
    Form1.Memo1.Lines.Add(Format('AuthenMode         %s',[FWbemObject.AuthenMode]));// String
    Form1.Memo1.Lines.Add(Format('Caption            %s',[FWbemObject.Caption]));// String
    Form1.Memo1.Lines.Add(Format('Channel            %s',[FWbemObject.Channel]));// String
    Form1.Memo1.Lines.Add(Format('Description        %s',[FWbemObject.Description]));// String
    Form1.Memo1.Lines.Add(Format('Encryption         %s',[FWbemObject.Encryption]));// String
    Form1.Memo1.Lines.Add(Format('OpMode             %s',[FWbemObject.OpMode]));// String
    Form1.Memo1.Lines.Add(Format('Profile            %s',[FWbemObject.Profile]));// String
    Form1.Memo1.Lines.Add(Format('Rate               %s',[FWbemObject.Rate]));// String
    Form1.Memo1.Lines.Add(Format('SettingID          %s',[FWbemObject.SettingID]));// String
    Form1.Memo1.Lines.Add(Format('SSID               %s',[FWbemObject.SSID]));// String
    FWbemObject:=Unassigned;
  end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  GetWiFi_AdapterAssociationInfo;
end;

end.

Utilizo Windows XP y Windows 7 y programo en Turbopascal.

¿Alguien puede ayudarme?

Saludos...

[Neftali [Germán.Estévez]]

Hay una clases WMI básicas y a partir de ahí hay muchas otras que se instalan dependiendo de los proveedores; Es decir, que dos equipos no tienen porqué tener las mismas clases instaladas.
Como dice en el artículo, la clase que se usa no es de las que "vienen por defecto con el sistema" y para poder disfrutar de ella, tu dispositivo WIFI debe instalar un proveedor que te permita acceder a ella.

"In order to work with the next WMI classes your Wifi Network adapter must install a CIMWiFiProvider which implement these classes."