Home: Perl Programming Help: Beginner:
ADSI compare usernames



PerlUserNL
New User

Jan 13, 2011, 4:02 AM


Views: 589
ADSI compare usernames

Hi There,



I made the following script:

<code>



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" ;

}



</code>

I need that the script find the users with the same givenName (first name).

Then i need that the users with the same first name, get de username from all users with the same front name in there General field in AD.

Is there someone wo can help me?



Kind Regards

PerlUserNL