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...

Comment on Re^4: PERL en ADSI Download Code

Replies are listed 'Best First'.
Re^5: PERL en ADSI by Sinistral (Monsignor) on Jan 11, 2011 at 15:46 UTC
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	[reply]
Re^5: PERL en ADSI by Corion (Patriarch) on Jan 11, 2011 at 14:46 UTC
This code cannot compile. Please show some effort and eliminate the most obvious errors before posting.	[reply]

In Section Seekers of Perl Wisdom