Active Directory

[Gamemaster]

Hallo,

hat jemand eine Lösung, wie ich mittels Perl Daten aus einem Active Directory in eine CSV Datei speichern kann ?

und das ganze soll auch wieder umgekehrt funktionieren... also in AD schreiben.

das ganze sollte möglichst effizient passieren.

Danke schon mal

Gruß

Gamemaster

[schnurly]

Hi,

damit sollte man das AD auslesen können.

use Win32::OLE;

$strquery = '<LDAP://domain.test.net>;(sAMAccountName=*);sAMAccountName;subtree';

my $objconn = Win32::OLE->new('ADODB.Connection');
$objconn->{Provider} = "ADsDSOObject";
$objconn->Open;
my $objcomm = Win32::OLE->new('ADODB.Command');
$objcomm->{ActiveConnection} = $objconn;
$objcomm->Properties->{'Page Size'} = 2000;

$objcomm->{CommandText} = $strquery;
my $objrs = $objcomm->Execute($strquery);die "Fehler: ",$Win32::OLE::LastError,"\n"
unless ref $objrs;

while (!($objrs->EOF)) {

print "\t",$objrs->Fields("sAMAccountName")->value,"\n";
$objrs->MoveNext;
}