1
我正在尝试编写一个脚本来查询LDAP服务器并打印出用户是memberOf的所有组。现在它只在用户名为memberOf的条目中返回。LDAP Perl脚本查看用户是什么组的成员
$sn=$ARGV[0];
$searchbase="OU=All Users,DC=corp,DC=b****n,DC=com";
$filter="(&(sn=$sn)(employeeType=Employee))";
$attrs="sAMAccountName, sn, givenname, l, mail, employeeType, memberOf";
$result = $ldap->search(# perform a search
base => $searchbase,
filter => $filter,
attrs => $attrs
);
$count = $result->count;
print "Count: $count\n";
for ($i=0;$i<$count;$i++) {
$entry=$result->entry($i);
$first=$entry->get_value('givenname');
$last=$entry->get_value('sn');
$location=$entry->get_value('l');
$email=$entry->get_value('mail');
$login=$entry->get_value('sAMAccountName');
$empType=$entry->get_value('employeeType');
$memberOf=$entry->get_value('memberOf');
# $=$entry->get_value('');
print "$first $last\t$login\t$email\t$empType\t$location\n";
print "$memberOf\n\n";
}
输出:在列表环境
John Smith smithj [email protected] Employee Office2
CN=DL-Archive Plug In,OU=DistributionList,OU=Messaging,DC=corp,DC=b****n,DC=com
非常感谢你。这正是我需要的。 – wtfomgjohnny 2012-01-18 19:12:37