Cacher is the code snippet organizer for pro developers

server   = "xxx.xxx.xxx"
baseDN   = "dc=xxx,dc=xxx"
userDN   = "cn=xxx,dc=xxx,dc=xxx"
password = "xxx"

Connection = createoleobj("ADODB.Connection")

Connection.Provider = "ADSDSOObject"
Connection.Open("Ads Provider", userDN, password)
root = "LDAP://" + server + "/" + baseDN

cmd = "<" + root + ">;(uid=*);uid;subtree"
rs = Connection.Execute(cmd)
repeat
    print vartype(rs.Fields("uid").Value) // VAR_VARIANT or VAR_ARRAY
    // print rs.Fields("uid").Value[0] // NG
    uid = rs.Fields("uid").Value // 一度変数で受けないとダメ
    print uid[0]
    rs.MoveNext()
until rs.EOF