必要なもの
Net::LDAPモジュール
サンプル
use Net::LDAP; $HOST = "vmware.local"; $DN = 'user@vmware.local'; $PW = "pass"; #サーバ接続 my $ldap = Net::LDAP->new($HOST, port=>389) or die "$@"; #バインド(ログオン) my $rtn_bind = $ldap->bind( $DN, password=>$PW, ); if($rtn_bind->is_error()){ #エラー処理 # print "エラー".":".$rtn_bind->code; print $rtn_bind->error_text(); }else{ #正常処理 print "正常"; my $mesg = $ldap->search( base => "OU=All Users,DC=vmware,DC=local", filter => "(sAMAccountName=hogehoge)", ); $mesg->code && die $mesg->error; foreach my $entry ($mesg->all_entries) { $entry->dump; #print $entry->get_value('mail'); } } $ldap->unbind;[カテゴリ: プログラミング言語 > Perl]
[通知用URL]
Tweet
最終更新時間:2015年01月21日 21時24分11秒