Hola aca les traigo una funcion que les mostrara los procesos en su computadora
sub getprocess {
my %procesos;
my $uno = Win32::OLE->new("WbemScripting.SWbemLocator");
my $dos = $uno->ConnectServer("","root\\cimv2");
foreach my $pro (in $dos->InstancesOf("Win32_Process")){
$procesos{$pro->{Caption}} = $pro->{ProcessId};
}
}
Ejemplo de uso
my %vida = getprocess();
for my $data(keys %vida) { print "[Proceso] : ".$data."\n"; print "[PID] : ".$vida{$data}."\n\n"; }