LDAPサーバーからレコードを取得する方法

＜％

Ｓｅｔ ｃｏｎｎ＝ ＣｒｅａｔｅＯｂｊｅｃｔ（”ＡＤＯＤＢ．Ｃｏｎｎｅｃｔｉｏｎ”）
Ｓｅｔ ｒｓ＝ ＣｒｅａｔｅＯｂｊｅｃｔ（”ＡＤＯＤＢ．Ｒｅｃｏｒｄｓｅｔ”）

ｃｏｎｎ．Ｐｒｏｖｉｄｅｒ ＝ ”ＡＤＳＤＳＯＯｂｊｅｃｔ”
ｃｏｎｎ．Ｏｐｅｎ ”ＡＤｓ Ｐｒｏｖｉｄｅｒ”
Ｓｅｔ ｒｓ ＝ ｃｏｎｎ．Ｅｘｅｃｕｔｅ（ ＿
    ”＜ＬＤＡＰ：／／サーバーアドレス／サブパス＞；” ＿
    ＆ ”（ｏｂｊｅｃｔＣｌａｓｓ＝Ｐｅｒｓｏｎ）；ＡＤｓＰａｔｈ，ｏｂｊｅｃｔＣｌａｓｓ，ｃｎ；ｓｕｂｔｒｅｅ”）
    
    ｉｃｏｕｎｔｍａｘ＝１０００
    ｃｕｒｒｃｏｍｐ＝０

    ｄｏ Ｗｈｉｌｅ Ｎｏｔ ｒｓ．ＥＯＦ
    ｃｕｒｒｃｏｍｐ＝ｃｕｒｒｃｏｍｐ＋１
    
    ｒｅｓｐｏｎｓｅ．ｗｒｉｔｅ ＧｅｔＯｂｊｅｃｔ（ｒｓ．Ｆｉｅｌｄｓ（０）．ｖａｌｕｅ）．ｕｉｄ
    ｒｅｓｐｏｎｓｅ．ｗｒｉｔｅ ”＜ｂｒ＞”
    ｒｅｓｐｏｎｓｅ．ｗｒｉｔｅ ＧｅｔＯｂｊｅｃｔ（ｒｓ．Ｆｉｅｌｄｓ（０）．ｖａｌｕｅ）．ｍａｉｌ
    ｒｅｓｐｏｎｓｅ．ｗｒｉｔｅ ”＜ｂｒ＞”
    ｒｅｓｐｏｎｓｅ．ｗｒｉｔｅ ”＜ｂｒ＞＜ｂｒ＞”
    
        ｉｆ ｃｕｒｒｃｏｍｐ＞ｉｃｏｕｎｔｍａｘ ｔｈｅｎ
            ｅｘｉｔ ｄｏ
        ｅｎｄ ｉｆ
    ｒｓ．ＭｏｖｅＮｅｘｔ
ｌｏｏｐ

ｃｏｎｎ．Ｃｌｏｓｅ
％＞