Hallo zusammen,
ich habe von einem Personensatz im ActiveDirectory eine GUID. Nun möchte ich mit DirectorySearcher den passenden Personensatz dazu finden. Aber leider bin ich damit nicht erfolgreich. Ich kann keine Infos finden wie der Filter formatiert sein muss damit die Abfrage funktioniert :-( Ich habe mal folgendes Testprogramm gemacht. Die erste Abfrage funktioniert ohne Probleme und bringt mir einen Datensatz zurück, aber die zweite Abfrage liefert nie Ergebnisse.... Ich habe schon sehr viele Formatierungen benutzt aber bisher nicht die richtige gefunden.... Würde mich sehr freuen wenn mir jemand weiterhelfen kann. Vielen Dank im voraus!!
Public Function SearchGUID(ByVal adGuid As Guid) As DirectoryEntry
Dim mySearcher As New
System.DirectoryServices.DirectorySearcher(Me.Acti veDirectory)
Dim mySearcher2 As New
System.DirectoryServices.DirectorySearcher(Me.Acti veDirectory)
Dim result As System.DirectoryServices.SearchResult
Dim testguid As Guid
Dim Filter2 As String
mySearcher.Filter =
"(|(&(objectCategory=user)(name=schwie*)))"
Select Case mySearcher.FindAll.Count()
Case 0
Case Else
For Each result In mySearcher.FindAll()
SearchGUID = result.GetDirectoryEntry()
testguid = SearchGUID.Guid
mySearcher2.Filter = "(objectSID = " &
testguid.ToString("N") & ")"
If mySearcher2.FindAll.Count > 0 Then
Stop
End If
Next
End Select
End Function
ich habe von einem Personensatz im ActiveDirectory eine GUID. Nun möchte ich mit DirectorySearcher den passenden Personensatz dazu finden. Aber leider bin ich damit nicht erfolgreich. Ich kann keine Infos finden wie der Filter formatiert sein muss damit die Abfrage funktioniert :-( Ich habe mal folgendes Testprogramm gemacht. Die erste Abfrage funktioniert ohne Probleme und bringt mir einen Datensatz zurück, aber die zweite Abfrage liefert nie Ergebnisse.... Ich habe schon sehr viele Formatierungen benutzt aber bisher nicht die richtige gefunden.... Würde mich sehr freuen wenn mir jemand weiterhelfen kann. Vielen Dank im voraus!!
Public Function SearchGUID(ByVal adGuid As Guid) As DirectoryEntry
Dim mySearcher As New
System.DirectoryServices.DirectorySearcher(Me.Acti veDirectory)
Dim mySearcher2 As New
System.DirectoryServices.DirectorySearcher(Me.Acti veDirectory)
Dim result As System.DirectoryServices.SearchResult
Dim testguid As Guid
Dim Filter2 As String
mySearcher.Filter =
"(|(&(objectCategory=user)(name=schwie*)))"
Select Case mySearcher.FindAll.Count()
Case 0
Case Else
For Each result In mySearcher.FindAll()
SearchGUID = result.GetDirectoryEntry()
testguid = SearchGUID.Guid
mySearcher2.Filter = "(objectSID = " &
testguid.ToString("N") & ")"
If mySearcher2.FindAll.Count > 0 Then
Stop
End If
Next
End Select
End Function