Hello,
Un début de piste :
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
| Dim LDAP As New DirectoryEntry("LDAP://tonLDAP")
Dim searcher As DirectorySearcher = New DirectorySearcher(LDAP)
searcher.PropertiesToLoad.Add("cn")
searcher.PropertiesToLoad.Add("givenname")
searcher.PropertiesToLoad.Add("sn")
searcher.PropertiesToLoad.Add("telephoneNumber")
searcher.PropertiesToLoad.Add("mail")
searcher.PropertiesToLoad.Add("physicalDeliveryOfficeName")
searcher.PropertiesToLoad.Add("SAMAccountName")
searcher.PropertiesToLoad.Add("Description")
searcher.PropertiesToLoad.Add("department")
searcher.PropertiesToLoad.Add("Company")
searcher.PropertiesToLoad.Add("displayName")
searcher.PropertiesToLoad.Add("l")
searcher.PropertiesToLoad.Add("name")
searcher.PropertiesToLoad.Add("userPrincipalName")
searcher.PropertiesToLoad.Add("mobile")
searcher.PropertiesToLoad.Add("extensionAttribute2")
searcher.PropertiesToLoad.Add("co")
searcher.PropertiesToLoad.Add("userAccountControl")
searcher.Filter = "(&(objectCategory=user)"
If DDLUser.SelectedValue = "" Then
mpeDualLoginAtempt.Show()
Exit Sub
End If
searcher.Filter = searcher.Filter & "(displayName=" & DDLUser.SelectedValue & ")"
'search only active account
searcher.Filter = searcher.Filter & "(!userAccountControl:1.2.840.113556.1.4.803:=2)" & ")"
Dim results As System.DirectoryServices.SearchResultCollection
Try
results = searcher.FindAll()
Catch ex As Exception
Exit Sub
End Try |
La ligne
searcher.Filter = searcher.Filter & "(!userAccountControl:1.2.840.113556.1.4.803:=2)" & ")"
permet de ne retourner que les comptes actifs.
Cordialement.
DeWaRs
Partager