Opslag i AD

lav en for-løkke, hvor du ændrer navn


navne = array("'Børge'", "'Jens'","'Hugo'")
for i=0 to 2
navn = navne(i)
s = "SELECT mail From 'LDAP://dc=navn1,dc=navn1,dc=navn1' WHERE name=" & navn
Set rs = conn.execute(s)
next

PS: man kan klare sig uden en del af mellem-variablene, de er taget med for overskueligheds skyld.
og så skal variblerne helst erklæres først:
dim navne as variant
dim navn as string
dim i as integer
dim s as string

Eksempelvist har jeg en ListBox, hvori jeg har mine brugere. Hvis jeg skulle kunne bruge denne liste, hvordan skal jeg så skrive. For en sikkerhedsskyld skriver jeg lige hele koden:

Set conn = CreateObject("ADODB.Connection")
    conn.Open "Provider=ADsDSOObject;"
    Set rs = conn.execute("SELECT mail From 'LDAP://dc=navn,dc=navn,dc=navn' WHERE name='brugernavn'")
   
    While Not rs.EOF
        MsgBox rs("mail")
        rs.MoveNext
    Wend
    conn.Close

Denne kode virker perfekt. Jeg har forsøgt med din kode men får fejl.

Jeg får fejl i linien og S er dimmet as String:

Set rs = conn.execute(S)

Undskyld jeg havde lavet en BØF.... dit eksempel virker faktisk....

Det lyder godt

Jeg takker for hjælpen.