монитор процесса и завершение - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)

- - монитор процесса и завершение (http://forum.oszone.net/showthread.php?t=316659)

монитор процесса и завершение

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

подскажите в чем проблема. Я, наверно, запарил в 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

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

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

Код:

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

После запуска (в том числе и в папке "автозагрузка") убить этот скрипт можно только в диспетчере задач. Если запущено несколько калькуляторов, будут убиты все.