use strict;
use warnings;

use Win32::OLE;

my $ou;
my @filter;
my $obj;

$ou=Win32::OLE->GetObject("LDAP://ou=NID_Users,dc=A34,dc=NID");
@filter=("user");
$ou->{filter}=\@filter;


print "Hier Volgt een lijst van gebruikers:\n"; 

foreach $obj (in $ou){
 print "$obj->{name}\n";
 print "  First name: " ; 
 print "$obj->{givenName}\n" ; 
 print "###############\n\n\n" ; 
  
}