Re: get all services in windows?

2007/7/6, Rob Dixon <rob.dixon@xxxxxxx>:

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



thanks very much.
--
**********************************************
** Happy Everyday **
**********************************************