会python真的可以为所欲为0(回)
350天前
这里还有人吗1(回)
535天前这里还有人吗0(回)
535天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
760天前到处都是羊，不想上班0(回)
840天前
鸽子
0(回)
844天前#!/usr/bin/perl |
use Net::LDAP; |
## get a object of ldap |
$ldap = Net::LDAP->new ( "1.1.1.1", port =>"389", version => 3 ) or die "$@"; |
# object of Net::LDAP::Message |
$mesg = $ldap->bind ( $_cer_id, password => $_cer_pw ); |
# 查詢用的ID/PASSWD |
if ( $mesg->is_error ) {die $mesg->error;} |
$mesg = $ldap->search ( |
base => "o=abc,c=tt", # 起始點 |
scope => "sub", # 範圍 |
filter => "(uid=apile)", # 條件 |
attrs => ["cn"], # 要取得的attribute |
typesonly => 0 ); |
my $max_len = $mesg->count; |
## get number of entry |
#--取得中文姓名，可能不只一筆 |
for ( $i=0; $i<$max_len; $i++ ) |
{ |
$entry = $mesg->entry ( $i ); |
$cname = $entry->get_value ( "cn" ); |
# get chinese name |
} |
#--作密碼認證 |
$mesg = $ldap->bind ( $entry->dn, password => "abc", version => 3 ) |
||die "can't connect to ldap"; |
if ( $mesg->code ) { print "verification is failed"} |
else { print "success"} |
LDAP version 3..可以用于查询基本资料、验证密码之用.. |
by: 发表于：2017-09-12 14:55:20 顶(0) | 踩(0) 回复
？？
回复评论