Help for this page
use Win32::OLE qw (in); my $Computer="."; ... my $test=SubclassesOf $WMIServices; use Data::Dumper; print Dumper($test);
Set test = objWMIService.SubclassesOf()