Fonction de recherche d’un utilisateur dans AD

(ici pour accéder à l’attribut « DisplayName »)

 

 

Function GiveFullName(user)

Dim oRootDSE 'As IADs

Dim strDomainNC 'As String

Dim oUser

 

Set oRootDSE = GetObject("LDAP://RootDSE")

strDomainNC = oRootDSE.Get("defaultNamingContext")

'msgbox(StrDomainNC)

 

Set oConnection = CreateObject("ADODB.Connection")

oConnection.Provider = "ADsDSOObject"

oConnection.Open "ADs Provider"

 

Set oRecordset = oConnection.Execute("<LDAP://"+StrDomainNC+">;(&(objectCategory=user)(name="+user+"));name,displayname;subtree")

If Not oRecordset.EOF Then

    While Not oRecordset.EOF

         Affiche=oRecordset.Fields("name")

                 if isnull(oRecordset.Fields("displayname")) Then

           GiveFullName=""

         else

           GiveFullName=oRecordset.Fields("displayname")

           exit function

         end if

         oRecordset.movenext

    Wend

End If

 

end function