Tout est dans le titre ;-)
Source / Exemple :
Dim LocalisationAD As New DirectoryServices.DirectoryEntry("LDAP://") 'Adresse de votre AD
Dim RechercheGroupe As New System.DirectoryServices.DirectorySearcher(LocalisationAD)
Dim propertyCount As Integer
Dim GroupString As String
RechercheGroupe.Filter = ("(anr= DUPONT)") 'DUPONT est un exemple, mettez le nom que vous voulez
RechercheGroupe.PropertiesToLoad.Add("memberOf")
Try
Dim myresult As SearchResult = RechercheGroupe.FindOne()
propertyCount = myresult.Properties("memberOf").Count
Dim dn As String
Dim equalsIndex, commaIndex As String
For i As Integer = 0 To propertyCount - 1
dn = myresult.Properties("memberOf")(i)
equalsIndex = dn.IndexOf("=", 1)
commaIndex = dn.IndexOf(",", 1)
GroupString += dn.Substring((equalsIndex + 1), (commaIndex - equalsIndex) - 1) & "|"
Next
Catch ex As Exception
If ex.GetType Is GetType(System.NullReferenceException) Then
Response.Write("Pas de groupes associés !")
Else
Response.Write(ex.Message.ToString & ex.ToString)
End If
End Try
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.