Skript för att testa Windows-prestanda

Problem
Lösning

Problem

Hur kan jag använda ett manus för att komma åt Windows? Ett manus som fungerar som betygsmetoden i Windows Vista och Seven?

Lösning

Öppna ett anteckningsblock
Kopiera nedanstående manus

 strComputer = "." Ange objWMIService = GetObject ("winmgmts: \\" & strComputer & "\ root \ cimv2") Ange colItems = objWMIService.ExecQuery ("Välj * Från Win32_WinSAT") För varje objekt i kolumner Välj Objekt ObjItem.WinSATAssessmentState Case "0" "3" msg = "Varning: Okomplicerade resultat" Fall "1" msg = "Resultat är tillgängliga ..." Fall "2" msg = "Varning: Inkonsekventa resultat" Fall "4" msg = "Varning ogiltiga tester" Sluta Välj msg = msg + VBCRLF + "CPU:" & objItem.CPUScore msg = msg + VBCRLF + "Ram:" & objItem.MemoryScore msg = msg + VBCRLF + "Hårddisk:" & objItem.DiskScore msg = msg + VBCRLF + "GPU:" & objItem.GraphicsScore msg = msg + VBCRLF + "Spelprestanda:" & objItem.D3DScore msg = msg + VBCRLF + "Genomsnittlig betyg:" & objItem.WinSPRLevel Wscript.Echo msg Nästa