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

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

2010-11-26T02:37:43Z

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

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

2010-11-26T00:01:27Z

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

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

2010-11-25T17:09:10Z

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

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

2010-11-24T14:23:01Z

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

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

2010-11-24T08:39:04Z

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

taskkill /im r_server.exe

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

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

2010-11-24T06:13:53Z

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

либо так

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

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

2010-11-24T06:04:09Z

Необходимо скриптом завершить процесс 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