Terminate a process by specifing computer name using PERL..

[cnsabar]

Hi.,

I am using the following code to terminate the any process by giving the process name as input...

use Win32::Process::List;
use Win32::OLE;
$Win32::OLE::Warn = 3;
$P = Win32::Process::List->new();
print "Enter the process name.exe to terminate:  ";
$name=<STDIN>;
chomp ($name);
 
%list = $P->GetProcesses();
foreach  $key (keys %list) 
{
    #$name = "regedit.exe";
    $ss = $list{$key};
    if(($ss eq $name))
    {
        $pid=$key;
    }
}
$strComputer = '.';
$intPID=$pid;
print " Process PID: $intPID\n";
$objWMIProcess = Win32::OLE->GetObject('winmgmts:\\\\' . $strComputer . '\\root\\cimv2:Win32_Process.Handle=\'' . $intPID . '\'');
print 'Process name: ' . $objWMIProcess->Name, "\n";
$intRC = $objWMIProcess->Terminate();
 
 

If I run the above script in server., I am in trouble by terminate the process by specifying computer name.. if one or more users using the same application

kindly anyone help me regarding this problem...

[numberwhun]

Hi.,

I am using the following code to terminate the any process by giving the process name as input...

use Win32::Process::List;
use Win32::OLE;
$Win32::OLE::Warn = 3;
$P = Win32::Process::List->new();
print "Enter the process name.exe to terminate:  ";
$name=<STDIN>;
chomp ($name);
 
%list = $P->GetProcesses();
foreach  $key (keys %list) 
{
    #$name = "regedit.exe";
    $ss = $list{$key};
    if(($ss eq $name))
    {
        $pid=$key;
    }
}
$strComputer = '.';
$intPID=$pid;
print " Process PID: $intPID\n";
$objWMIProcess = Win32::OLE->GetObject('winmgmts:\\\\' . $strComputer . '\\root\\cimv2:Win32_Process.Handle=\'' . $intPID . '\'');
print 'Process name: ' . $objWMIProcess->Name, "\n";
$intRC = $objWMIProcess->Terminate();
 
 

If I run the above script in server., I am in trouble by terminate the process by specifying computer name.. if one or more users using the same application

kindly anyone help me regarding this problem...

Ok, this is your friendly reminder before the warning. When posting code in the forums, please remember to surround the code in the necessary, required code tags.

Thank you!

Regards,

Jeff

[cnsabar]

Hi Jeff,,

I am new in this forum site..
I will use the code tags in future...

Thanks.