Aufgabe

Enumerieren laufender Processe (lokal oder remote) und "killen" eines einzelnen Processes.

Skript

use strict;

use Win32;
use Win32::Process;
use Win32::Process::Info;

my $server = "\\\\someserver.domain.de"; # "" für localmachine
my $exe = "yourexe.exe" # Name der Processdatei

my $pi = Win32::Process::Info->new($server);
foreach my $hashref ($pi->GetProcInfo())
{
   my $exitcode = undef;
   print "Process: $hashref->{Name}\n";
   if(lc($hashref->{Name}) eq $exe)
   {
      Win32::Process::KillProcess($hashref->{ProcessId}, $exitcode);
   }
}   

Ergänzungen, Kommentare

Kommentare werden am besten in folgender Form vorgenommen, damit sie im Inhaltsverzeichnis angezeigt werden (natürlich ohne das <verbatim>):

-- SaschaKieferAkaEsskar - 03 Mar 2004 - Eingestellt