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 33 34 35 36 37 38 39 40
| #!/usr/bin/perl
use Win32::Service;
$ficsrv='C:\scripts\expmat\services.txt';
# Controle services ##########################################################
##############################################################################
#sub SERVICES {
### charge le fichier source
open( FIC1,$ficsrv) or die "fichier $ficsrv introuvable";
chomp(@listgbl1=<FIC1>); # @listgbl1=list globale
close(FIC1);
$nbrsvr1=@listgbl1; #Nombre de serveur à traiter
for ($a=0;$a<$nbrsvr1;$a++)
{
@list1 = split("," , $listgbl1[$a]);
$nbrprc1=@list1; #Nombre de services à traiter
$serv1=$list1[0]; # Nom du serveur
print "\n $serv1 \n";
for ($b=1;$b<$nbrprc1;$b++)
{
$proc1=$list1[$b]; # Nom du process
#Récupération du status du service
Win32::Service::GetStatus("\\\\".$serv1,$proc1,\%status);
$value=$status{CurrentState};
if ($value == 4) {print($proc1 ," service actif \n ");}
if ($value != 4) {print("Probleme sur le service ","$proc1 \n" );}
}
}
#} |
Partager