// On créé un enumérateur
  vEnum := IUnknown(ASWbemObject.Properties_._NewEnum) as IEnumVariant;
  while vEnum.Next(1, vSWbemProperty, vCardinal) = 0 do
  begin
  ... // ici on accéde a chaque properties avec vSWbemProperty
  end;