Ratiborus
Gold Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2") Set colI = objWMIService.ExecQuery("SELECT * FROM Win32_WinSAT") For Each objI in colI If objI.WinSPRLevel = 0 Then c = MsgBox("Оценка производительности системы ещё не была выполнена" & VbCrLf _ & "Выполнить- (Да)" & VbCrLf & "Выйти - (Нет)",36, "Определение производительности системы") If c = 6 Then Evaluation() Else Wscript.Quit() End If Else x = MsgBox("Выполнить новую оценку производительности системы - (Да)" & VbCrLf & "Показать предыдущую оценку - (Нет)" & _ VbCrLf & "Выйти - (Отмена)",35, "Определение производительности системы") If x = 6 then Evaluation() ElseIf x = 2 Then Wscript.Quit() End If End If Next Set colI = Nothing: Set WSHShell = Nothing Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_WinSAT") For Each objItem in colItems Str = vbNullString Str = Str & "-----------------------------------" & vbCrLf Str = Str & "Производительность системы:" & vbCrLf Str = Str & "Процессор" & vbTab & vbTab & objItem.CPUScore & vbCrLf Str = Str & "Память (RAM)" & vbTab & vbTab & objItem.MemoryScore & vbCrLf Str = Str & "Графика" & vbTab & vbTab & vbTab & objItem.GraphicsScore & vbCrLf Str = Str & "Графика для игр" & vbTab & vbTab & objItem.D3DScore & vbCrLf Str = Str & "Системный жёсткий диск" & vbTab & objItem.DiskScore & vbCrLf Str = Str & "-----------------------------------" & vbCrLf Str = Str & "Общая производительность" & vbTab & objItem.WinSPRLevel Next MsgBox Str,64, "Оценка системы" Function Evaluation() Set WSHShell = CreateObject("WScript.Shell") WSHShell.Run "winsat formal -restart clean",2, True End Function 'winsat formal — оценка общей производительности системы; 'winsat formal -v — оценка общей производительности системы, подробный вывод; 'winsat formal -xml file.xml - вывод результата проверки в указанный xml-файл; 'winsat formal -restart never — при повторной проверке, для оценки только новых компонентов; 'winsat formal -restart clean — при повторной проверке, для сброса истории проверок и полной проверки заново. | Всего записей: 9289 | Зарегистр. 18-06-2005 | Отправлено: 13:44 15-09-2014 | Исправлено: Ratiborus, 13:48 15-09-2014 |
|