Dim con As New Connection, rs As New Recordset
Dim Com As New Command
'연결 개체 열기
con.Provider = "ADsDSOObject"
con.Open "Active Directory Provider"
‘이 연결에서 명령 개체 만들기
Set Com.ActiveConnection = con
Com.CommandText = "select name from 'LDAP://DC=ArcadiayBay,DC=COM' where objectClass='*' ORDER BY NAME"
'-----------------------------------------
'검색 기본 설정
'--------------------------------------
Com.Properties("Page Size") = 1000
Com.Properties("Timeout") = 30 'seconds
Com.Properties("searchscope") = ADS_SCOPE_SUBTREE
'--------------------------------------------
'질의 실행
'--------------------------------------------
Set rs = Com.Execute
'--------------------------------------
' 레코드 집합 탐색
'----------------------------------------
While Not rs.EOF
Debug.Print rs.Fields(“Name”).Value
rs.MoveNext
Wend
아래 코드는 틀린것이 없으며 완전한 소스는 위와 같고,
ADO를 사용하지 않는 방법은 지금 없고 집에 있어서 집에 들어가면 소스를 한번 올리지요
>>sadhu 님께서 쓰시길<<
:: Dim oConnection
:: Set oConnection = Server.CreateObject("ADODB.Connection")
:: Dim oCommand
:: Set oCommand = Server.CreateObject("ADODB.Command")
::
:: //이부분입니다.
:: oConnection.Provider = "ADsDSOObject"
:: oConnection.Open "Active Directory Provider"
:: //
::
:: set oCommand.ActiveConnection = oConnection
::
:: 위 소스에서 표시한 부분에 어떤 형식으로 넣어줘야 LDAP서버의 값들을 불러올 수 있는건가요?
:: 제 생각엔 Active Directory Provider라고 적혀있는 부분을 바꿔줘야 될 듯 한데 어떻게 바꿔야 될 지
:: 도 모르겠구요.
:: 그렇다면 무엇을 넣어줘야 하는지 궁금합니다.
:: MSDN에도 위와 똑같이 나와 있어서 뭘 더 해줘야 될 지 모르겠네요.
:: 고수님들의 조언 부탁드립니다.
::
|