From: Михаил
Когда-то тут не помню кто бросал файлик с расширением vbs, запустив который
можно было услышать загрузку процессора.
В одинадцатой винде этот файл работает, но не так как в восьмёрке.
Всплывает какое-то окно и фокус куда-то девается, а в восьмёрке ничего не
открывается и работает быстрее.
Подскажите пожалуйста, может кто-то вкурсе, может нужно этот файлик как-то
допилить под одинадцатую винду.
Здравствуйте!
А этот скрипт говорит-то хоть что-нибудь в 11 винде?
Это я к тому, что с десятки, по умолчанию, система типа не понимает чем
открывать или запускать файл vbs. Вот вы его запускаете и она должна вывести
диалог выбора чем открывать. Поставите галку запомнить и должна всегда
открывать.
Если что, то ниже скрипт, который говорит через JAWS свободную память и
загрузку процессора. Заапихните в файл с расширением vbs
On Error Resume Next
Set objService =
GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2")
Set colItems = objService.ExecQuery("Select * from Win32_OperatingSystem")
nFreeMemMB = 0
For Each objOS In colItems
nFreeMemMB = FormatNumber( objOS.FreePhysicalMemory / 1024, 0,
0, 0, 0 )
Next
outStr = "Свободно: " & nFreeMemMB & " Мегабайт"
p1=0
For Each objProc In objService.ExecQuery("SELECT * FROM Win32_Processor")
p1=objProc.LoadPercentage
Next
p="загрузка: "&p1&" %"
outStr=outStr&vbCrLf&p
Set JfwApi = CreateObject ("FreedomSci.JawsApi")
If Not IsObject(JfwApi) Or _
Not JfwApi.SayString (outStr) Then
WScript.Echo outStr
End If
Удачи!
