Форум программистов, компьютерный форум, киберфорум
VBScript/JScript/WSH/WMI
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск  
 
 
Рейтинг 4.83/29: Рейтинг темы: голосов - 29, средняя оценка - 4.83
0 / 0 / 0
Регистрация: 20.12.2018
Сообщений: 44

Перезапуск службы при достижении 80% загрузки ЦП

11.02.2023, 15:12. Показов 7586. Ответов 87

Студворк — интернет-сервис помощи студентам
Всем добрый день. Может, у кого есть готовый скрипт на PS или VBS, который бы перестартовывал определённую службу при загрузке процессора в 80%, например?
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
11.02.2023, 15:12
Ответы с готовыми решениями:

Перезапуск службы при наличии файла в папке
Добрый день уважаемые форумчане. Появилась необходимость автоматизировать один из процессов. А в частности перезапуск одной очень не...

Скрипт убивающий процесс при достижении порога загрузки
Здравствуйте! Сделал вот такую штуку: $sleepseconds = 1 $numcores = 4 while($true) { $cpu1 = (Get-Process -Name...

Скрипт завершения процесса при достижении порога загрузки процессора
Здравствуйте! Помогите накидать скрипт, который завершает процесс по имени, при достижении определенного порога загрузки процессора. ...

87
1406 / 865 / 93
Регистрация: 08.02.2017
Сообщений: 3,692
Записей в блоге: 2
14.03.2023, 12:45
Студворк — интернет-сервис помощи студентам
Чтот тема приутихла, если еще актуально, метод Dragokas-а (который есть в приведенной выше ссылке), дает результа очень близкий к цифрам в "Диспетчере задач" и PE Руссиновича, проверял его в цикле с интервалом в 1 сек.
0
7001 / 2885 / 1110
Регистрация: 06.06.2017
Сообщений: 9,812
14.03.2023, 13:35
Цитата Сообщение от testuser2 Посмотреть сообщение
Чтот тема приутихла
Дык вы её сами подняли спустя 2 недели. ТС, судя по всему, уже до этого нашёл ответ, но пп. 4.10 его, видимо, мало интересует.
0
0 / 0 / 0
Регистрация: 20.12.2018
Сообщений: 44
24.04.2023, 12:13  [ТС]
Цитата Сообщение от testuser2 Посмотреть сообщение
метод Dragokas-а (который есть в приведенной выше ссылке)
Можно носом ткнуть? Вообще не вижу, где это.
Извиняюсь за долгий срок ответа.
Я вроде решил проблему, вечером отпишусь точно.
0
1406 / 865 / 93
Регистрация: 08.02.2017
Сообщений: 3,692
Записей в блоге: 2
24.04.2023, 13:04
Цитата Сообщение от gluk6 Посмотреть сообщение
Можно носом ткнуть? Вообще не вижу, где это.
собственно само
Полезные VBS скрипты и программы по работе с ними
Вариант на VB с использованием WinApi
Тестирование полезных кодов и примеров
Цитата Сообщение от gluk6 Посмотреть сообщение
Я вроде решил проблему, вечером отпишусь точно.
Ну так зачем?
0
0 / 0 / 0
Регистрация: 20.12.2018
Сообщений: 44
24.04.2023, 23:36  [ТС]
Цитата Сообщение от testuser2 Посмотреть сообщение
Ну так зачем?
В смысле - зачем?
0
7001 / 2885 / 1110
Регистрация: 06.06.2017
Сообщений: 9,812
24.04.2023, 23:41
Цитата Сообщение от gluk6 Посмотреть сообщение
В смысле - зачем?
Пишите-пишите, вечер подходит к концу.
0
0 / 0 / 0
Регистрация: 20.12.2018
Сообщений: 44
25.04.2023, 00:02  [ТС]
Цитата Сообщение от FlasherX Посмотреть сообщение
Пишите-пишите, вечер подходит к концу.
Я дико извиняюсь, но пока некогда.
Вот сырой вариант:

Visual Basic
1
2
3
4
5
6
7
8
9
10
set WshShell = WScript.CreateObject("WScript.Shell")
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colProcesses = objWMIService.ExecQuery("Select * from Win32_PerfFormattedData_PerfProc_Process Where Name = 'aida_bench64.dll'")
 
For Each objProcess in colProcesses
    If objProcess.PercentProcessorTime > 80 Then
'   WScript.Echo "Match    : " это для отладки
        WshShell.Run "taskkill /F /IM aida_bench64.dll", 0
    End If
Next
Осталось прикрутить туда бесконечный цикл и вроде все.
0
7001 / 2885 / 1110
Регистрация: 06.06.2017
Сообщений: 9,812
25.04.2023, 00:15
gluk6, нет, это неверное решение.
0
0 / 0 / 0
Регистрация: 20.12.2018
Сообщений: 44
25.04.2023, 00:20  [ТС]
Цитата Сообщение от FlasherX Посмотреть сообщение
gluk6, нет, это неверное решение.
Оно работает.
Так как мне нужно - работает.
0
7001 / 2885 / 1110
Регистрация: 06.06.2017
Сообщений: 9,812
25.04.2023, 00:22
Нагрузите процесс на 20-25% в диспетчере задач, потом выводите PercentProcessorTime. Сколько покажет?
0
0 / 0 / 0
Регистрация: 20.12.2018
Сообщений: 44
25.04.2023, 00:22  [ТС]
Сначала было так:

Visual Basic
1
2
3
4
5
6
7
8
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colProcesses = objWMIService.ExecQuery("Select * from Win32_PerfFormattedData_PerfProc_Process Where Name = aida_bench64.dll'")
 
For Each objProcess in colProcesses
    If objProcess.PercentProcessorTime > 80 Then
        objProcess.Terminate()
    End If
Next
Но вот эта строка работать не хочет:
Visual Basic
1
objProcess.Terminate()
0
7001 / 2885 / 1110
Регистрация: 06.06.2017
Сообщений: 9,812
25.04.2023, 00:34
Вы читаете что я пишу? Из cmd после нагрузки на 20/25% запустите:
Windows Batch file
1
for /l %i in (0) do @wmic path Win32_PerfFormattedData_PerfProc_Process where "Name='aida_bench64.dll'" get PercentProcessorTime|findstr [0-9]
Какие числа пойдут?
Цитата Сообщение от gluk6 Посмотреть сообщение
Но вот эта строка работать не хочет:
И неудивительно, потому как у класса отсутствуют какие-либо методы.
0
0 / 0 / 0
Регистрация: 20.12.2018
Сообщений: 44
25.04.2023, 00:35  [ТС]
Цитата Сообщение от FlasherX Посмотреть сообщение
Из cmd после нагрузки на 20/25% запустите:
Как на 20-25% запустить, если стресс-тест аиды на 100% сразу нагружает?
0
0 / 0 / 0
Регистрация: 20.12.2018
Сообщений: 44
25.04.2023, 00:38  [ТС]
Цитата Сообщение от FlasherX Посмотреть сообщение
Какие числа пойдут?
Вот:
Миниатюры
Перезапуск службы при достижении 80% загрузки ЦП  
0
7001 / 2885 / 1110
Регистрация: 06.06.2017
Сообщений: 9,812
25.04.2023, 00:45
Выполнять только код. В батник сохранять не надо.
0
0 / 0 / 0
Регистрация: 20.12.2018
Сообщений: 44
25.04.2023, 07:17  [ТС]
Цитата Сообщение от FlasherX Посмотреть сообщение
Выполнять только код. В батник сохранять не надо.
Вот:
Миниатюры
Перезапуск службы при достижении 80% загрузки ЦП  
0
7001 / 2885 / 1110
Регистрация: 06.06.2017
Сообщений: 9,812
25.04.2023, 08:54
Цитата Сообщение от gluk6 Посмотреть сообщение
Как на 20-25% запустить, если стресс-тест аиды на 100% сразу нагружает?
Тогда какой смысл в скрипте, если заведомо известен процент? Заменяем на другой процесс в таком случае и тестируем.
0
0 / 0 / 0
Регистрация: 20.12.2018
Сообщений: 44
25.04.2023, 12:13  [ТС]
Цитата Сообщение от FlasherX Посмотреть сообщение
Заменяем на другой процесс в таком случае и тестируем.
Вообще не показывает:
Миниатюры
Перезапуск службы при достижении 80% загрузки ЦП  
0
7001 / 2885 / 1110
Регистрация: 06.06.2017
Сообщений: 9,812
25.04.2023, 12:52
Потому что имя процесса с расширением написано, а надо без.
0
0 / 0 / 0
Регистрация: 20.12.2018
Сообщений: 44
25.04.2023, 13:43  [ТС]
Цитата Сообщение от FlasherX Посмотреть сообщение
Потому что имя процесса с расширением написано, а надо без.
97-100% показывает, хотя по факту 25-30.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
25.04.2023, 13:43

Перезапуск службы
В общем у меня есть свои собственные службы, например: Service1, Service2, Service3 ... ServiceN. Данные службы связаны друг с другом и...

Перезапуск службы
У меня служба, которая запускается и которая не должна останавливаться. Глобальный BroadcastReceiver получает сообщения и запускает...

Перезапуск службы
Добрый день. Хочу осуществить перезапуск службы через bat-файл. Написал пока так sc stop %1 & sc start %1 %2 В...

Перезапуск службы
Добрый день, на сервере имеется служба CsmServic, которую надо перезапускать при появлении в логах текста "Access violation at...

Перезапуск службы
в определённый момент для продолжения работы программы требуется перезапуск службы я это делаю в командной строке net stop...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
80
Ответ Создать тему
Новые блоги и статьи
сукцессия 31: модель микоризы - это модель ещё нескольких явлений, социальных и экономических
anaschu 18.07.2026
Теория «Всего»: апдейт v1. 1. 2 — 28‑мерное ядро стабилизировано Коллеги, фиксирую разбор инженерных правок и их изоморфную проекцию на экономику, меметику и половой отбор. Модель теперь не. . .
сукцессия 30. Массив проверяющих друг друга моделей
anaschu 18.07.2026
Архитектура сети взаимопроверяющих моделей микоризной сукцессии (v2. 0) Развитие тензорного ОДУ-ядра и создание кросс-платформенного калибровочного полигона Уважаемые коллеги! В продолжение. . .
Грибы - это женщины, деревья - это мужчины. Анти инь янь для союза мужчины и женщины.
anaschu 18.07.2026
ГЛАВНЫЙ НАУЧНО-ФИЛОСОФСКИЙ ВЫВОД: Сексуально-Репродуктивный Капитализм против Государства Моногамии Коллеги, мы вышли на финишную прямую 20-мерного ОДУ-моделирования вековой сукцессии (ветка. . .
Текстовый слайдер с нумерацией страниц и кроссбраузерность.
russiannick 18.07.2026
Один мой друг написал текстовый слайдер с нумерацией страниц. Сегодня я расскажу как он умудрился подружить его с кроссбраузерностью. Очевидно сложно угодить с шириной каждому браузеру. Один крадет. . .
Грибы - это мемы, дерево - это человек. Применение микоризной модели к теории меметики Докинза.
anaschu 18.07.2026
Меметический изоморфизм теории «всего»: Грибная сукцессия как модель эволюции идей Докинза Базовый код системы ОДУ микоризной сукцессии описывает не просто биологию, а универсальную. . .
Грибы - это корпорации, деревья - это государства. Механизм массонского захвата власти
anaschu 18.07.2026
Макроэкономический изоморфизм теории «всего»: Грибная сукцессия как модель транснационального капитализма Базовый код системы ОДУ микоризной сукцессии описывает не просто биологию, а. . .
Расчёт периметра прямоугольника по координатам вершин
Maks 18.07.2026
Решение задачи по прикладной информатике средствами 1С. Задача: Вычислить периметр прямоугольника, заданного координатами своих вершин на плоскости. Решение: Создан документ со следующими. . .
Подсчёт частоты трёхбуквенных слов в тексте
Maks 18.07.2026
Решение задачи по прикладной информатике средствами 1С. Задача: Выясните, сколько раз в предложенном тексте встречается каждое трехбуквенное слово. Решение: Создан документ с единственным. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru