☎ Обучение сайтостроение или web-дизайн, обработка графики, системное администрирование, администрирование Windows серверов, администрирование Linux серверов, создание LAMP серверов, 1С бухгалтерия с нуля для взрослых и детей от 12 лет г. Краснодар тел. +7 908 691 83 63 +7 918 320 05 07 e-mail: master@spo23.ru

Вы здесь

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

Фейсбук Цифтех
ВКонтакте Цифтех
Инстаграм Цифтех
Одноклассники Цифтех
Pinterest Анатолий Фукалов
Livejournal Анатолий Фукалов

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

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.

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

' Coded by: Ratiborus
' WSHShell.Run "winsat formal -restart clean",0, True
' winsat formal — оценка общей производительности системы;
' winsat formal -v — оценка общей производительности системы, подробный вывод;
' winsat formal -xml file.xml - вывод результата проверки в указанный xml-файл;
' winsat formal -restart never — при повторной проверке, для оценки только новых компонентов;
' winsat formal -restart clean — при повторной проверке, для сброса истории проверок и полной проверки заново.

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

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

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

Скачать скрипт Производительность системы бесплатно, без регистрации, без смс, без сдачи анализов.

Фейсбук Цифтех
ВКонтакте Цифтех
Инстаграм Цифтех
Одноклассники Цифтех
Pinterest Анатолий Фукалов
Livejournal Анатолий Фукалов