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.