#!C:/PROGRA~1/Perl/bin/perl.exe -w

#vraag 17
use Win32::OLE::Const 'Microsoft WMI Scripting';

$locator = Win32::OLE->new("WbemScripting.SWbemLocator","localhost");

sub GetNameSpaces {
    my $naam = shift;
    my $niveau = shift;

    my $con = $locator->ConnectServer(".",$naam);
    if(Win32::OLE->QueryObjectType($con)){
     for(0..$niveau-1){
	       print "\t";
    	      }


    my $instances = $con->Get("__NAMESPACE")->Instances_;
     print $naam."($instances->{Count})";
    #print "\nAantal Instances: " . $instances->{Count} . "\n";

    foreach(in $instances){
    	      print $_->{Name}."\n";
	      GetNameSpaces($naam."/".$_->{Name},$niveau+1);
    }
    }

}

GetNameSpaces("root",1);