RE: Get Service Description

[Steven Manross]

:)

Steven

my $colItems = $objWMIService->ExecQuery("SELECT * FROM Win32_Service",
"WQL",
                   wbemFlagReturnImmediately | wbemFlagForwardOnly);

 foreach my $objItem (in $colItems) {
   print "Name: ". $objItem->{Name};
   print "DisplayName: ". $objItem->{DisplayName};
}


________________________________

        From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
eyal edri
        Sent: Thursday, March 23, 2006 9: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