Zugriff auf Sicherheitscenter von WinXP SP2

[x000x]

Moin moin,

du könntest nochmal folgendes versuchen:

Delphi-Quellcode:

//...
var
//...
  pFetched     : LongInt;
  unknown      : Variant; //IUnknown;  
  enumUnk      : IEnumUnknown;
//...
begin
//...
      unknown    := SWbemQuery._NewEnum;
      IUnknown(unknown).QueryInterface(IEnumVariant, enumUnk); // unknown.QueryInterface(IEnumVariant, enumUnk);
//...
      szWQL := 'Select * from FirewallProduct';
      SWbemQuery := SWbemCon.ExecQuery(szWQL,'WQL', 48);
      unknown := SWbemQuery._NewEnum;
      IUnknown(unknown).QueryInterface(IEnumVariant, enumUnk); // unknown.QueryInterface(IEnumVariant, enumUnk);
//...

Falls das nicht funktionieren sollte, kannst du das ganze auch über die Unit WbemScripting_TLB realisieren, wie
du zu dieser kommst, findest du bestimmt hier im Forum...