DirectoryEntryでのLDAP認証

質問

下記環境で、LDAP認証アプリを作成しております。

LDAPサーバ:Windows 2003R2サーバ
クライアント:Windows 7 Pro
VB.net 2010 Pro

Apache Directory Studio（以降、ADS） を使用し、LDAPサーバに、添付した資料のように uid を追加。
LDAP認証した際に、登録したuidにも関わらず、
「ログオン失敗: ユーザー名を認識できないか、またはパスワードが間違っています。」
となってしまい困っております。

VB.netのソースを下記に記載します。
--------------------
Try
drEntry = New DirectoryEntry("LDAP://（LDAPサーバ名）:389/uid=hoge,ou=People,dc=maxcrc,dc=com", "ou=People,dc=maxcrc,dc=com","hogepassword", AuthenticationTypes.FastBind)
Dim drSearch As New DirectorySearcher()
drSearch.ServerTimeLimit = New System.TimeSpan(0, 0, 1000)
drSearch.ClientTimeout = New System.TimeSpan(0, 0, 1000)
drSearch.SearchRoot = drEntry

drSearch.SearchScope = SearchScope.Subtree
sResult = drSearch.FindOne
MsgBox("ログイン成功")
Catch ex As Exception
MsgBox("ログイン失敗")
End Try
----------------------

drEntry = New DirectoryEntry("LDAP://（LDAPサーバ名）:389/uid=hoge,ou=People,dc=maxcrc,dc=com", "cn=manager,dc=maxcrc,dc=com","hogepassword", AuthenticationTypes.FastBind)

ou=Peopleを、LDAPサーバー構築時に管理者で作成した cn=manager と変更すると、
ログインできるのですが。。。
DirectoryEntryへの接続文字列の指定の仕方が間違っているのか？はたまた？うーん。。。

そもそもLDAPへの理解がまだ全然足りていない部分もあり、時間も押し迫っていることから
質問させていただくこととなりました。
ADSでみたLDAPの構成と、VBのソースで何か気づかれた点、アドバイス等ありましたら
ご指摘のほど、よろしくお願いいたします。

回答No.2

noname#259269 · ベストアンサー

ああ、なるほど。。。私も少し勘違いしていました。失礼しました。

#パスワードは暗号化されて AD 上に格納されているので Filter で絞ることはできないと思います。

ということで、当初質問時のソースに対して、

1.DirectoryEntry の第一パラメータには、認証したいユーザが所属するパスを指定してください。
　例) "LDAP://～/ou=People,dc=maxcrc,dc=com"
2.DirectoryEntry の第二、第三パラメータには、認証したいユーザIDとパスワードをそれぞれ指定してください。

これでうまくいきませんか？

お礼

ご指摘通りの方法で無事解決しました。
ありがとうございました。

回答No.1

noname#259269

記載のとおり、第二パラメータが「ou=People」ではじまっているのがおかしいです。
ここは、LDAPサーバの検索が可能な権限を持った「ユーザ」を指定する必要があります。

あと Dispose できてないですね。Using つかいましょう。
http://d.hatena.ne.jp/zecl/20080226/p2

補足

回答ありがとうございます。
disposeに関しては、usingではないのですが破棄処理は
以降の処理でまとめて行っており省略してあります。
丁寧なご指摘ありがとうございます。

下記のように見直してみました。
drEntry = New DirectoryEntry("LDAP://（LDAPサーバ名）:389/uid=hoge,ou=People,dc=maxcrc,dc=com", "cn=manager,dc=maxcrc,dc=com", "adminpasswd", AuthenticationTypes.FastBind)
Dim drSearch As New DirectorySearcher()
drSearch.ServerTimeLimit = New System.TimeSpan(0, 0, KConst.LDAP_TIMEOUT)
drSearch.ClientTimeout = New System.TimeSpan(0, 0, KConst.LDAP_TIMEOUT)
drSearch.SearchRoot = drEntry
drSearch.Filter = String.Format("(userpassword={0})", "hogepassword")

drSearch.SearchScope = SearchScope.Subtree
sResult = drSearch.FindOne

sResult がnothingでなければパスワードが存在している処理になっております。
userpassword属性に対してFilterで、”hogepassword”を渡しているのですが、
うまく取得できておりません。
uid=hogeの階層の他の属性は取得できているのですが、
userpassword属性が取得できないもんだいにひっかかってしまいました。

userpassword属性はSSHA（デフォルト）で作成しております。
パスワードは何度か登録して確認してみたので、
パスワードの登録間違いはないと思います。
SSHAなのに”hogepassword”と文字列のまま渡しているのがいけないのでしょうか？

もしご存知でしたら、お力添えの程よろしくお願いいたします。