Hallo,ich habe folgendes Problem / Anliegen:
Ich möchter per Perl zu einem bestimmten User aus dem AD auslesen. z.B. Email-Adresse und Telefonnummer.
Habe dazu folgendes Script geschrieben, das die Daten des aktuell angemeldeten Benutzers ausliest:
use Win32::OLE;my $sysinfo = Win32::OLE->new('ADSystemInfo') || die ("Can't get sysinfo: ".Win32::OLE->LastError()."\n");
my $usr=$sysinfo->{UserName};
my $AdsPath = "LDAP://".$usr;
my $adsuser = Win32::OLE->GetObject($AdsPath) || die ("Can't find user: ".Win32::OLE->LastError()."\n");
print "UserID: $adsuser->{samAccountName}\n";
print "Name: $adsuser->{displayName}\n";
print "Telefon: $adsuser->{telephoneNumber}\n";
print "Email: $adsuser->{EmailAddress}\n";
print "Office: $adsuser->{physicalDeliveryOfficeName}\n";
So nun das Problem, wie lese ich nun die Daten eines beliebigen anderen Benutzers aus, ohne dessen CN zu kennen?
Danke schon mal für die Info!
Gruß
Christian
Datum: 25.10.2005-09:14
Userdaten aus dem AD (LDAP) auslesen
