I have a script which returns all users in my domain. It works great but I want
a way to retrieve additional attributes like 'manager' or 'mail'.
Is there a way to do this using Win32::OLE?
Script follows:
use Win32::OLE 'in';
$ADsPath = "WinNT://mydomain/adomaincontroller";
$c = Win32::OLE->GetObject($ADsPath) or warn "Unable to get $ADsPath\n";
foreach $adsobj (in$c) {
print $adsobj->{Name},"\n" if ($adsobj->{Class} eq "User")
}
Thanks in advance
Rich
_______________________________________________
Perl-Win32-Admin mailing list
Perl-Win32-Admin@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
