[.NET2][LDAP] pb de requete LDAP

**helachan** · 27/03/2007, 13h17

Bonjour,
J'ai 2 annuaires AD et un autre LDAP. j'arrive à me connecter à AD. il n' y a pas de pb.
Le pb vient de l'autre LDAP(SUN).J'ai besoin de m'y connecter pour trouver des infos J'ai une erreur dans directory service
je fait le code suivante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
 
'initialisation de la connexion avec l'annuaire et de l'objet de recherche
 
Try
    ldapEntry = New DirectoryEntry("LDAP://adresseIP/ dc=fr" _
                   ,login,password)
    ldapEntry.AuthenticationType = AuthenticationTypes.Anonymous
 
    objSearcher = New DirectorySearcher(ldapEntry, strRecherche)
    objSearcher.PropertiesToLoad.Add("Matricule")
    objSearcher.PropertiesToLoad.Add("Lastname")
    objSearcher.PropertiesToLoad.Add("Jobcode")
 
    'récupération des résultats
     objResults = objSearcher.FindAll
 
     If objResults.Count = 1 Then
          Return True
     End If
            Return False
Catch ex As Exception
            MsgBox(ex.Message & " " & ex.Source)
Finally
        If Not (ldapEntry Is Nothing) Then ldapEntry.Close()
 
End Try

J'obtien l'erreur suivante : Parametre Invalide Directory services

est ce que ca marche qu' avec AD?
je n'ai pas de mot de passe ni de log pour me connecter j'essaie de me connecter en annonyme. Est ce que mon code est correcte?
mon path et mon filtre fonctionnent car je les ai tester dans un ldap browser

Merci pour toute reponses

**helachan** · 27/03/2007, 14h36

J'ai mis un login et un mot de passe quelconque il me fait comme erreur
Depassement de la limite administrative pour cette requete

Alors que sur mon ldap BROWSER (prog JAVA) je me loggue en anonymous et je peux effectuer cette requete

QQn à des billes dessus

**helachan** · 27/03/2007, 16h32

j'ai fait un petit test
J'obtient bien ce que je recherche
exemple avec ldapbrowser en anonyme j'ai 2 resultats
objetsearcher me retrouve plus de 2 resultats c'est ca qui me plante
donc comment definir qu'il doit seulement trouver les id de ceux qu'il a droit en connection anonyme
parce que avec un findone ca fonctionne et un findall ca m'affiche depassement de limite administrative

une idée?

**helachan** · 27/03/2007, 18h28

J'ai un peu bidouiller pour que ca fonctionne en fesant ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
 
 
 Dim strSearchNom As String = LCase(TextBox1.Text)
 Dim conn As ADODB.Connection
 Dim rs1 As ADODB.Recordset
 Dim strUsername, strPassword
 strUsername = ""
strPassword = ""
 
 conn = New ADODB.Connection
conn.Provider = "ADSDSOObject"
 
conn.Open("ADs Provider", strUsername, strPassword)
 
rs1 = conn.Execute("<LDAP://adresseIP/ou=0 ou=XXX, dc=fr>; _
       (lastname= " & strSearchNom & "*); _
       lastname,erUid,jobcode,servicecode;subtree")
 
 rs1.MoveFirst()
 
Dim bool As Boolean = rs1.EOF
 
 
While Not bool
    ListBox1.Items.Add(rs1.Fields(0).Value.ToString & "/ " _ 
   & rs1.Fields(1).Value.ToString _
   & " /" & rs1.Fields(2).Value.ToString _
   & " /" & rs1.Fields(3).Value.ToString) _
 
   Try
       rs1.MoveNext()
       bool = rs1.EOF
   Catch ex As Exception
       bool = True
   End Try
 
 End While
 
conn.Close()

la question que je me pose c'est qu'est ce qui fait planter mon appli
si je retire le try ca me plante au niveau du rs1.MoveNext() avec erreur depassement de limite administrative
ma requete m'envoie donc le resultat avec qqch en plus qui fait planter l'appli

si qqn a des bille dessus pour que je ne meure pas idiote

merci

**Thomas Lebrun** · 27/03/2007, 19h35

Envoyé par helachan

si qqn a des bille dessus pour que je ne meure pas idiote

Si c'est une demoiselle qui demande, je vais répondre

Non, sérieusement: Essaye de modifier la valeur de la propriété SizeLimit en la mettant à moins de 1000:

http://www.thescripts.com/forum/thread348610.html

**helachan** · 28/03/2007, 13h13

Merci pour ta réponse

j'ai essayé de limiter la recherche en fesant objSearcher.sizelimit = 100
ca ne fonctionne toujours pas, toujours la limite administrative
qd je modifie la sizelimit à 1 et que je fait une requete qui me retourne un seul resultat ca me plante? toujours la limite administrative
donc c'est pas une histoire de nombre d'objets retournés

d'autres idée?

**Thomas Lebrun** · 28/03/2007, 13h43

Essaye en modifiant la propriété PageSize alors

**helachan** · 28/03/2007, 14h13

je l'ai fait et il me fait l'erreur suivant :
La valeur de la propriété page size ne peut pas etre definie

**Thomas Lebrun** · 28/03/2007, 14h54

Bon bah là, j'ai plus d'idées, désolé

**helachan** · 07/12/2007, 10h45

Bonjour,

Ils ont migré leur annuaire vers la version superieur qui à ete entre temps acheter par IBM. Plus rien ne marche.

avec ADODB j'obtiens l'erreur suivante lors de l'execution du code suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
rs1 = conn.Execute("<LDAP://adresseIP/ou=0 ou=XXX, dc=fr>; _
       (lastname= " & strSearchNom & "*); _
       lastname,erUid,jobcode,servicecode;subtree")

le message d'erreur est le suivant : interopexception erreur non répertorié

J'ai ensuite utilisé API directoryServices.(code: voir message du 27/03/2007 13h17 qui fonctionne avec l'ancien annuaire qd j'ai un compte qui permet la lecture )
je trouve bien ceux que je recherche mais quand j'essaye de lire la valeur d'une propriété j'obtiens l'erreur suivante. Unknown error (0x8000500c)

qqn peut il m'aider à resoudre ce probleme très urgent

merci

Cordialement

**helachan** · 07/12/2007, 11h17

Re bonjour,
J'ai trouvé la solution à mon probleme sur ce poste
http://www.eggheadcafe.com/forumarch...st25248709.asp
En gros le probleme venait de l'ADSI qui n'arrive pas à lire le shema IBM
Il conseille d'utiliser l'API System.DirectoryServices.Protocols

Je vais essayer de programmer avec cette API mais j'ai pas trouvé grand chose dessus.
Si qqn a des exemples dessus je suis preneuse

merci

**helachan** · 07/12/2007, 14h58

j'ai trouvé mon bonheur ici
http://msdn2.microsoft.com/en-us/library/bb332056.aspx

je vais vous mettre mon code pour vous en faire profiter:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
'ldapServerName = adresse IP du serveur LDAP
'userName du type uid=toto,cn=users,dc=world, dc=localnet
_targetOu l'OU où se trouve les elements recherchés

Public Function Connect(ByVal ldapServerName As String, ByVal userName As String, ByVal password As String) As LdapConnection
  'to use LDAP calls, you must first connect to the directory.
   Try
       'creation d'une connection LDAP
       Dim id As New LdapDirectoryIdentifier(ldapServerName, False, False)
       Dim nc As New NetworkCredential(userName, password)
       connection = New LdapConnection(id)
       With connection
              .Credential = nc
              .AuthType = AuthType.Basic
              .Timeout = New TimeSpan(0, 5, 60)
              .SessionOptions.ProtocolVersion = 3
        End With
        Return connection
        Catch e As Exception
            Console.WriteLine("\r\nErreur:\r\n\t" + e.GetType().Name + ":" + e.Message)
            Return Nothing
        End Try

    End Function

Public Function getUsersLDAP(ByVal strNameSearch As String) As ArrayList
   Dim arrProperties(1) As String
   Dim strRecherche As String = ""
   Dim r As New ArrayList
   'initialisation des propriétés à récupérer dans le LDAP
   arrProperties(0) = "sn"
   arrProperties(1) = "givenName"

    'initialisation du filtre de recherche
    strRecherche = "(sn=" + strNameSearch + "*)"
'initialisation de la connexion avec l'annuaire et de l'objet de recherche
    connection = Me.Connect(_ldapServerName, _login, _motPasse)

    Dim resultat As New ArrayList
    Dim sb As New StringBuilder(50)
    Try
       '// creation d'un filtre
       Dim SearchRequest As SearchRequest = New SearchRequest()
       With SearchRequest
             .Scope = Protocols.SearchScope.Subtree
             .DistinguishedName = _targetOu
             .Filter = strRecherche
        End With
        Dim searchResponse As SearchResponse = CType(connection.SendRequest(SearchRequest), SearchResponse)
        Console.WriteLine("\r\nNombre de réponse:{0}", searchResponse.Entries.Count)

         '// creation de la liste de réponse de la recherche
         For Each entry As SearchResultEntry In searchResponse.Entries
                Console.WriteLine("{0}:{1}", searchResponse.Entries.IndexOf(entry), entry.DistinguishedName)
            sb.Remove(0, sb.Length)
            For Each attr As String In arrProperties
                If Not (entry.Attributes(attr) Is Nothing) Then
                   sb.Append(entry.Attributes(attr).Item(0))
                   sb.Append(" ")
                End If
            Next
            resultat.Add(sb.ToString)
        Next
        Return resultat
        Catch ex As Exception
            '    Console.WriteLine("\nerreur:\n\t{0}: {1}", ex.GetType().Name, ex.Message)
            Return Nothing
        End Try
    End Function

[.NET2][LDAP] pb de requete LDAP

Framework .NET

Discussions similaires

Partager

Partager