게시판 본문 Active Directory Service Interface - Read Only

2000SERVER에서 잘돌아가던 AD커넥션부분이 2003SEVER로 변경이 되면서 안되면서 아래와 같은 메세지를 반환한다.



Active Directory 오류 '80040e37'

인수 중 하나가 올바르지 않습니다.

/test_test2.asp, 줄 32
========================================


<%

LDAP_MEMBER_URL = "LDAP://도메인/OU=TopGroup,DC=designins,DC=co,DC=kr" '검색할 ADSI 기준(사용자)


strDomain = "DN=Users,DC=도메인,DC=co,Dc=kr"


ADUser = "아이디" '소속 그룹의 Domain Users에 속하는 계정의 아이디
ADPasswd = "비밀번호" '소속 그룹의 Domain Users에 속하는 계정의 비밀번호



Dim AD_con,AD_com,AD_rs,str_ADSI_Sql

Set AD_con = CreateObject("ADODB.Connection")
Set AD_com = CreateObject("ADODB.Command")
Set AD_rs = CreateObject("ADODB.RecordSet")

Ad_con.Provider = "ADsDSOObject"
Ad_con.Properties("ADSI Flag") = 1

Ad_con.Properties("User ID") = strDomain + "\" + ADUser -> 2000SERVER용
Ad_con.Properties("User ID") = ADUser -> 2003SERVER용


Ad_con.Properties("Password") = ADPasswd


Ad_con.Open "ADs Provider" ' AD에 커넥션 Open
Ad_con.CursorLocation = 3
Set AD_com.ActiveConnection = AD_con

strCols = "cn" '그룹코드


str_ADSI_Sql = " SELECT "&strCols
str_ADSI_Sql = str_ADSI_Sql & " FROM '"&LDAP_MEMBER_URL&"'"
str_ADSI_Sql = str_ADSI_Sql & " where objectCategory='group'"
AD_com.CommandText= str_ADSI_Sql
Set AD_rs = AD_com.Execute(str_ADSI_Sql)


If AD_rs.EOF OR AD_rs.BOF Then
doc = false
Else
doc = AD_rs.getRows()
End if


for i=0 to Ubound(doc,2)
Response.write doc(0,i)&"<br>"
Next



%>

====================



strDomain 의 정확한 위치정보를 2003은 거부하는것 같다.



내부적으로 자기가 알어서 처리를 하는건지는 모르겠으나



거의 10시간 동안 저거 하나 붙잡고 답을 찾아 해맸다..



순전이 운이었다. --;;;



구글에서 찾은 아래 코드를 혹시 나하는 마음에 실행해보니 된다.



차이는 username부분 처리하는 부분만 차이고 나머지는 똑같다..





그래서 발견..





<%

domain = "LDAP://도메인/OU=TopGroup,DC=designins,DC=co,DC=kr"
UserName = "아이디"
Password = "비밀번호"

' assume failure

AuthenticateUser = false

strUser = UserName

strPassword = Password

strQuery="Select cn from '" & domain & "' where objectClass='*' "

set oConn = server.CreateObject("ADODB.Connection")

oConn.Provider = "ADsDSOOBJECT"

oConn.Properties("User ID") = strUser

oConn.Properties("Password") = strPassword

oConn.Properties("Encrypt Password") = true

oConn.open "DS Query", strUser, strPassword

set cmd = server.CreateObject("ADODB.Command")

set cmd.ActiveConnection = oConn

cmd.CommandText = strQuery

'on error resume next

set oRS = cmd.Execute

if err<>0 then DisplayErrors oConn.Errors

if oRS.bof or oRS.eof then

AuthenticateUser = false

else

AuthenticateUser = true

end if

set oRS = nothing

set oConn = nothing

response.write("Success=" & AuthenticateUser)

response.end


%>