Bonjour,

En utilisant le module Win32::Service, je peux pour un serveur windows afficher la liste des services (nom long et nom court) et leur état.

Or je souhaiterai également afficher le compte de service associé (localsystem ou bien DOMAINE\User), seulement, je ne vois pas comment faire.

Si on ne peux pas le réaliser en perl, j'utiliserai surement soit : un freeware, ou bien j'irai voir dans la base de registre.

Existe t'il un module en perl qui me permettrait d'afficher les informations qui m'interesse ?

Merci pour votre aide.


Voici le programme que j'ai actuellement ::
--------------------------------------
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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
use Win32::Service;
 
$serveur="UNSERVEUR";
 
$i=1;
 
%status=();
 
%list=();
 
Win32::Service::GetServices($serveur, \%list);
 
 
$pointeur = \%list;
 
 
foreach $i (sort keys %$pointeur) {
 
 		#$i représente le nom long du service
		$service=$$pointeur{$i};
 
		#Récupération du status du service
		Win32::Service::GetStatus($serveur, $service, \%status);
 
		$value=$status{CurrentState};
 
		print "$i	---> OK\n"	if ($value == 4);
 
		print "$i	---> NOK !!\n"	if ($value == 1);
 
}