人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

ぴかちゅうと申します。
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が返ってくるのか原因が分かりません。
よろしくお願いします。

●質問者: pikacyuu
●カテゴリ:ウェブ制作
✍キーワード:ASP LDAP Number OS SET
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● lame-delegate
●70ポイント

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

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

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

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

◎質問者からの返答

接続はできました。

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

正常(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

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ