Discussion :

[poussin_44]

Bonjour à tous, voilà j'ai ma fonction qui est ci-dessous. Elle ne me génère pas d'erreur, par contre impossible à la lancer.

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
Public Function getUsersOU(ByVal monCheminLdapRecherche As String, _
                               ByVal monUsername As String, _
                               ByVal monpassword As String) As ArrayList
 
        ' ArrayList qui va contenir le résultat retourné par la recherche
        Dim maListeUsers As New ArrayList
 
        Try
 
            ' Instanciation d'un objet DirectorySearcher
 
            ' Définition de l'emplacement de recherche
            Dim monEmplacementRecherche As New DirectoryEntry("LDAP://" & _
       monCheminLdapRecherche, monUsername, monpassword, AuthenticationTypes.Secure)
 
 
            Dim maRecherche As New DirectorySearcher(monEmplacementRecherche)
 
            ' dureeMax initisalisée à 25 secondes
            Dim dureeMax As New TimeSpan(0, 0, 25)
 
            ' Emplacement où la recherche doit être effectuée 
            ' dans la hiérarchie Active Directory
            maRecherche.SearchRoot = monEmplacementRecherche
 
            ' Définition du Scope de la recherche, ici le conteneur 
            ' seulement et tous ses "sous conteneur"
            maRecherche.SearchScope = SearchScope.Subtree
 
            ' Filtre uniquement les objets de type "user"
            maRecherche.Filter = "(objectClass=user)"
 
            ' Détermination de la propriété à récupérer lors de la recherche
            maRecherche.PropertiesToLoad.Add("sAMAccountName")
 
            ' Durée maximum de la recherche
            maRecherche.ServerTimeLimit = dureeMax
 
            ' Fixe le nombre maximum d'objets retournés
            maRecherche.SizeLimit = 1500
 
            Dim unUtilisateur As DirectoryServices.SearchResult
 
            ' Récupération du 'sAMAccountName' des utilisateurs récupérés
            For Each unUtilisateur In maRecherche.FindAll()
                maListeUsers.Add(unUtilisateur.GetDirectoryEntry.Properties.Item("sAMAccountName").Value.ToString)
            Next
 
            monEmplacementRecherche.Close()
 
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
 
        Return maListeUsers
 
    End Function

Cette fonction doit me retourner la liste des utilisateurs présents dans Active Directory.

et voici ma déclaration :

Code :

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

Dim listeUserOU = getUsersOU(OU = Utilisateurs, DC = monEntreprise, DC = fr, login, password)

ou celle là

Dim listeUserOU As String = getUsersOU(OU=Utilisateurs,DC=monEntreprise,DC=fr As String,login As String, password As String)

mais il ne veut rien savoir.

[LefortLudovic]

Qu'est ce que tu veux dire par "Impossible à lancer" ?

[poussin_44]

Je n'arrive pas à utiliser ma fonction dans mon form.

Exst ce que je dois plutot utiliser

Code :

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

Dim monEmplacementRecherche As New DirectoryEntry(....)

En tout cas, si j'utilise ma fonction avec les As String, il me génère des erreurs et si je ne les mets pas, il me dis que mes éléments ne sont pas déclarés

[LefortLudovic]

Je dirais plutot : Dim listeUserOU As ArrayList = getUsersOU(OU=Utilisateurs,DC=monEntreprise,DC=fr As String,login As String, password As String)

Ta fonction renvoi un arrayList non ?

[poussin_44]

alors oui ma fonction renvoi un arrayList par contre, il y a toujours les erreurs générées qui se situe sur les As mais si je ne les mets pas alors il me dit que tous mes objets ne sont pas déclarés

[LefortLudovic]

Je viens seulement de réaliser

Tu appelle une méthode tu ne dois pas donner de type ...
les As string, As integer c'est uniquement pour la déclaration d'une fonction pas pour son appel

ta méthode attend 4 arguments de type string. rien de plus
Contente toi de lui passer les valeurs correctes.

[poussin_44]

Oui je suis d'accord mais du coup, il me considère tout les éléments entre ( ) comme non déclaré

[LefortLudovic]

Oui c'est parceque la méthode attend un string.

DC=fr n'est pas un string
"DC=fr" est un string