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

Показать сообщение отдельно

Ветеран


Contributor


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

Профиль | Отправить 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