Compte de service windows NT, 2000
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:
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);
} |