SearchResult Class
Assembly: System.DirectoryServices (in system.directoryservices.dll)
Instances of the SearchResult class are very similar to instances of DirectoryEntry class. The crucial difference is that the DirectoryEntry class retrieves its information from the Active Directory hierarchy each time a new object is accessed, whereas the data for SearchResult is already available in the SearchResultCollection, where it gets returned from a query that is performed with the DirectorySearcher class. Only those properties that are specified through the DirectorySearcher.PropertiesToLoad collection in your query will be available from SearchResult.
The following example creates a new DirectoryEntry object with the desired path and uses the FindOne method to initiate the search. After performing the search, the example uses the GetDirectoryEntry method to retrieve the live directory entry identified in the search results.
Imports System Imports System.DirectoryServices Imports Microsoft.VisualBasic Public Class MySample Public Shared Sub Main() Dim myLDAPPath As String = "" Try ' Create a 'DirectoryEntry' object to search. Console.WriteLine("Enter the path ( Ex : 'LDAP://MyServer')") myLDAPPath = Console.ReadLine() Dim mySearchRoot As New DirectoryEntry(myLDAPPath) Dim myDirectorySearcher As New DirectorySearcher(mySearchRoot) ' Get the first entry of the search. Dim mySearchResult As SearchResult = myDirectorySearcher.FindOne() If Not (mySearchResult Is Nothing) Then ' Get the 'DirectoryEntry' that corresponds to 'mySearchResult'. Dim myDirectoryEntry As DirectoryEntry = mySearchResult.GetDirectoryEntry() Console.WriteLine(ControlChars.Newline + "The name of the 'myDirectoryEntry' " + _ "directory entry that corresponds to the " + _ "'mySearchResult' search result is : {0}" + _ ControlChars.Newline, myDirectoryEntry.Name) Dim mySearchResultPath As String = mySearchResult.Path Console.WriteLine("The path for the 'mySearchResult' search result is : {0}" + _ ControlChars.Newline, mySearchResultPath) ' Get the properties of the 'mySearchResult'. Dim myResultPropColl As ResultPropertyCollection myResultPropColl = mySearchResult.Properties Console.WriteLine("The properties of the 'mySearchResult' are :") Dim myKey As String For Each myKey In myResultPropColl.PropertyNames Dim tab1 As String = " " Console.WriteLine(myKey + " = ") Dim myCollection As Object For Each myCollection In myResultPropColl(myKey) Console.WriteLine(tab1 + myCollection) Next myCollection Next myKey myDirectoryEntry.Dispose() mySearchRoot.Dispose() Else Console.WriteLine("The '" + myLDAPPath + "' path not found.") End If Catch e As Exception Console.WriteLine("The '" + myLDAPPath + "' path not found.") Console.WriteLine("Exception : " & e.Message) End Try End Sub 'Main End Class 'MySample
Windows 98, Windows Server 2000 SP4, Windows Millennium Edition, Windows Server 2003, Windows XP Media Center Edition, Windows XP Professional x64 Edition, Windows XP SP2, Windows XP Starter Edition
The Microsoft .NET Framework 3.0 is supported on Windows Vista, Microsoft Windows XP SP2, and Windows Server 2003 SP1.