Ratiborus
Gold Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Сохраните код в файлик .vbs
Код: x = MsgBox("Выполнить новое определение производительности системы (Да) или показать предыдущее (Нет)",36, "Определение производительности системы")
if x = 6 then
Set WshShell = WScript.CreateObject("WScript.Shell")
Return = WshShell.Run ("winsat formal",,True)
end if
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery( _
"SELECT * FROM Win32_WinSAT",,48)
For Each objItem in colItems
Wscript.Echo "--------------------------------------" & vbNewLine & _
" Производительность системы:" & vbNewLine & _
"--------------------------------------" & vbNewLine & _
"Процессор" & vbTab & vbTab & objItem.CPUScore & vbNewLine & _
"Память (RAM)" & vbTab & vbTab & objItem.MemoryScore & vbNewLine & _
"Графика" & vbTab & vbTab & vbTab & objItem.GraphicsScore & vbNewLine & _
"Графика для игр" & vbTab & vbTab & objItem.D3DScore & vbNewLine & _
"Системный жёсткий диск" & vbTab & objItem.DiskScore & vbNewLine & _
"--------------------------------------" & vbNewLine & _
"Общая производительность" & vbTab & objItem.WinSPRLevel
Next
|
|
Всего записей: 9290 | Зарегистр. 18-06-2005 | Отправлено: 15:53 12-09-2014 | Исправлено: Ratiborus, 18:08 12-09-2014 |
|
