perl wmi cpu des process

Bonjour,

J'aimerais savoir comment faire en perl pour aller chercher la liste des process avec leur cpu et mémoire de chacun des process. Voici des exemples que j'ai fait mais il me manque de l'information:

Code:

1
2
3
4
5
6
7
8
9
10
11
 
#!./perl -w
use Win32::OLE('in'); 
 
$sobj = Win32::OLE->GetObject( 
                      'winmgmts:{impersonationLevel=impersonate}') 
      or die "can't create server object: ".Win32::OLE->LastError(  )."\n"; 
 
foreach $process (in $sobj->InstancesOf("Win32_Process" )){ 
  print $process->{Name}." is pid #".$process->{ProcessId},"\n"; 
}

ou encore

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
# Routine permettant d'obtenir de l'info sur le systeme
#
sub totmemphy {
#
use Win32::OLE qw(in with);
use Win32::Registry;
#
$WMI = Win32::OLE->new('WbemScripting.SWbemLocator') ||
 erreur("Cannot access WMI on local machine: new "), Win32::OLE->LastError; 
#
$Services = $WMI->ConnectServer($host) ||
 erreur("Cannot access WMI on remote machine: connectserver "), Win32::OLE->LastError; 
#
$os_set = $Services->InstancesOf("Win32_OperatingSystem");
foreach $os (in($os_set)) 
 {
  $sysexpl         = $os->{'Caption'};
  $version         = $os->{'Version'};
 }
$sys_set = $Services->InstancesOf("Win32_ComputerSystem");
foreach $sys (in($sys_set)) 
 {  
  $totmem          = $sys->{'TotalPhysicalMemory'} / 1024;
 }
                }

Merci !