PerlUserNL has asked for the wisdom of the Perl Monks concerning the following question:
I have to make a script and use ADSI or ado.
The script have to search Active directory for users with the same Front name.
If users where found with the same front name, the username must be write in the General field (in Active directorty)
example users:
(account name, fullname, firstname, lastname)
janj, Jan Jansen, Jan, Jansen
janp, Jan Pietersen Jan, Pietersen
janq, Jan Quota, Jan, Quota
jjameson, Jannie Jameson, Jannie, Jameson
Output in the General Field:
janj =¨ janp, janq
janp =¨ janj, janq
janq =¨ janj, janp
jjameson =¨ <empty >
Is there someone, wo can help me with this?
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" ; }
The code above is all what I made
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: PERL en ADSI
by wazoox (Prior) on Jan 11, 2011 at 11:12 UTC | |
by PerlUserNL (Initiate) on Jan 11, 2011 at 11:35 UTC | |
by SuicideJunkie (Vicar) on Jan 11, 2011 at 14:07 UTC | |
by PerlUserNL (Initiate) on Jan 11, 2011 at 14:37 UTC | |
by Sinistral (Monsignor) on Jan 11, 2011 at 15:46 UTC | |
by Corion (Patriarch) on Jan 11, 2011 at 14:46 UTC |
Back to
Seekers of Perl Wisdom