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
