Skript zum Testen der Windows-Leistung

Problem
Lösung

Problem

Wie kann ich mit einem Skript auf Windows zugreifen? Ein Skript, das wie die Bewertungsmethode in Windows Vista und Seven funktioniert?

Lösung

Öffnen Sie einen Notizblock
Kopieren Sie das folgende Skript.

 strComputer = "." Set objWMIService = GetObject ("winmgmts: \\" & strComputer & "\ root \ cimv2") Set colItems = objWMIService.ExecQuery ("Select * From Win32_WinSAT") Für jedes Objekt in colItems Fall auswählen objItem.WinSATAssessmentState "3" msg = "Warnung, Tests waren nicht gut" Fall "1" msg = "Ergebnisse liegen vor ..." Fall "2" msg = "Warnung: Inkonsistente Ergebnisse" Fall "4" msg = "Warnung vor ungültigen Tests" Ende Auswahl msg = msg + VBCRLF + "CPU:" & objItem.CPUScore msg = msg + VBCRLF + "RAM:" & objItem.MemoryScore msg = msg + VBCRLF + "Festplatte:" & objItem.DiskScore msg = msg + VBCRLF + "GPU:" & objItem.GraphicsScore msg = msg + VBCRLF + "Spieleleistung:" & objItem.D3DScore msg = msg + VBCRLF + "Durchschnittliche Bewertung:" & objItem.WinSPRLevel Wscript.Echo msg Next