Логирование нагрузки процессора в log файл

@Vasek2 · Регистрация: 17.11.2013

Студворк — интернет-сервис помощи студентам

Приветствую форумчан.
Хотелось бы заменить использование Process Explorer на более лёгкое что-то.
Если у кого есть время помочь, буду благодарен.

Нужен VBScript, логирующий нагрузку от каждого процесса на процессор.
Возможно ли сделать следующий функционал:

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
1. При запуске скрипта начать сбор данных о запущенных процессах
 
2. Открыть MSG с кнопкой "Остановить" и надписью:
   Выполняется сбор данных о запущенных процессах в системе.
   Результат: "C:\Processes.txt"
   (C:\Processes.txt - переменная)
 
3. Записывать нагрузку от процессов по пути C:\Processes.txt
 
4. При завершении сбора сортировать лог по убыванию от тяжелого процесса к лёгкому
 
5. Вид логов (название процесса - средняя нагрузка за время сбора данных):
   explorer.exe - 15%
   cmd.exe - 10%
   firefox.exe - 5%
 
6. При нажатии на кнопку "Остановить" завершить запись лога и открыть его
 
7. Возможно имеет смысл заменить % нагрузки на что-то другое

Спасибо заранее!

@Vasek2 · 15.08.2022, 17:00 **[ТС]**

FlasherX, дошлоу))

Буфер из цмд

NumberOfCores NumberOfLogicalProcessors

2 4

Name

_Total

0,_Total

0,3

0,2

0,1

0,0

Name

0

1

2

3

_Total

Name

_Total

0,_Total

0,3

0,2

0,1

0,0

Name

0

1

2

3

_Total

FlasherX · 15.08.2022, 21:32

Vasek2, отлично. Меняем 50-52 строки на:

Visual Basic
50
      Cores = oWMI.Execquery("Select Name From Win32_PerfRawData_PerfOS_Processor").Count - 1

FlasherX · 22.08.2022, 10:25

В общем, в код добавлено 3 правки, включая эту. 2 другие связаны с более точным подгоном ширины окна под таблицу.

@Vasek2 · 22.08.2022, 17:21 **[ТС]**

FlasherX, привет, пришлось с головой уйти в работу + второй ноут сделать (а это макбук + винда).
Стараюсь отвечать, как время появляется.
Сейчас посмотрю код!

Добавлено через 8 минут
UPD: да, теперь код работает, как нужно.
Я так понял, это под 2 ядра CPU код? Или он универсален?

FlasherX · 22.08.2022, 17:24

Vasek2, хай. Универсален. Я просто поменял ядра на потоки.
Проверь окно по неск. значениям Max в шапке.

@Vasek2 · 22.08.2022, 22:59 **[ТС]**

Сообщение от FlasherX

Универсален. Я просто поменял ядра на потоки.

Отлично, думаю это и есть самый правильный вариант.

Сообщение от FlasherX

Проверь окно по неск. значениям Max в шапке.

В какой шапке?

Я проверил несколько раз на 2 ядрах - все окей теперь.
Остался вопрос... сам файл .hta имеет иконку путого приложения (типо пустой exe-шник). Как-то исправить можно или это так заточено виндой, как и VBS?

P.S. спасибку кинул, лучший ответ стоит. Шикарная работа! Иной раз проще этот скрипт запустить, чем массивное приложение ;-)

FlasherX · 23.08.2022, 00:58

Сообщение от Vasek2

В какой шапке?

А то не видно? 3-10 строки кода. Там 2 управляемые константы. Про вторую ещё 9 дней дал знать. Так что оставшийся вопрос сперва этот.

Сообщение от Vasek2

Как-то исправить можно или это так заточено виндой, как и VBS?

.hta ассоциировано с mshta.exe, которая имеет такую иконку. Можно, конечно, для всех .hta задать общую иконку через HKCR\htafile\DefaultIcon\, но я бы не советовал. Лучше привязывать иконки через файлменеджер или ярлык для каждого приложения отдельно.
Можно, конечно, и в exe-контейнер со своей иконкой запихнуть, но это уже костыль с автораспаковкой. Не вижу смысла.

Сообщение от Vasek2

Шикарная работа!

Спасибо за оценку! ) Жду тестов с константой.

@Vasek2 · 23.08.2022, 02:45 **[ТС]**

Сообщение от FlasherX

Жду тестов с константой.

Code
1
2
Это за что отвечает? Пауза перед сбором данных о процессах?
Const Sec  = 5

Code
1
2
Работает.
Const Max  = 0

FlasherX · 23.08.2022, 10:43

Сообщение от Vasek2

Пауза перед сбором данных о процессах?

Угу.

Сообщение от Vasek2

Работает.

Это и так понятно. Это не тест. Я что просил?:

Сообщение от FlasherX

Проверь окно по неск. значениям Max в шапке.

Значения всякие: 3, 5, 10, 20, 30, ... Проверить надо, как правильно подгоняется ширина окна. Должна быть впритык к таблице, в т. ч. когда все ЦП по нулям.

@Vasek2 · 27.08.2022, 22:31 **[ТС]**

FlasherX, смотрим.

Code
1
2
3
4
5
6
Const Max  = 1, 2, 3 - хэдер таблицы немного ужат (часть ячейки с надписью ЦП не видно в ширину), проявляется вертикальный скролл, видно половину последней строки
Const Max  = 4 - 10 - всё в норме
Const Max  = 15 - всё в норме
Const Max  = 20 - всё в норме
Const Max  = 25 - всё в норме
Const Max  = 30 - всё в норме

Если HTA понимает такие стили, как min-width, min-height, то я бы их выставил в стили столбцов и к общей таблице.

FlasherX · 27.08.2022, 23:26

Vasek2, нет, IE не понимает.
Но я думаю, тут для влезания заголовка достаточно в 112 строке добавить: ...<th style=width:70%>Имя процесса...
Проверь.

@Vasek2 · 28.08.2022, 22:59 **[ТС]**

FlasherX, урезается не имя процесса, а th "ЦП" в ширину. А так - всё окей. Ты как всегда профи

FlasherX · 29.08.2022, 00:05

Vasek2, я про заголовок (хедер) писал. Когда длина имён маленькая, слово "процесса" переносилось на след. строку. Я это решил за счёт nowrap, но сам заголовок оставался урезанным, поэтому я предложил фиксированный процент, чтобы убить двух зайцев. А с шириной мне пока не удаётся воспроизвести баг. Приложи скриншот, плиз.

@Vasek2 · 30.08.2022, 07:29 **[ТС]**

FlasherX, возможно ЦП как надо, просто оно сжато. Вот скриншот, в общем. Это при одном процессе.
th=ЦП узкое и скролл вертикальный проявился.

FlasherX · 30.08.2022, 12:13

Vasek2, и где тут сжатие? Что значит "узкое"? Такое, как и должно быть.
И почему посл. правка не внесена?

@Vasek2 · 30.08.2022, 23:03 **[ТС]**

FlasherX, какая именно? Это вроде last-версия

FlasherX · 30.08.2022, 23:17

Vasek2, речь про предложенную выше правку. Какая ж ещё?
На предыдущие 2 вопроса ответишь? Али как?

@Vasek2 · 31.08.2022, 02:09 **[ТС]**

FlasherX, всё, всё, понял, какая прафка

Да, width:70% конечно работает. Но вёрстку надо по-другому немного делать было. Верстал я под IE7, можно накостылить, чтобы всё ровненько было.
В общем, всё окей.

FlasherX · 31.08.2022, 02:43

Сообщение от Vasek2

Но вёрстку надо по-другому немного делать было. Верстал я под IE7, можно накостылить, чтобы всё ровненько было.

Давай конкретное предложение, чтобы без бла-бла. Куда там ещё ровнее?

@Vasek2 · 04.09.2022, 04:11 **[ТС]**

FlasherX, всё окей. Я ошибся. Благодарствую за скрипт!

Новые блоги и статьи Все статьи Все блоги /
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .
Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .	Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .

@Vasek2 12 / 12 / 2 Регистрация: 17.11.2013 Сообщений: 532
	15.08.2022, 17:00 [ТС]
	FlasherX, дошлоу)) Буфер из цмд NumberOfCores NumberOfLogicalProcessors 2 4 Name _Total 0,_Total 0,3 0,2 0,1 0,0 Name 0 1 2 3 _Total Name _Total 0,_Total 0,3 0,2 0,1 0,0 Name 0 1 2 3 _Total 0

FlasherX 7690 / 2887 / 1110 Регистрация: 06.06.2017 Сообщений: 9,817
	22.08.2022, 10:25
	В общем, в код добавлено 3 правки, включая эту. 2 другие связаны с более точным подгоном ширины окна под таблицу. 0

@Vasek2 12 / 12 / 2 Регистрация: 17.11.2013 Сообщений: 532
	22.08.2022, 17:21 [ТС]
	FlasherX, привет, пришлось с головой уйти в работу + второй ноут сделать (а это макбук + винда). Стараюсь отвечать, как время появляется. Сейчас посмотрю код! Добавлено через 8 минут UPD: да, теперь код работает, как нужно. Я так понял, это под 2 ядра CPU код? Или он универсален? 0

FlasherX 7690 / 2887 / 1110 Регистрация: 06.06.2017 Сообщений: 9,817
	22.08.2022, 17:24
	Vasek2, хай. Универсален. Я просто поменял ядра на потоки. Проверь окно по неск. значениям Max в шапке. 1

FlasherX 7690 / 2887 / 1110 Регистрация: 06.06.2017 Сообщений: 9,817
	27.08.2022, 23:26
	Vasek2, нет, IE не понимает. Но я думаю, тут для влезания заголовка достаточно в 112 строке добавить: ...<th style=width:70%>Имя процесса... Проверь. 0

@Vasek2 12 / 12 / 2 Регистрация: 17.11.2013 Сообщений: 532
	28.08.2022, 22:59 [ТС]
	FlasherX, урезается не имя процесса, а th "ЦП" в ширину. А так - всё окей. Ты как всегда профи 0

FlasherX 7690 / 2887 / 1110 Регистрация: 06.06.2017 Сообщений: 9,817
	29.08.2022, 00:05
	Vasek2, я про заголовок (хедер) писал. Когда длина имён маленькая, слово "процесса" переносилось на след. строку. Я это решил за счёт nowrap, но сам заголовок оставался урезанным, поэтому я предложил фиксированный процент, чтобы убить двух зайцев. А с шириной мне пока не удаётся воспроизвести баг. Приложи скриншот, плиз. 0

@Vasek2 12 / 12 / 2 Регистрация: 17.11.2013 Сообщений: 532
	30.08.2022, 07:29 [ТС]
	FlasherX, возможно ЦП как надо, просто оно сжато. Вот скриншот, в общем. Это при одном процессе. th=ЦП узкое и скролл вертикальный проявился. Изображения 0

FlasherX 7690 / 2887 / 1110 Регистрация: 06.06.2017 Сообщений: 9,817
	30.08.2022, 12:13
	Vasek2, и где тут сжатие? Что значит "узкое"? Такое, как и должно быть. И почему посл. правка не внесена? 0

@Vasek2 12 / 12 / 2 Регистрация: 17.11.2013 Сообщений: 532
	30.08.2022, 23:03 [ТС]
	FlasherX, какая именно? Это вроде last-версия 0

FlasherX 7690 / 2887 / 1110 Регистрация: 06.06.2017 Сообщений: 9,817
	30.08.2022, 23:17
	Vasek2, речь про предложенную выше правку. Какая ж ещё? На предыдущие 2 вопроса ответишь? Али как? 0

@Vasek2 12 / 12 / 2 Регистрация: 17.11.2013 Сообщений: 532
	31.08.2022, 02:09 [ТС]
	FlasherX, всё, всё, понял, какая прафка Да, width:70% конечно работает. Но вёрстку надо по-другому немного делать было. Верстал я под IE7, можно накостылить, чтобы всё ровненько было. В общем, всё окей. 0

@Vasek2 12 / 12 / 2 Регистрация: 17.11.2013 Сообщений: 532
	04.09.2022, 04:11 [ТС]
	FlasherX, всё окей. Я ошибся. Благодарствую за скрипт! 1