Enjoy_Life wrote:
i want to get all the services installed by windows on my computer. i found Win32::Service module, but i don't know how to use it. anyone can help me?
use strict;
use warnings;
use Win32::Service qw(GetServices);
my %service;
GetServices('', \%service);
printf "%s - %s\n", $service{$_}, $_ foreach keys %service;
HTH,
Rob
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
