Re^4: PERL en ADSI

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";
}
[download]

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

In Section Seekers of Perl Wisdom