Добро пожаловать к нам в гости! Наш сайт посвящён программе NeoBook, с помощью которой вы легко сможете создавать собственные мультимедиа-приложения без необходимости изучать сложные языки программирования! Зарегистрируйтесь, чтобы стать членом нашего сообщества.
Добавлено (04 Июнь 2011, 12:42) --------------------------------------------- вот vbs, но тут надо, чтоб Дембель посмотрел, т.к. показывает ошибку
'1 вариант Set objWMI = GetObject("winmgmts:root\WMI") Set Instances = objWMI.ExecQuery ("Select * from MSAcpi_ThermalZoneTemperature") For Each MyObj in Instances WScript.Echo (MyObj.CurrentTemperature - 2732)/10 Next '2 вариант Set wmi = GetObject("winmgmts:root\WMI") Set colItems = wmi.ExecQuery("Select * From Win32_TemperatureProbe") For Each objItem in colItems WScript.Echo "Caption-" & objItem.Caption WScript.Echo "Current Reading-" & objItem.CurrentReading Next
ты бы лучше погугли на эту тему. Люди пишут, что большинство материнок не позваляют вывод через апи, это на большинства компах работать не будет. Оно тебе надо?!
и еще,откуда брать данные:сколько оперативы,какой процессор,какая видеокарта,может есть какой нибуть файлик где это инфа лежит.порылся в папке windows и глубже,но не чего не нашёл.
Сообщение отредактировано Wallo - Сб, 04 Июня 2011, 14:11
например в некоторых инсталяторах,которые люди сами делают,перед самой установкой написано,сколько у вас озу,какой процик и т.д.на торрентах часто замечал.
Добавлено (04 Июнь 2011, 13:32) --------------------------------------------- ))))))ну просто спросил,может есть просто какой нибуть лог-файл)))) ну а в реестре?
strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set objProcessor = objWMIService.Get("win32_Processor='CPU0'")
If objProcessor.Architecture = 0 Then Wscript.Echo "This is an x86 computer." ElseIf objProcessor.Architecture = 1 Then Wscript.Echo "This is a MIPS computer." ElseIf objProcessor.Architecture = 2 Then Wscript.Echo "This is an Alpha computer." ElseIf objProcessor.Architecture = 3 Then Wscript.Echo "This is a PowerPC computer." ElseIf objProcessor.Architecture = 6 Then Wscript.Echo "This is an ia64 computer." Else Wscript.Echo "The computer type could not be determined." End If
SMon 1.0 Функция для мониторинга параметров системы Всё ровно не то что нужно. ------------------------------------------- Вообщем вот как хочу сделать. Пример: Информация: Модель процессора:AMD Athlon 64 X2 4400+ Частота процессора:3000Ггц. Оперативная память:960мб. Всего ядер:2 Температура: Ядро(1)38*С(обновление каждые 5сек.) Min-35|Max 42 Ядро(2)42*С(обновление каждые 5сек.) Min-40|Max 50 Min-Самая низкая температура которая была. Max-Самая высокая температура которая была. Вообще реально замутить?
Сообщение отредактировано Wallo - Сб, 04 Июня 2011, 14:35
- А вам какую операционку поставить - экспи, семерку или висту? - Это ты сейчас о чем? - Олег Георгиевич, вам какой компьютер хотелось бы - молодежный или надежный? - Ну, конечно, надежный! - Вот, значит - экспи, без вопросов! Сейчас сделаем...
(Улицы разбитых фонарей, сезон 10, серия 17)
Единственная инновация Windows 8 это - Metro, чтобы дебилы по иконкам не промахивались!
При модном втюхе модоподдающимся начинает нравиться
ну и парвильно Только разбиратся то и ненадо было, а просто найти нужный, проверить и если работает выложить сюда Но, всетаки это правильное решение - "забить" на эту задумку. А энергию направить на другой проект...
температура скриптом возвращается но какая-то неправильная, заниженная. видимо инфа долго обновляется чтоли... вообще эти вещи как инфа в реальном времени с датчиков лучше делать с применением acpi-драйвера или включить его код в плагин. Как задавать вопросы
да, к примеру возвращает в десятичных долях по Кельвину (придумали же)... по идее С=х/10- 273.15 но получается мало как-то... мне говорит 3032, это 29,7С в реале >40... в среднем всегда 10С кудато пропадают... Как задавать вопросы
отсутствует класс MSAcpi_ThermalZoneTemperature и т.п.
библа какая-то не зарегистрирована чтоли... я сижу на гнилой сборке хп и то работает. простейший пример:
Code
set objWMIService = GetObject("winmgmts:{impersonationlevel=impersonate}!\\.\root\wmi") set colCPUTemp = objWMIService.ExecQuery("SELECT * from MSAcpi_ThermalZoneTemperature",,48) for each objCPU in colCPUTemp MsgBox objCPU.CurrentTemperature/10-273.5 next
хотя нет, щас показывает 47.5С Чето может инфа в биосе (или откуда он там ее берет) редко опрашивается с датчиков чтоли... Как задавать вопросы
set objWMIService = GetObject("winmgmts:{impersonationlevel=impersonate}!\\.\root\wmi") set colCPUTemp = objWMIService.ExecQuery("SELECT * from MSAcpi_ThermalZoneTemperature",,48) for each objCPU in colCPUTemp MsgBox objCPU.CurrentTemperature/10-273.5 next
ошибочку выдает Ругается на For Each, потому что объект colCPUTemp пустой
