Как убить дерево процессов в ОС Windows

Question

Привет У меня есть этот процесс дерево:

выше скриншот показывает дерево процессов. В моем скрипте Perl я знаю PID dscli. Я написал следующий код, чтобы убить одного PID:

use Win32::Process; 
use strict; 
use warnings; 

if(defined($ARGV[0])){ 
    my $pid = "$ARGV[0]"; 
    my $exitcode = 0; 
    Win32::Process::KillProcess($pid, $exitcode); 
}else{ 
    print "No argument provided :(\n"; 
} 

Проблема заключается в том, что в моем сценарии я не знаю, процесс Java PID. Я должен получить дочерний PID пользователя dscli, который является java-процессом. Если я уничтожу PID dscli, используя вышеуказанный код, тогда ребенок (java) не умрет вместе с ним.

Так что мой вопрос: как я могу убить процесс java, который является дочерним элементом dscli, используя perl?

Answer 1

Можно использовать WMI from PERL. WMI способен find the PID of all child processes of a given parent. Обратите внимание на запрос "select * from win32_process where ParentProcessId={0}". Если у вас есть список дочерних PID, вы можете позвонить Win32::Process::KillProcess.

Answer 2

Вы можете использовать команду Windows TASKKILL /T для завершения процесса и его дочерних процессов.

$pid = ...; 
system("TASKKILL /F /T /PID $pid"); 

Answer 3

Я также предлагаю использовать WMI, но вы можете просто вызвать VBScript со своего Perl. Вот скрипт, который я использую, чтобы убить по командной строке, которая может помочь вам сузить конкретный процесс Java на основе других вещей, которые были в командной строке, когда он был запущен:

If WScript.Arguments.Count = 1 Then 
strProcess = WScript.Arguments.Item(0) 
On Error Resume Next 
strComputer = "." 
Set objWMIService = GetObject("winmgmts:" _ 
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
Set objShell = CreateObject("WScript.Shell") 
Set colProcessList = objWMIService.ExecQuery _ 
    ("Select * from Win32_Process") 

If colProcessList.Count > 0 Then 
    For Each objItem in colProcessList 
     If InStr(objItem.CommandLine, strProcess) Then 
      If (InStr(objItem.CommandLine, "cscript")) Then 
      Else 
       WScript.StdOut.Write objItem.Name + " " 
       objItem.Terminate() 
      End If 
     End If 
    Next 
Else 
    WScript.StdOut.Write "No instances found running" 
End If 
Else 
WScript.StdOut.Write "Bad Arguments" 
End If 

Выполнить это так:

CScript whatEverYouNameIt.vbs «somethingInCommandLineLikeAClassName»