Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Общие » Флейм » Wzor.Net (I)

Модерирует : 3xp0, TechSup

articlebot (20-04-2016 23:35): Wzor.Net (II)  Версия для печати • ПодписатьсяДобавить в закладки
На первую страницук этому сообщениюк последнему сообщению

   

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
   

На первую страницук этому сообщениюк последнему сообщению

Компьютерный форум Ru.Board » Общие » Флейм » Wzor.Net (I)
articlebot (20-04-2016 23:35): Wzor.Net (II)


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru