Services de windows

"C?dric Charlet" <news0@charlet.ch> wrote in message
news:8acaf051.0404190651.5a2d180b@posting.google.com...

Bonjour,

Je cherche un moyen en perl pour voir les services de windows ainsi
que l'utilisateur avec lequel il tourne.

Merci d'avance de votre aide

salutations

Bonjour,

Il existe la commande DOS "tasklist" pour celà (marche au moins avec windows
NT).
Pour afficher l'aide, il suffit de taper "tasklist /?" dans une console DOS.
Il est également possible de filtrer les tâches en cours d'éxecution par
service (comme indiqué dans l'aide)

Cordialement,


Julien

Dans l'article <8acaf051.0404190651.5a2d180b@posting.google.com>, news0
@charlet.ch a dit...

Je cherche un moyen en perl pour voir les services de windows ainsi
que l'utilisateur avec lequel il tourne.

Vous pouvez utiliser le module Win32::Process::Info
http://cpan.uwinnipeg.ca/htdocs/Win32-Process-Info/Win32/Process/Info.html

Pour charger la dernière version avec ppm, voir mon dépot :
http://www.bribes.org/perl/ppmdir.html

Le script suivant affiche toutes les paramètres de chaque processus qui
tourne sur $machine (locale ou distante si vous avez les droits).
À vous de faire le tri :-)

#!/usr/bin/perl -w
use strict;
use Win32::Process::Info;

my $machine = "KidXP"; # nom de l'ordi

my $pi = Win32::Process::Info->new($machine);
my @info = $pi->GetProcInfo();

foreach my $h (@info) {
print "=========================n";
foreach my $k (keys %$h) {
print "$k => $$h{$k}n" if defined $$h{$k};
}
}

__END__

--
J-L.M.