Dim root As DirectoryEntry = Nothing
        Dim ds As DirectorySearcher = Nothing
        Dim result As SearchResult = Nothing
 
        Using (root)
            root = New DirectoryEntry( _
                "LDAP://DC=xxx,DC=xxx", _
                Nothing, _
                Nothing, _
                AuthenticationTypes.Secure _
                )
 
            Using (ds)
                ds = New DirectorySearcher(root)
                ds.Filter = "(sAMAccountName=mullfreak)"
 
                ds.SizeLimit = 1
 
                result = ds.FindOne()
                If Not result Is Nothing Then
                    MsgBox(result.Path)
                End If
            End Using
        End Using