escalade300 a.k.a 俺 -3ページ目

OpenLDAPでProxyサーバ

slapd.confだけ置いときますね > 俺

<slapd.conf>

#LDAP Backend configuration file

# See slapd.conf(5) for details on configuration options.

# This file should NOT be world readable.

#Unicode文字テーブルのあるディレクトリのパスを指定する

ucdata-path ./ucdata

#追加設定情報の読み込みを指定する

include ./schema/core.schema

include ./schema/cosine.schema

include ./schema/nis.schema

include ./schema/inetorgperson.schema

#slapdのプロセスIDを保持するファイルを指定する

pidfile ./run/slapd.pid

#slapdのコマンドラインパラメータを保持するファイルを指定する

argsfile ./run/slapd.args

#ログレベルを指定する

loglevel 256

#バックエンドが提供するデータベースの種類を指定する

database ldap

#バックエンドデータベースに渡す問合せの DN 接尾辞を指定する

suffix "o=xxx,c=jp"

#コネクションを再接続する場合に、クライアントのバインド認証情報の記憶の有無を指定する

rebind-as-user yes

#slapd がエントリの運用属性を自動的に管理するかを指定する

lastmod off

#クライアントが再バインドする場合に、キャッシュされたコネクションの破棄の有無を指定する

single-conn yes

#問い合わせ結果の最大件数を指定

sizelimit size.soft=1 size.hard=1 size.unchecked=1

#利用するバックエンドLDAPサーバを指定する

uri "ldap://xxx.co.jp:389/"

#LDAPサーバが利用できない場合に、クライアントへ返却する紹介先を指定する

chase-referrals no

この記事は公開停止中です

この記事は現在公開停止中です。詳細はヘルプページをご確認ください。

VBAでLDAP認証

自分メモです

Sub ldap_cert()
　　strUserName = "userName"

　　strPass = "userPass"

　　strADsPath = "LDAP://ldap.server.name"

　　strBaseDN = "ou=xx,dc=xx,dc=xx"

　　strUserName = "uid=" & strUserName & "," & strBaseDN

　　On Error Resume Next

　　Set adsNameSpace = GetObject("LDAP:")
　　Set adsRoot = adsNameSpace.OpenDSObject(strADsPath, strUserName, strPass, 0)

　　If (Err.Number = -2147023570) Then
　　　　MsgBox "パスワード間違え"
　　ElseIf (Err.Number = -2147016661) Then
　　　　MsgBox "ドメイン見つからない"
　　ElseIf (Err.Number = 0) Then
　　　　MsgBox "認証成功!"
　　Else
　　　　MsgBox Err.Number & vbCrLd & Err.Description
　　End If

　　Set adsNameSpace = Nothing
　　Set adsRoot = Nothing

End Sub