Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - монитор процесса и завершение

Ответить
Настройки темы
VBS/WSH/JS - монитор процесса и завершение

Новый участник


Сообщения: 1
Благодарности: 0

Профиль | Отправить PM | Цитировать


Добрый день!
Помогите разобраться со скриптом.
Цель - скрипт будет висеть в автозагрузке. Постоянно мониторить процесс (за пример взял калькулятор).
Если калькулятор запущен, то вырубать его.
Сам по себе вроде как работает, но разово. (т.е. когда сам его запускаю он вырубает процесс и все. но когда в автозагрузке ничего не происходит)

подскажите в чем проблема. Я, наверно, запарил в Do Loop

Код: Выделить весь код
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2")
Set colServices = objWMIService.ExecQuery _
("SELECT * FROM Win32_Process WHERE Name = 'calc.exe'")
Do
Running = False
Set colItems = objWMIService.ExecQuery("Select * from Win32_Process")
For Each objItem in colItems
If objItem.Name = "calc.exe" Then
Running = True
Exit For
End If
Next
If Not Running Then
WScript.Sleep 2000
Loop while Not Running
Dim oShell : Set oShell = CreateObject("WScript.Shell")
oShell.Run "taskkill /im calc.exe", , True
End If

Отправлено: 12:15, 11-07-2016

 

Ветеран


Сообщения: 544
Благодарности: 35

Профиль | Сайт | Отправить PM | Цитировать


d_dwen, то что он работает вообще видно?

-------
консольный клиент telegram для Windows: www.elapser.info


Отправлено: 13:15, 11-07-2016 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Забанен


Сообщения: 793
Благодарности: 260

Профиль | Цитировать


Вообще, довольно странно получать список процессов через WMI, а грохать процесс с помощью taskkill. Во-вторых, что подразумевается под автозагрузкой: Run в реестре, задача в планировщике или просто ярлык в папке "Автозагрузка"?

Отправлено: 13:59, 11-07-2016 | #3


Ветеран


Contributor


Сообщения: 2708
Благодарности: 1684

Профиль | Отправить PM | Цитировать


Код: Выделить весь код
Program = "calc.exe"

Set WMI = GetObject("winMgmts:")
SQuery = "Select *From Win32_Process Where Name=" + """" + Program + """"

Do
    Set Processes = WMI.ExecQuery(SQuery)
    For Each Process In Processes
        Process.Terminate
    Next
    WScript.Sleep 2000
Loop
После запуска (в том числе и в папке "автозагрузка") убить этот скрипт можно только в диспетчере задач. Если запущено несколько калькуляторов, будут убиты все.

-------
Даже самая сложная проблема обязательно имеет простое, лёгкое для понимания, неправильное решение. Каждое решение плодит новые проблемы.


Последний раз редактировалось megaloman, 11-07-2016 в 16:16.


Отправлено: 16:06, 11-07-2016 | #4


Ветеран


Сообщения: 27449
Благодарности: 8086

Профиль | Отправить PM | Цитировать


Script samples / Operating System / Processes / Processes and Threads / Prevent a Process from Running - VBScript, vbs, cscript, wscript, wsh, script, WMI.

С галереи его убрали что-ли, не пойму?!
Это сообщение посчитали полезным следующие участники:

Отправлено: 18:42, 11-07-2016 | #5



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - монитор процесса и завершение

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Службы - принудительное завершение процесса Pogrebnyuk Microsoft Windows 2000/XP 2 31-01-2013 08:54
[решено] Автоматическое завершение процесса. ГрМакс Microsoft Windows NT/2000/2003 7 07-10-2012 18:50
Любой язык - [решено] Завершение процесса по условию Butunin Klim Скриптовые языки администрирования Windows 1 15-08-2011 15:17
VBS/WSH/JS - [решено] Завершение процесса d_u Скриптовые языки администрирования Windows 7 26-07-2010 17:45
Разное - Неожиданное завершение системного процесса Uzer-pb Хочу все знать 1 30-06-2010 11:23




 
Переход