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...