@洪流Blog
space ホーム space|space ユーザログイン
space
 現在位置:技術 >> サイト構築 >>LDAPサーバーからレコードを取得する方法

LDAPサーバーからレコードを取得する方法
投稿者:u153
作成日時:Thursday, October 22, 2015

<%

Set conn= CreateObject(”ADODB.Connection”)
Set rs= CreateObject(”ADODB.Recordset”)

conn.Provider = ”ADSDSOObject”
conn.Open ”ADs Provider”
Set rs = conn.Execute( _
    ”<LDAP://サーバーアドレス/サブパス>;” _
    & ”(objectClass=Person);ADsPath,objectClass,cn;subtree”)
    
    icountmax=1000
    currcomp=0

    do While Not rs.EOF
    currcomp=currcomp+1
    
    response.write GetObject(rs.Fields(0).value).uid
    response.write ”<br>”
    response.write GetObject(rs.Fields(0).value).mail
    response.write ”<br>”
    response.write ”<br><br>”
    
        if currcomp>icountmax then
            exit do
        end if
    rs.MoveNext
loop

conn.Close
%>

loginユーザメニュー
  ユーザログイン  

     トップ↑

space
@洪流Blog 最新コンテンツ サイト情報 権利情報 提携リンク
Copyright ©2002-2018 洪流  Mobileモード    中国語メニュー(追加中)
1spaceSystem Ver:1.5.0.1.2 Powered by:1space.space