LDAP Perl腳本查看用戶是什麼組的成員

Question

我正在嘗試編寫一個腳本來查詢LDAP服務器並打印出用戶是memberOf的所有組。現在它只在用戶名爲memberOf的條目中返回。

$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 john.smith@domain.name Employee Office2 
CN=DL-Archive Plug In,OU=DistributionList,OU=Messaging,DC=corp,DC=b****n,DC=com 

Answer 1

使用的get_value把所有的值，而不是僅僅是第一個值。

例如，

@memberOf=$entry->get_value('memberOf');