in reply to Kill java processes on Windows server

What do you get it you add: 

$obj->Kill(0) or die $^E;

[download]
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.
"I'd rather go naked than blow up my ass"

Replies are listed 'Best First'.
Re^2: Kill java processes on Windows server
by sri1230 (Novice) on Jan 22, 2010 at 14:17 UTC
    Hi got this error when i did that The handle is invalid at kill_process.pl line 16. here is the code used 
    use strict;
use Win32::Process::Info;
use Win32::Process;
use Data::Dumper;
Win32::Process::Info->Set(variant=>'WMI');
my $pi = Win32::Process::Info->new();
my $exitcode;
for($pi->ListPids){
    my ($info) = $pi->GetProcInfo($_);
    if($info->{Caption} =~ m/^java.exe$/i){
            if($info->{WorkingSetSize} ge '100000000'){
                my $obj;
                print "Kiling Java Process\n";
                my $pid = $info->{ProcessId};
                Win32::Process::Open($obj,$pid,1);
                $obj->Kill(0) or die $^E;
        }
    }
}

    [download]
[reply]
[d/l]

      Then I suspect that you do not have the appropriate permissions to kill those java processes.

      Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
      "Science is about questioning the status quo. Questioning authority".
      In the absence of evidence, opinion is indistinguishable from prejudice.
[reply]
        I am logged in as admin on that box while running the script.
[reply]
        I am running the script as admin of that box. Not sure why it wont kill
[reply]
        Yes i am able to kill it manually
[reply]

In Section Seekers of Perl Wisdom