Listing 3: Code That Sets Up the ADs Provider to Query the DN for the Specified Username

Dim ADConn
Set ADConn = CreateObject("ADODB.Connection")
ADConn.Provider = "ADSDSOObject"
ADConn.Open "ADs Provider"

Dim query
query = "<LDAP://" & basedn & ">;(&(objectclass=user)(sAMAccountName=" _
 & username & "));distinguishedName;subtree"

Dim ADrs
Set ADrs = ADConn.Execute(cstr(query))