Hi,
heute zeig ich euch einen source mit dem ihr die Leistungsbewertung von Vista auslesen könnt

müsste eigentlich gehen

' Region Description
'
' Name: Leistungsbewertung
' Author: kInGoFcHaOs
' Version: 0.1
' Description:Leistungsbewertung auslesen
'
'
' EndRegion
server = "E60"
Username = "kInGoFcHaOs"
Password = "Tutorial"
NAMESPACE = "root\CIMV2"
Set objLoc = CeateObject("WbemScripting.SWbemLocator")
Set objServ = objLoc.ConnectServer(server, NAMESPACE, Username, Password)
Set Menge = objServ.InstancesOf("Wom32_WinSAT ")
For Each objW0 In Menge
WScript.echo "Bewertung Prozessor: " & objW0.CPUScore
WScript.Echo "Bewertung Speichert: " & objW0.MemoryScore
WScript.Echo "Bewertung Festplatte" & pbjW0.DiskScore
WScript.Echo "Bewertung Grafikkarte" & pbjW0.GrahicsScore
WScript.Echo "Bewertung 3D " & pbjW0.D3DScore
WScript.Echo "Gesamtnote der Hardware" & pbjW0.WinSPRLevel
Next