Skript Windowsi toimivuse testimiseks

Probleem
Lahendus

Probleem

Kuidas ma saan kasutada skripti Windowsi juurde pääsemiseks? Skript, mis toimib nagu Windows Vista ja Seven reitingumeetod?

Lahendus

Avage notepad
Kopeerige allpool olev skript;

 strComputer = "." Määra objWMIService = GetObject ("winmgmts:" & strComputer & "cimv2") Set colItems = objWMIService.ExecQuery ("Vali * From Win32_WinSAT") Iga objekti kohta colItems Vali juhtum objItem.WinSATAsessmentState Case "0", "3" msg = "Hoiatus, testid ei olnud hästi" Case "1" msg = "Tulemused on kättesaadavad ..." Case "2" msg = "Hoiatus: vastuolulised tulemused" Case "4" msg = "Hoiatus vigased testid" Lõpp Vali msg = msg + VBCRLF + "CPU:" & objItem.CPUScore msg = msg + VBCRLF + "Ram:" & objItem.MemoryScore msg = msg + VBCRLF + "Kõvaketas:" & objItem.DiskScore msg = msg + VBCRLF + "GPU:" & objItem.GraphicsScore msg = msg + VBCRLF + "Mängu jõudlus:" & objItem.D3DScore msg = msg + VBCRLF + "Keskmine hinnang:" & objItem.WinSPRLevel Wscript.Echo msg Next