<psychic>
You can query an active directory's LDAP entries using the perl modules Net::LDAP or Net::LDAP::Express.Example:
use Net::LDAP;
$ldap = Net::LDAP->new( 'pdc.foobar.com' ) or die "$@";
$mesg = $ldap->bind ; # an anonymous bind
$mesg = $ldap->search( # perform a search
base => "c=US",
filter => "(&(cn=Some Loser))"
);
$mesg->code && die $mesg->error;
foreach $entry ($mesg->entries) { $entry->dump; }
$mesg = $ldap->unbind; # take down session
</psychic>
The intelligent reader will judge for himself. Without examining the facts fully and fairly, there is no way of knowing whether vox populi is really vox dei, or merely vox asinorum. — Cyrus H. Gordon