Серый форум — Как завершить процесс через WSH?

Re: Как завершить процесс через WSH?

null@example.com (alexii) — Fri, 26 Nov 2010 02:37:43 +0000

Берём Process Monitor от бывшей Sysinternals, ставим фильтр на создание, запуск и удаление процессов и смотрим, что именно происходит.

Re: Как завершить процесс через WSH?

null@example.com (jite) — Fri, 26 Nov 2010 00:01:27 +0000

Может увидеть ошибку мешает "on error resume next"? Если есть, отключаем, смотрим что скажет?

Re: Как завершить процесс через WSH?

null@example.com (0meg@) — Thu, 25 Nov 2010 17:09:10 +0000

Учетка с правами администратора. Руками процесс тоже убиваеться легко. Более того пример из которого я взял кусок скрипта прекрасно работает, он убивает процесс а потом снова его запускает...?

Re: Как завершить процесс через WSH?

null@example.com (alexii) — Wed, 24 Nov 2010 14:23:01 +0000

Угу. «taskkill» работает посредством WMI, так что данная команда — едва ли не слово в слово повторяет скрипт из первого поста.

Re: Как завершить процесс через WSH?

null@example.com (jite) — Wed, 24 Nov 2010 08:39:04 +0000

Альтернатива:

taskkill /im r_server.exe

Но если скрипту прав не хватило, так видимо и этому не хватит. Но мало ли, может WMI?
В некоторых ситуациях, например после "очень неудачного" запроса WMI, wmiprvse.exe вешается с очень хорошей нагрузкой процессора (помогает перезагрузка).

Re: Как завершить процесс через WSH?

null@example.com (smaharbA) — Wed, 24 Nov 2010 06:13:53 +0000

прав не хватает, либо процесс иначе зовется

либо так

GetObject("winmgmts:\\.\root\cimv2:win32_service.name='r_server'").stopservice

Как завершить процесс через WSH?

null@example.com (0meg@) — Wed, 24 Nov 2010 06:04:09 +0000

Необходимо скриптом завершить процесс RAdmin'a, пример с форума почему то не завершает процесс, хотелось бы узнать почему, это особеность самого процесса?

Option Explicit
Dim objWMIService,Processes,Process, CommandLine, WshShell
Set WshShell = CreateObject("WScript.Shell")

'Получаем список процессов notepad.exe через WMI
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set Processes = objWMIService.ExecQuery("SELECT * FROM Win32_Process WHERE Name='r_server.exe'")

 If Processes.Count => 1 Then            
    For Each Process In Processes        
       CommandLine = Process.CommandLine    
       Process.Terminate
    Exit For
 Next
End If