Windows Leistungsindex

[PeterPanino]

In Windows gibt es den "Windows Experience Index (WEI) score".

Im Ordner "C:\Windows\Performance\WinSAT\DataStore\" gibt es mehrere Dateien mit dem Muster "<...> Formal.Assessment (Recent).WinSAT.xml", welche den System-Leistungsindex enthalten:

<SystemScore>7.5</SystemScore>

Weiß jemand, ob dieser System-Leistungsindex noch sonstwo gespeichert ist (Registry?), sodass man nicht mühsam alle diese XML-Dateien parsen muss?

[PeterPanino]

Kann jemand bitte mal testen, ob das auf seinem System funktioniert? Auf meinem System funktioniert es nämlich nicht - Ergebnis ist immer -1,00

Delphi-Quellcode:

program TestConsoleApplication;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  CodeSiteLogging,
  WbemScripting_TLB,
  ActiveX,
  System.Variants,
  System.SysUtils;

function GetWMIstring(wmiHost, wmiClass, wmiProperty: string): string;
var
  // These are all needed for the WMI querying process
  Locator: ISWbemLocator;
  Services: ISWbemServices;
  SObject: ISWbemObject;
  ObjSet: ISWbemObjectSet;
  SProp: ISWbemProperty;
  Enum: IEnumVariant;
  Value: Cardinal;
  TempObj: OleVariant;
  SN: string;
begin
  Result := '';
  try
    // Create the Location object
    Locator := CoSWbemLocator.Create;
    // Connect to the WMI service, with the root\cimv2 namespace
    Services := Locator.ConnectServer(wmiHost, 'root\cimv2', '', '', '', '', 0, nil);
    ObjSet := Services.ExecQuery('SELECT * FROM ' + wmiClass, 'WQL', wbemFlagReturnImmediately and wbemFlagForwardOnly, nil);
    Enum := (ObjSet._NewEnum) as IEnumVariant;

    while Enum.Next(1, TempObj, Value) = S_OK do
    begin

      try
        SObject := IUnknown(TempObj) as ISWBemObject;
      except
        SObject := nil;
      end;
      // Always need to free interface in TempObj
      TempObj := System.Variants.Unassigned;

      if SObject <> nil then
      begin
        SProp := SObject.Properties_.Item(wmiProperty, 0);
        SN := SProp.Get_Value;

        if not VarIsNull(SN) then
        begin
          Result := SN;
          Break;
        end;

      end;
    end;
    // Trap any exceptions (Like not having WMI installed will cause one...)
  except
  end;
end;

begin
  try

    CodeSite.Send('Start');
    CodeSite.Send('CPUScore', Format('%.2f', [StrToFloatDef(GetWMIstring('', 'Win32_WinSAT', 'CPUScore'), -1)]));
    CodeSite.Send('WinSPRLevel', Format('%.2f', [StrToFloatDef(GetWMIstring('', 'Win32_WinSAT', 'WinSPRLevel'), -1)]));

  except
    on E: Exception do
    begin
      Writeln(E.ClassName, ': ', E.Message);
      Readln;
    end;
  end;
end.

[PeterPanino]

Jetzt funktioniert es! War ein kleiner Druckfehler ;-)

[PeterPanino]

Hier sind die anderen Abfragen:

Delphi-Quellcode:

CodeSite.Send('CPUScore', Format('%.2f', [StrToFloatDef(GetWMIstring('', 'Win32_WinSAT', 'CPUScore'), -1)]));
CodeSite.Send('MemoryScore', Format('%.2f', [StrToFloatDef(GetWMIstring('', 'Win32_WinSAT', 'MemoryScore'), -1)]));
CodeSite.Send('GraphicsScore', Format('%.2f', [StrToFloatDef(GetWMIstring('', 'Win32_WinSAT', 'GraphicsScore'), -1)]));
CodeSite.Send('D3DScore', Format('%.2f', [StrToFloatDef(GetWMIstring('', 'Win32_WinSAT', 'D3DScore'), -1)]));
CodeSite.Send('DiskScore', Format('%.2f', [StrToFloatDef(GetWMIstring('', 'Win32_WinSAT', 'DiskScore'), -1)]));
CodeSite.Send('WinSPRLevel', Format('%.2f', [StrToFloatDef(GetWMIstring('', 'Win32_WinSAT', 'WinSPRLevel'), -1)]));

[himitsu]

Da ist aber mindestens ein gravierender Fehler drin.

Für ein leeres

Delphi-Quellcode:

except end

sollte man mindestens gesteinigt werden

und

Delphi-Quellcode:

if VarIsNull(SN)

wird niemals False liefer, da SN den falschen Typen hat.
Noch besser ist aber, dass der Fehler, welcher damit abgefangen werden sollte, schon vorher knallt, wenn versucht wird Null an SN zuzuweisen.

[PeterPanino]

Verbesserungsvorschlag?

[KodeZwerg]

ot
Nur mal rein Interessehalber nachgefragt, was fängst Du mit diesen Werten an?

[PeterPanino]

Zitat:

Zitat von himitsu (Beitrag 1412769)

... und

Delphi-Quellcode:

if VarIsNull(SN)

wird niemals False liefer, da SN den falschen Typen hat.
Noch besser ist aber, dass der Fehler, welcher damit abgefangen werden sollte, schon vorher knallt, wenn versucht wird Null an SN zuzuweisen.

Die Frage ist vielmehr, ob der Fehler nicht schon in

Delphi-Quellcode:

SN := SProp.Get_Value;

liegt, wo einer String-Typ-Variablen (SN) ein Ergebnis vom Typ OleVariant zugewiesen wird. Wieso meckert da der Compiler nicht?

[PeterPanino]

Zitat:

Zitat von PeterPanino (Beitrag 1412773)

Zitat:

Zitat von himitsu (Beitrag 1412769)

... und

Delphi-Quellcode:

if VarIsNull(SN)

wird niemals False liefer, da SN den falschen Typen hat.
Noch besser ist aber, dass der Fehler, welcher damit abgefangen werden sollte, schon vorher knallt, wenn versucht wird Null an SN zuzuweisen.

Die Frage ist vielmehr, ob der Fehler nicht schon in

Delphi-Quellcode:

SN := SProp.Get_Value;

liegt, wo einer String-Typ-Variablen (SN) ein Ergebnis vom Typ OleVariant zugewiesen wird. Wieso meckert da der Compiler nicht?

So wäre es wahrscheinlich korrekt:

Delphi-Quellcode:

SN := string(SProp.Get_Value);

//if not VarIsNull(SN) then
if SN <> '' then
begin
  Result := SN;
  Break;
end;

[Schokohase]

System.Variants.VarToStr

Wahrscheinlich wäre es besser, wenn du mal ausprobieren würdest, wie dein Code bei NULL reagiert, dann wird aus Vermutung Gewissheit und aus Ahnung Wissen.

[PeterPanino]

Zitat:

Zitat von Schokohase (Beitrag 1412775)

System.Variants.VarToStr

Danke,

Delphi-Quellcode:

System.Variants.VarToStr

ist noch besser, weil es bei einem NULL-Ergebnis von

Delphi-Quellcode:

Get_Value

automatisch einen Leerstring zurückliefert.

[PeterPanino]

Zitat:

Zitat von Schokohase (Beitrag 1412775)

... dann wird aus Vermutung Gewissheit und aus Ahnung Wissen.

Danke, ich schätze die Menschen bei Delphi-PRAXIS nicht nur wegen ihres Experten-Wissens, sondern auch wegen ihrer philosophischen Aussagen! :thumb:

[PeterPanino]

Zitat:

Zitat von KodeZwerg (Beitrag 1412771)

ot
Nur mal rein Interessehalber nachgefragt, was fängst Du mit diesen Werten an?

Diese Frage ist zutiefst menschlich, weil sie den Sinn und Zweck menschlichen Bemühens in den Mittelpunkt stellt.

Ich verweise deshalb auf den Sinn des Lebens und wünsche noch einen schönen Sonntag.

[KodeZwerg]

Zitat:

Zitat von PeterPanino (Beitrag 1412779)

Zitat:

Zitat von KodeZwerg (Beitrag 1412771)

ot
Nur mal rein Interessehalber nachgefragt, was fängst Du mit diesen Werten an?

Diese Frage ist zutiefst menschlich, weil sie den Sinn und Zweck menschlichen Bemühens in den Mittelpunkt stellt.

Eigentlicht nicht, ich empfinde weder die Frage noch dessen Antwort als ein Mysterium was ich unbedingt Erforschen wollte aber der Hintergrund meiner Frage hatte ursprünglich einen tieferen Sinn, aber nicht den Sinn des Lebens, von daher Streiche ich das mal schnell wieder und Wünsche ebenfalls einen schönen Abend.

[PeterPanino]

Zitat:

Zitat von KodeZwerg (Beitrag 1412802)

... der Hintergrund meiner Frage hatte ursprünglich einen tieferen Sinn

Dann war das ein Missverständnis. Welchen tieferen Sinn hatte denn die Frage?

[himitsu]

Zitat:

Zitat von PeterPanino (Beitrag 1412773)

Die Frage ist vielmehr, ob der Fehler nicht schon in

Delphi-Quellcode:

SN := SProp.Get_Value;

liegt, wo einer String-Typ-Variablen (SN) ein Ergebnis vom Typ OleVariant zugewiesen wird. Wieso meckert da der Compiler nicht?

Er würde da meckern, aber das merkt keiner, wegen dem leeren Try-Except. :zwinker: :wall:

Egal ob nun implizit oder explizit gecastet.


Der Code mit

Delphi-Quellcode:

var SN: Variant;

oder eben VarToStr oder Dergleichen.