pb pour lancer une fonction relative à AD
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:
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:
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.
