Re: get all services in windows?

[Enjoy_Life]

2007/7/6, Rob Dixon <[EMAIL PROTECTED]>:

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            **
**********************************************