Рубрики
Без рубрики

Скрипт производительность системы

VBScript (VBS, развернуто Microsoft Visual Basic Script Edition, иногда Visual Basic Script) — язык сценариев, созданный компанией Microsoft на основе языка Visual Basic, предназначенный для применения в приложениях, использующих технологию Active Scripting.

Скрипт «Производительность системы» на VBS оценивает производительность Центрального процессора, памяти, графики, графики для игр, жесткого диска и др.

Работает под управлением MS Windows 10, 7,8, Vista, Windows Server 2012, 2016, 2019.

Создаем в блокноте файл следующего содержания

x = MsgBox("Выполнить новое определение производительности системы (Да) или показать предыдущее (Нет) ?", _
36, "Определение производительности системы")

if x = 6 then
MsgBox"После нажатия на кнопку это окно закроется" _
& Chr(13) & "и начнётся оценка производительности системы." _
& Chr(13) & "После завершения работы функции будут выведены" _
& Chr(13) & "данные о производительности компьютера." _
& Chr(13) & "Оценка производительности занимает 2~3 минуты." _
,0,"Определение производительности системы"

Set WshShell = WScript.CreateObject("WScript.Shell")
WSHShell.Run "winsat.exe formal -restart clean",2, 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

Задаем имя файла, например «Производительность системы» или «System Performance», после чего меняем его расширение с txt на vbs. Сохраняем.

Время работы скрипта 1 — 2 минуты, после чего он выдаст краткую информацию о производительности системы.

Добавить комментарий