Discussion :

[vince2005]

en perl, comment peut on arreter et redémarrer un service windows 'publication web'. J'ai vu qu'il existait un module win32::daemon, mais comment l'utiliser.

merci encore si quelqu'un à un exemple.

[Gamdwin]

Ce module a l'air bien sympathique :
http://search.cpan.org/~jdb/libwin32...ice/Service.pm

[vince2005]

rebonjour,

J'ai saisi ce code ci en téléchargeant biensur le module win32::service.

Code :

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

1
2
3
4
5
6
 
use Win32::Service;
use strict;
use warnings;
 
StopService("MON_PC","Audio Windows")

et j'ai l'erreur suivante :
Undefined subroutine &main::StopService called at C:\Perl\Start_Stop_Service.pl line 24

[Mr6]

Appelle plutôt

Code :

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

Win32::Service::StopService(......)

en tout cas, ca marche :

Code :

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

1
2
3
4
5
6
 
my %services;
Win32::Service::GetServices("MON_PC",\%services);
foreach my $key (sort keys %services) {
	print "$key => $services{$key}\n";
}

@+
Mr6