Re^4: PERL en ADSI

[PerlUserNL]

in reply to Re^3: PERL en ADSI
in thread PERL en ADSI

use strict;
use warnings;
use Win32::OLE;

$ou=Win32::OLE->GetObject("LDAP://ou=Users,dc=myDomain,dc=net");
@filter=("user");
$ou->{filter}=\@filter;

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

I add the strict en warnings by default in my scripts, But i forgot to posted it here...

[Corion]

This code cannot compile. Please show some effort and eliminate the most obvious errors before posting.

[Sinistral]

corion is correct, this code won't work at all. Perhaps you want to look at a working LDAP / Active Directory example: Help using Win32::OLE