Opslag i AD

Her er et eksempel på hvordan du ved hjælp af ADO henter bruger med bestemte initialer.

Private Sub Command1_Click()
    Set conn = CreateObject("ADODB.Connection")
    conn.Open "Provider=ADsDSOObject;"

    Set rs = conn.execute("SELECT name FROM 'LDAP://dc=intranet,dc=kde' WHERE sAMAccountName='ck'")

    While Not rs.EOF
        MsgBox rs("Name")
    rs.MoveNext
    Wend
   
    conn.Close
End Sub


VH CK

Takker for dit for forslag, men kan desværre først afprøve dette på mandag... men jeg skal nok vende tilbage a.s.a.p.

Hejsan... jeg kan ikke rigtig få det til at virke...

Jeg har selvfølgelig udskiftet "intranet" med navnet på min DC´er men hvad står "dc=kde" for ??

/webcon

Når der står dc=intranet,dc=kde så betyder det faktisk - intranet.kde

VH CK