Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

Re^4: PERL en ADSI

by PerlUserNL (Initiate)
on Jan 11, 2011 at 14:37 UTC ( #881679=note: print w/ replies, xml ) Need Help??


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


Comment on Re^4: PERL en ADSI
Download Code
Replies are listed 'Best First'.
Re^5: PERL en ADSI
by Sinistral (Prior) 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

Re^5: PERL en ADSI
by Corion (Pope) on Jan 11, 2011 at 14:46 UTC

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

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://881679]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (10)
As of 2015-07-07 18:58 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (93 votes), past polls