WMI SubclassesOf $WMIServices not giving all the objects ?

secret has asked for the wisdom of the Perl Monks concerning the following question:

Dear monks,

I'm not very good at windows object and i encounter a problem when using Win32::OLE .

Here is what i do:

use Win32::OLE qw (in);
my $Computer=".";
my $WMIServices= Win32::OLE->GetObject("winmgmts:\\\\" . $Computer . "
+\\root\\cimv2");
my $test=SubclassesOf $WMIServices;
use Data::Dumper; 
print Dumper($test);
[download]

This gives the following result :

$VAR1 = bless( {
                 'Count' => 626,
                 'Security_' => bless( {
                                         'ImpersonationLevel' => 3,
                                         'AuthenticationLevel' => 6,
                                         'Privileges' => bless( {
                                                                  'Count' => 0
                                                                }, 'Win32::OLE' )
                                       }, 'Win32::OLE' )
               }, 'Win32::OLE' );

The problem is that when i look at the properties of $test with the Visual Basic Espions I see a whole lot of other objects, named "Item 1" to "Item 256" . Here's what i do in VB :

 
Set test = objWMIService.SubclassesOf()
[download]

My question is what are those Item objects and why am i not seeing them with Perl ?

Thanks for your explanations :)

Comment on WMI SubclassesOf $WMIServices not giving all the objects ? Select or Download Code

Replies are listed 'Best First'.
Re: WMI SubclassesOf $WMIServices not giving all the objects ? by BrowserUk (Patriarch) on Jan 23, 2006 at 12:03 UTC
The return from SubclassesOf is a collection. To acess the members of the collection, use the `in` keyword, which you are importing with your `use Win32::OLE qw (in);` [download] , in conjunction with a for loop. `#! perl -slw use strict; use Win32::OLE qw (in); use Data::Dumper; my $Computer = "."; my $WMIServices = Win32::OLE->GetObject("winmgmts:\\\\" . $Computer . +"\\root\\cimv2"); my $test = $WMIServices->SubclassesOf; for my $sub ( in $test ) { print Dumper $sub; }` [download] Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. Lingua non convalesco, consenesco et abolesco. -- Rule 1 has a caveat! -- Who broke the cabal? "Science is about questioning the status quo. Questioning authority". In the absence of evidence, opinion is indistinguishable from prejudice.	[reply] [d/l] [select]
Re: WMI SubclassesOf $WMIServices not giving all the objects ? by marto (Cardinal) on Jan 23, 2006 at 12:07 UTC
Hi secret, Try: `#!/usr/bin/perl use strict; use warnings; use Data::Dumper; use Win32::OLE qw (in); my $Computer="."; my $WMIServices = Win32::OLE->GetObject("winmgmts:\\\\" . $Computer . +"\\root\\cimv2"); my $WMIClasses = $WMIServices->SubclassesOf; foreach my $objItem (in $WMIClasses) { print Dumper($objItem); }` [download] Hope this helps. Martin Update: added formatting.	[reply] [d/l]
Re: WMI SubclassesOf $WMIServices not giving all the objects ? by secret (Beadle) on Jan 23, 2006 at 13:08 UTC
Thanks a lot marto and BrowserUk !	[reply]


Your skill will accomplish what the force of many cannot
	PerlMonks