ぴかちゅうと申します。

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/04 15:06:34
※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。

回答1件)

id:lame-delegate No.1

回答回数85ベストアンサー獲得回数10

ポイント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

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

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

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

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

回答リクエストを送信したユーザーはいません