Opslag i eDir via ADODB

Hejsa,

ved ikke om dette spm hører til her, eller i en LDAP kategori men prøver nu her først.

Min udfordring ligger i at finde et Distinguished Name for en given CN i mit directory. Jeg kan find finde mit object ud fra en LDAP søgning og hente forskellige attributter ud. Men bare ikke DN'en. Nogen der ved hvad jeg gør galt her?

Set cnvtLDAP        = Server.CreateObject("ADs.ArrayConvert")
Set cnnLDAP         = CreateObject("ADODB.Connection")
set rstLDAP         = Server.CreateObject("ADODB.RecordSet")

cnnLDAP.Provider     = "ADSDSOObject"
cnnLDAP.Properties("User ID")         = "cn=asterisk,OU=inuit,o=ekstern"
cnnLDAP.Properties("Password")         = ********
cnnLDAP.Open

sql = "<LDAP://naalagaq.gh.gl:636/T=NO>;(cn=doly);dn,fullname,mail,cn;subtree"

rstLDAP.open sql,cnnLDAP,0,1,&H0001
'0=adOpenForwardOnly,1=adLockReadOnly,&H0001=adCmdText


do while not rstLDAP.eof
    For intLoop = 0 To rstLDAP.Fields.Count - 1
        response.write(rstLDAP(intLoop).name & "=")
                if rstLDAP(intLoop).type=12 and not isnull(rstLDAP(intLoop).value) then
                  '---------------------------------------------------------------------
                  ' Here's the tricky part, getting ADO to recognize the Variant type
                  ' see http://support.microsoft.com/support/kb/articles/Q250/3/44.ASP
                  '---------------------------------------------------------------------
                  i=cnvtLDAP.CStrArray(rstLDAP(intLoop).value)
                  for each j in i
                    response.write(j & "<br>")
                  next
                else
                  response.write(rstLDAP(intLoop).value & _
                  " <i>(not variant)</i><br>")
                end if

    next

    rstLDAP.MoveNext

Loop

rstLDAP.Close
cnnLDAP.Close