Discussion :

[BEAUJAULT]

Rebonjour à tout le monde

Plus j'avance en programmation perl plus je m'éclate.

Mon supérieur souhaite que je développe un script qui surveillerais les process en memoire sur une machine distante ou local, et si ce process tourne depuis plus de X minutes, le détruire.

Je pensais me débrouiller avec WIN32:rocess. Helas je n'arrive pas à extraire ne serait-ce qu'une liste des process tournant sur ma machine.


???

[Choupi]

Va faire un tour la :
http://search.cpan.org/~wyant/Win32-Process-Info-1.002/Info.pm
Attention il y a pas mal de dependance, faudra peut etre installer des choses.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 use Win32::Process::Info;
 $pi = Win32::Process::Info->new (undef,'NT');
 @pids = $pi->ListPids ();
 print "@pids";

Par exemple tu recuperes les pids comme cela, ca t'evite de passer pas les

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

``

J'edite dans un instant ... [Edit ok]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 use Win32::Process::Info;
 $pi = Win32::Process::Info->new (undef,'NT');
 @pids = $pi->ListPids ();      # Get all known PIDs
 print "@pids";
 @info = $pi->GetProcInfo ();
 for $pid (@info){
   print $pid->{"Name"}."\n";
   print $pid->{"CreationDate"}."\n";
   print $pid->{"ExecutablePath"}."\n";
   print $pid->{"KernelModeTime"}."\n";
   print $pid->{"MaximumWorkingSetSize"}."\n";
   print $pid->{"MinimumWorkingSetSize"}."\n";
   print $pid->{"ProcessId"}."\n";
   print $pid->{"UserModeTime"}."\n"; 
}

Pour avoir plus d'infos (la on est servi). Dans ton cas seul le temps semble t'interesser, avec localtime on a un truc un peu plus "visuel":

for $pid (@info){
print $pid->{"Name"}."\n";
print localtime($pid->{"CreationDate"})."\n";
}

Voila je pense que cela va grandement t'aider. Bon courage.

[BEAUJAULT]

Merci beaucoup pour toutes c'est info

Il me reste plus qu'a scripter.( pour les postes 2000). Ici il ne veulent pas de wmi sur NT4 donc un peu ennuyé . Mais j'ai trouvé une solution qui semble fonctionner avec l'aide d'un outils du ressource kit. tlist.exe

encore merci dés qu'il bascule en 2000 ce sera plus simple.

A+