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.