Scenarijus, skirtas „Windows“ veikimui patikrinti

Problema
Sprendimas

Problema

Kaip galiu naudoti scenarijų prieigai prie „Windows“? Scenarijus, kuris veikia kaip „Windows Vista“ ir „Seven“ reitingų metodas?

Sprendimas

Atidarykite užrašų knygą
Nukopijuokite žemiau esantį scenarijų;

 strComputer = "." Nustatyti objWMIService = GetObject ("winmgmts:" & strComputer & "cimv2") Nustatyti colItems = objWMIService.ExecQuery ("Pasirinkite * iš Win32_WinSAT") Kiekvienam objekto objektui colyje Pasirinkite Case objItem.WinSATAssessmentState Case "0", "3" msg = "Įspėjimas, testai nebuvo gerai" Byla "1" msg = "Rezultatai galimi ..." Byla "2" msg = "Įspėjimas: nenuoseklūs rezultatai" Byla "4" msg = "Įspėjimai negaliojantys bandymai" Pabaiga Pasirinkite msg = msg + VBCRLF + "CPU:" & objItem.CPUScore msg = msg + VBCRLF + "Ram:" & objItem.MemoryScore msg = msg + VBCRLF + "Kietasis diskas:" & objItem.DiskScore msg = msg + VBCRLF + "GPU:" & objItem.GraphicsScore msg = msg + VBCRLF + "Žaidimo našumas:" & objItem.D3DScore msg = msg + VBCRLF + "Vidutinis įvertinimas:" & objItem.WinSPRLevel Wscript.Echo msg Next