Vedr. hvordan får man OU-sti ud ved hjælp af en brugers cn-navn?

Det ville nok være en god ide, at kigge på dine oprettede spørgsmål..

Lige nu har du 45 åbne spørgsmål, hvor folk venter på at du skriver tilbage dem.

Hvis du ikke svar folk, vil de i sidste ende ikke længere hjælpe dig.

Du kan finde dine oprettede spørgsmål her:

http://www.eksperten.dk/list.phtml?sort=&order=DESC&status_1=on&status_2=on&status_3=on&spm_creator=spottie&spm_part=&spm_answer=&find=&engine=exp

Dit konto-område: http://www.eksperten.dk/bruger.phtml?navn=spottie

Hej Spottie !

Er det ikke noget i denne stil, du leder efter ?
(Husk, at rette strdomain og strinitialer :o)  )


strdomain = "dc=int,dc=dragsted,dc=com"
strinitialer = "mbh"


Const ADS_SCOPE_SUBTREE = 2

    Set objConnection = CreateObject("ADODB.Connection")
    Set objCommand =  CreateObject("ADODB.Command")
    objConnection.Provider = "ADsDSOObject"
    objConnection.Open "Active Directory Provider"
    Set objCommand.ActiveConnection = objConnection

    objCommand.Properties("Page Size") = 1000
    objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE

    objCommand.CommandText = _
        "SELECT distinguishedName FROM 'LDAP://" & strdomain & "' WHERE objectCategory='user' " & _
        "AND sAMAccountName='" & strinitialer & "'"
    Set objRecordSet = objCommand.Execute

    objRecordSet.MoveFirst
    Do Until objRecordSet.EOF
    msgbox objRecordSet.Fields("distinguishedName").Value
    objRecordSet.Movenext
    Loop

/Killer

Hov ... sry .. Det var jo Displayname :o)


strdomain = "dc=int,dc=dragsted,dc=com"
strdisplaynavn = "Morten Bang Olin"


Const ADS_SCOPE_SUBTREE = 2

    Set objConnection = CreateObject("ADODB.Connection")
    Set objCommand =  CreateObject("ADODB.Command")
    objConnection.Provider = "ADsDSOObject"
    objConnection.Open "Active Directory Provider"
    Set objCommand.ActiveConnection = objConnection

    objCommand.Properties("Page Size") = 1000
    objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE

    objCommand.CommandText = _
        "SELECT distinguishedName FROM 'LDAP://" & strdomain & "' WHERE objectCategory='user' " & _
        "AND displayname='" & strdisplaynavn & "'"
    Set objRecordSet = objCommand.Execute

    objRecordSet.MoveFirst
    Do Until objRecordSet.EOF
    msgbox objRecordSet.Fields("distinguishedName").Value
    objRecordSet.Movenext
    Loop
/Killer

hvad gør Page Size og SearchScope der står i dit indlæg under properties?