[VBA] Requete LDAP + Authentification

Question

J'aimerai savoir comment faire des requetes LDAP (sur un serveur Novell)
afin de savoir si un user existe ou pas.

Je sais à quoi ressemble à peu près la requete, mais en fait là le serveur
demande une authentification, et ça je sais pas faire.

Peut-on, pour ceux qui connaissent, indiquer le login et le mot de passe
directement dans la requete ?

Parceque j'ai vu qu'on pouvait les preciser dans un objet ADODB mais bon voilà
je connais pas la connection string pour un serveur Novell.

cs_Nicko11 · Answer

Salut,
je ne connais absolument pas le sujet mais je viens de trouver cette page:

http://www.microsoft.com/france/technet/prodtechnol/exchange/2003/insider/ldapquery.mspx

avec ceci:

Supposons que vous souhaitiez trouver et enregistrer la liste des utilisateurs dont la valeur mailNickName commence par Jeff. Vous pouvez alors exécuter la commande suivante.
C:\>ldifde -d "DC=witaylorroot,DC=com" -f c:\output.txt -r "(&(objectClass=user)(mailNickName=jeff*))

En esperant que ca t'aidera

trainkill · Answer

Je te remercie mais bon là c'est plus la syntaxe d'une requête LDAP, plutôt que la façon de l'integrer à du code VBA et s'authentifier (Novell de préference) à un serveur avant de requeter dessus.

cs_got · Answer

J'ai la même problématique (identification en environnement novell) as tu trouvé ton bonheur?

cs_baloc · Answer

au moment de vous connectez à la base, il faut mettre le login, mot de passe, dns si il y a.

et une victoire de plus pour Mr canard

cs_got · Answer

Je ne comprend pas ta réponse..?
en environnement classique j'ai :

Public Function Verifi_Identit(login As String, Full_Name As String, Password As String) As Boolean
Const ADS_SECURE_AUTHENTICATION = &H1
On Error GoTo Error_Sec
Verifi_Identit = True
If Ident_Domain Then
    Set LDAPIdent = GetObject("LDAP:")
    'MsgBox "[ldap://CN LDAP://CN]=" & Full_Name & ",OU=USERS" & String_LDAP
     'SaveLog "[ldap://CN LDAP://CN]=" & Full_Name & ",OU=USERS" & String_LDAP, App.Path & "\log.txt"
    Set ADSObject = LDAPIdent.OpenDSObject("[ldap://CN LDAP://CN]=" & Full_Name & ",OU=USERS" & String_LDAP, login, Password, ADS_SECURE_AUTHENTICATION)
'Set ADSObject = LDAPIdent.OpenDSObject("[ldap://CN LDAP://CN]=" & Full_Name & String_LDAP, login, Password, ADS_SECURE_AUTHENTICATION)
   
       Exit Function
    
ElseIf Ident_Local Then
    
    Set oNet = CreateObject("WScript.Network")
    strGroup = "WinNT://" & oNet.ComputerName & "/" & login & ",user"
    Set oProvider = GetObject("WinNT:")
    Set oGroup = oProvider.OpenDSObject(strGroup, _
        oNet.ComputerName & "" & login, _
        Password, ADS_SECURE_AUTHENTICATION)
    
End If
Exit Function
Error_Sec:


Verifi_Identit = False
End Function

ce qui ne fonctionne pas en environnement novell... 

qu'entend tu pas connection à la base?
quand je aprle d'environnement novell c'est un lcient novell pour windows...

[VBA] Requete LDAP + Authentification

5 réponses

Votre réponse

Discussions similaires