"WinSat.exe formal" mit Delphi

[Mattze]

Hallo,

vergesst den vorigen Post.

Ich hatte nur nicht mitbekommen, dass sysnative ein Alias von system32 für 32-Bit-Programme ist.

Jetzt läuft alles wunderbar.

(Ich bin trotzdem etwas frustriert! Jetzt computere ich schon sooo lange, aber von sysnative habe ich noch nix gewusst! Und da gibt es bestimmt noch vieles...)

Gruß
Mattze

[Dalai]

@KodeZwerg: Vielleicht mag es WinSAT.exe nicht, wenn man sie aus einer 32-bit CMD ruft? Schließlich wird die ihre WinSATAPI.dll von dort laden wollen, aber 64-bit Programme haben keinen Zugriff auf SysNative (wozu auch).

Grüße
Dalai

[KodeZwerg]

Zitat von Dalai:

@KodeZwerg: Vielleicht mag es WinSAT.exe nicht, wenn man sie aus einer 32-bit CMD ruft? Schließlich wird die ihre WinSATAPI.dll von dort laden wollen, aber 64-bit Programme haben keinen Zugriff auf SysNative (wozu auch).

Grüße
Dalai

So ganz verstehe ich es noch nicht obwohl ich Teile davon verstehe.
Also ich kann nachvollziehen das ne 32bit CMD da eventuell was falsch macht.
Wie starte ich eine 64bit CMD?
Wie kann ein Delphi 7 (32bit) Kompilat darauf zugreifen ich aber mit CMD nicht, da wären wir wieder bei Zeile 1

Aber Danke, passt schon, ich will es eh nicht benutzen, aber hatte mich interessiert was da übers starten aus verschiedenen Verzeichnissen bei rauskommt. Meine Ergebnisse kann man da ja sehen.

[Dalai]

Zitat von KodeZwerg:

Wie starte ich eine 64bit CMD?

Start > Ausführen > "cmd.exe", ENTER. Oder via (Shift+)Rechtsklick im Explorer > Eingabeaufforderung hier öffnen. Es gibt darüber hinaus natürlich noch andere Wege. Startet man cmd.exe (mit oder ohne vollen Pfad) von einem 32-bit Programm aus, bekommt man immer die 32-bit CMD. Den Unterschied zwischen den beiden verschiedenen CMDs auf einem 64-bit Windows sollte man immer mit berücksichtigen, sonst kann man wunderschön auf die Schnauze fallen.

Zitat:

Wie kann ein Delphi 7 (32bit) Kompilat darauf zugreifen ich aber mit CMD nicht, da wären wir wieder bei Zeile 1

Darauf wollte ich nicht hinaus. Ich dachte mir, dass es vielleicht einen Unterschied macht, ob man eine 64-bit EXE im Kontext einer 32-bit CMD ausführt, oder stattdessen die 64-bit EXE direkt ruft und diese ihr eigenes Konsolenfenster öffnet. Alles nur Vermutung, Spekulation.

Die Antwort auf die Frage selbst lautet: Entweder unter Benutzung des SysNative-Verzeichnisses oder unter temporärer Abschaltung der WOW64-Redirection (Wow64DisableWow64FsRedirection/Wow64RevertWow64FsRedirection).

Grüße
Dalai

[THY4243]

Ergänzend zu Dalai als Hintergrund zur 32-/64-Bit Thematik (WOW64-Redirection):

https://www.delphipraxis.net/155861-...direction.html

https://docs.microsoft.com/de-de/win...tem-redirector


Winsat.exe hat so einige Parameter:

https://www.ghacks.net/2017/10/16/th...insat-command/

[KodeZwerg]

Danke Euch beiden dafür, da werden ich mal lesen und schauen wie ich den Konflikt bzw Knoten den ich gerade im Kopf habe löse

Offtopic
Hier noch eine WMI Batch Datei für Interessierte, die einem WinSAT Ergebnisse liefert, habs getestet und zeigt alles 0 an da ich das WinSAT Tool selbst noch nie Indexsen lies.

Delphi-Quellcode:

@ECHO OFF
IF NOT "%OS%"=="Windows_NT" GOTO Syntax
IF NOT  "%~3"==""           GOTO Syntax
ECHO.%* | FIND "?" >NUL  && GOTO Syntax

SETLOCAL ENABLEDELAYEDEXPANSION

SET Valid=0
FOR %%A IN ("" CPU D3D Disk Graphics Mem Memory Level Total Vid Video) DO (
   IF /I "%~1"=="%%~A" SET Valid=1
)
IF NOT "%Valid%"=="1" (
   ENDLOCAL
   GOTO Syntax
)

IF "%~2"=="" (
   SET Node=%ComputerName%
) ELSE (
   SET Node=%~2
)

SET RC=

SET WinSATAssessmentState.0=StateUnknown
SET WinSATAssessmentState.1=Valid
SET WinSATAssessmentState.2=IncoherentWithHardware
SET WinSATAssessmentState.3=NoAssessmentAvailable
SET WinSATAssessmentState.4=Invalid

FOR /F "tokens=1* delims==" %%A IN ('WMIC /Node:"%Node%" Path Win32_WinSAT Where TimeTaken^="MostRecentAssessment" Get WinSATAssessmentState /Format:LIST') DO (
   IF NOT "%%~B"=="" (
      FOR %%C IN (%%~B) DO (
         SET Win32_WinSAT.WinSATAssessmentState=!WinSATAssessmentState.%%C!
      )
   )
)
FOR /F "tokens=1* delims==" %%A IN ('WMIC /Node:"%Node%" Path Win32_WinSAT Where TimeTaken^="MostRecentAssessment" Get WinSPRLevel /Format:LIST') DO (
   IF NOT "%%~B"=="" (
      SET Result=%%~B
      FOR %%C IN ("!Result:,=.!") DO (
         SET Win32_WinSAT.WinSPRLevel=%%~C
      )
   )
)
FOR /F "tokens=1* delims==" %%A IN ('WMIC /Node:"%Node%" Path Win32_WinSAT Where TimeTaken^="MostRecentAssessment" Get * /Format:LIST ^| FINDSTR /R /B /I /C:"%~1[^=]*Score="') DO (
   IF NOT "%%~B"=="" (
      FOR %%C IN (%%~B) DO IF "!RC!"=="" SET /A RC = %%~C
      SET Result=%%~B
      FOR %%C IN ("!Result:,=.!") DO (
         SET Win32_WinSAT.%%A=%%~C
      )
   )
)
IF "%~1"=="" SET RC=%Win32_WinSAT.WinSPRLevel%
SET Win32_WinSAT.
ENDLOCAL & EXIT /B %RC%


:Syntax
ECHO.
ECHO WinSAT.bat,  Version 1.00
ECHO Return Windows System Assessment Tools's scores for the specified computer
ECHO.
ECHO Usage:  WINSAT  [ component  [ computer ] ]
ECHO.
ECHO Where:  "component" can have one of the following values:
ECHO             "CPU" to return the WinSAT CPU Score
ECHO             "D3D" to return the WinSAT CPU Score
ECHO             "Disk" to return the WinSAT Disk Score
ECHO             "Graphics", "Vid" or "Video" to return the WinSAT Graphics Score
ECHO             "Mem" or "Memory" to return the WinSAT Disk Score
ECHO             "Level" or "Total" to return the WinSAT Total Score (WinSPRLevel)
ECHO         "computer" is an optional remote computer (default: local computer)
ECHO.
ECHO Notes:  If a component is specified, only the score for that component will
ECHO         be displayed on screen.
ECHO         The integer value for the specified score will be returned as
ECHO         "errorlevel".
ECHO         If no component is specified, ALL scores will be displayed on screen,
ECHO         and the "errorlevel" will be the integer value of the total score.
ECHO.
ECHO Written by Rob van der Woude
ECHO http://www.robvanderwoude.com

IF "%OS%"=="Windows_NT" EXIT /B 1

[DevidEspenschied]

Hmm bzgl. der Ergebnisse habe ich die XML-Dateien ausgewertet - diese liegen an fest definierter Stelle und haben ein bestimmtes Format. Damit hast du auch Zugriff auf frühere Bewertungen.

Mag aber auch damit zusammenhängen, dass ich WMI nicht gerne verwende.