Re^2: PERL en ADSI

I have made a step for step plan: First I want to get the overvieuw of the users. Then I want to compare the first names. Then I want to get the output of the users with the same name. Now i need to copy the usernames to the general field.

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]

Above code i want to use to get the user list. But i think i did something wrong, or maybe it can be done on a easier way.

Comment on Re^2: PERL en ADSI Download Code

Replies are listed 'Best First'.
Re^3: PERL en ADSI by SuicideJunkie (Vicar) on Jan 11, 2011 at 14:07 UTC
Yep. Add `use strict; use warnings;` [download] To the top of that code, and Perl will tell you what is technically wrong and help get the code to run. You will save yourself from a million headaches if you use those liberally. (Appended) PS: A quick look through the Win32::OLE description indicates that your code probably won't compile because "in" isn't exported by default. You probably want to add that and anything else you want to use to your `use` statements up top.	[reply] [d/l] [select]
Re^4: PERL en ADSI by PerlUserNL (Initiate) on Jan 11, 2011 at 14:37 UTC
`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...	[reply] [d/l]
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]