If you want to go the easy way:
use Win32::Service;
Bill in Brooklyn
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of eyal edri
Sent: Thursday, March 23, 2006 11:38 AM
To: perl-win32-users@listserv.ActiveState.com
Subject: Get Service Description
Hi ,
I'm using Win32:::OLE('in') to retrive win32 service names (such as
alerter).
I am looking for a function/method to retrve the desc or full name of the
service.
this is what i use:
my $objWMIService = Win32::OLE->GetObject("winmgmts:\\\\$ip\\root\\CIMV2") or die "WMI connection failed.\n";
my $colItems = $objWMIService->ExecQuery("SELECT * FROM
Win32_SystemServices",
"WQL",
wbemFlagReturnImmediately | wbemFlagForwardOnly);
foreach my $objItem (in $colItems) {
my $service =
$objItem->{PartComponent};
$service is the service (short system) name.
Anyone know how can i get the description as well?
thanks.
--
Eyal Edri | System & Security Engineer | [EMAIL PROTECTED] Communication.
_______________________________________________ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
