Click here to Skip to main content
15,897,185 members
Home / Discussions / C#
   

C#

 
GeneralRe: How to get Internet Eplorer Selected Text? Pin
Heath Stewart22-Nov-03 11:13
protectorHeath Stewart22-Nov-03 11:13 
General.NET : DEBUG and RELEASE problem Pin
youssef19-Nov-03 9:30
youssef19-Nov-03 9:30 
GeneralRe: .NET : DEBUG and RELEASE problem Pin
Heath Stewart19-Nov-03 18:29
protectorHeath Stewart19-Nov-03 18:29 
GeneralCOM Interop problem Pin
Jose Vicente19-Nov-03 5:05
Jose Vicente19-Nov-03 5:05 
GeneralRe: COM Interop problem Pin
Heath Stewart19-Nov-03 8:45
protectorHeath Stewart19-Nov-03 8:45 
GeneralUsing a HWND from another application. Pin
mhand7519-Nov-03 5:04
mhand7519-Nov-03 5:04 
GeneralRe: Using a HWND from another application. Pin
John Arlen19-Nov-03 8:35
John Arlen19-Nov-03 8:35 
Generalfastest active directory access Pin
thilol19-Nov-03 4:02
thilol19-Nov-03 4:02 
i want to retrieve the group-membership of all ad-users.
the performance with the directorysearcher-class seems to be very poor.

what do you think is the the fastest way?

thanks for your hints!

reagrds, thilo.


CODE:
Dim adEntry As New DirectoryEntry("LDAP://lan", "xxx", "yyy", AuthenticationTypes.Secure)
Dim adSearcher As New DirectorySearcher(adEntry)
Dim adSearchResult As SearchResult
Dim AllResults As SearchResultCollection

adSearcher.Filter = "(objectCategory=user)"
adSearcher.SearchScope = SearchScope.Subtree
adSearcher.SizeLimit = 65535
adSearcher.PageSize = 65535
adSearcher.PropertiesToLoad.Add("cn")
adSearcher.PropertiesToLoad.Add("sAMAccountName")
adSearcher.PropertiesToLoad.Add("memberOf")

Dim intCount As Int32 = 0
Dim strSoft As String
Dim strUser As String
Dim ArrSoftware As New ArrayList

' alle gefundenen ad-user...
AllResults = adSearcher.FindAll()

For Each adSearchResult In AllResults

' wenn die user-id ok ist...
If Not IsNothing(adSearchResult.Properties("sAMAccountName")) Then

strUser = Convert.ToString(adSearchResult.Properties("sAMAccountName")(0)).Trim.ToLower
Debug.WriteLine(strUser)


Try
' wenn der user mitglied von gruppen ist...
If adSearchResult.Properties("memberOf").Count Then

ArrSoftware.Clear()

' jede gruppe in der der user mitglied ist...
For Each strSoft In adSearchResult.Properties("memberOf")

ArrSoftware.Add(strSoft)

End If

Next

' datensätze in datenbank
If ArrSoftware.Count > 0 Then ApplInsert(strUser, ArrSoftware)

End If
Catch
' nix zu tun
End Try

End If

Next

GeneralRe: fastest active directory access Pin
Heath Stewart19-Nov-03 4:20
protectorHeath Stewart19-Nov-03 4:20 
GeneralRe: fastest active directory access Pin
thilol19-Nov-03 4:30
thilol19-Nov-03 4:30 
GeneralCOM Object on C# Pin
bva_bva19-Nov-03 3:28
bva_bva19-Nov-03 3:28 
GeneralRe: COM Object on C# Pin
Heath Stewart19-Nov-03 4:09
protectorHeath Stewart19-Nov-03 4:09 
GeneralRe: COM Object on C# Pin
bva_bva19-Nov-03 5:04
bva_bva19-Nov-03 5:04 
GeneralOpen a Web Browser Pin
.gonad19-Nov-03 3:05
.gonad19-Nov-03 3:05 
GeneralRe: Open a Web Browser Pin
OmegaSupreme19-Nov-03 3:56
OmegaSupreme19-Nov-03 3:56 
GeneralRe: Open a Web Browser Pin
.gonad19-Nov-03 4:58
.gonad19-Nov-03 4:58 
GeneralRe: Open a Web Browser Pin
OmegaSupreme19-Nov-03 5:07
OmegaSupreme19-Nov-03 5:07 
GeneralRe: Open a NEW Web Browser Pin
Utku KAYA19-Nov-03 10:36
Utku KAYA19-Nov-03 10:36 
GeneralRe: Open a NEW Web Browser Pin
Shehzad Salim19-Nov-03 22:28
Shehzad Salim19-Nov-03 22:28 
GeneralRe: Open a NEW Web Browser Pin
Husein21-Nov-03 22:44
Husein21-Nov-03 22:44 
QuestionSound recording? Pin
thomasa19-Nov-03 3:05
thomasa19-Nov-03 3:05 
AnswerRe: Sound recording? Pin
Heath Stewart19-Nov-03 4:12
protectorHeath Stewart19-Nov-03 4:12 
GeneralXslTransform and document() Pin
Daniele Fusi19-Nov-03 0:00
Daniele Fusi19-Nov-03 0:00 
GeneralRe: XslTransform and document() Pin
Philip Fitzsimons19-Nov-03 2:53
Philip Fitzsimons19-Nov-03 2:53 
GeneralDrag & drop files to explorer Pin
Serge R18-Nov-03 16:18
Serge R18-Nov-03 16:18 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.