ぴかちゅうと申します。

OS:WINDWOS2003 SP1
ASP3.0
IIS6.0

ASPにてLDAPの認証を検討しています。
strPath = "LDAP://xx.xx.xx.xx:xxx/CN=%USER%,ou=xxxx,ou=xxx,o=xxxxx"
strUser = "ユーザID"
strPassword = "パスワード"
Set objDSO = GetObject("LDAP:")
Set objUser = objDSO.OpenDSObject(Replace(strPath,"%USER%",strUser), strUser, strPassword, 0)
とした時に、
Err.numberに -2147023570 が返ってきてしまいます。
何故、-2147023570が返ってくるのか原因が分かりません。
よろしくお願いします。

回答の条件
  • URL必須
  • 1人2回まで
  • 登録:2008/07/02 18:04:01
  • 終了:2008/07/04 15:06:34

回答(1件)

id:lame-delegate No.1

lame-delegate回答回数85ベストアンサー獲得回数102008/07/02 23:13:04

ポイント70pt

あと、"%USER%" は、ASP(ActiveServerPages)だと、文字列になっていますよね?

引数にはなっていないような・・

まずはこのサイトどおり作って、変更を加えていってはいかがでしょうか。

http://d.hatena.ne.jp/s0u/20060610/1149950451

id:pikacyuu

接続はできました。

ソースはぼかしています。

正常(0)errnumberはかえってくるようになったのですが、

以下の状態を取得したいのですが、ASPでのサンプルがないため、よくわかりません。

あと、もう少しなのですが、

状態(status)ACTIVE,ENACTVE、PASSWORD)、

PwdExpData(ユーザーパスワードの有効期限)

ポイントで釣って申し訳ありませんが明確な回答をいただけましたら300ポイント進呈します。

strPath = "LDAP://xxx.xxx.xxx.xxx:xxx/"

strUser = "cn=" & Request.Form("USERID") & ",ou=xxxx,ou=xxx,o=xxxx"

strPassword = Request.Form("PASSWORD")

Dim objDSO,objUser

Set objDSO = GetObject("LDAP:")

Set objUser = objDSO.OpenDSObject(strPath & strUser, strUser, strPassword, ADS_FAST_BIND)

If Err.Number <> 0 Then

'認証失敗

Else

'認証成功

End If

2008/07/03 17:44:00

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません