BUSCAR USUARIO NO AD

JONATASBM 19/10/2011 14:59:55
#387082

Boa tarde Pessoal com o código abaixo eu consigo fazer um login no AD, Porem eu queria fazer uma busca por um usuário no Ad,
Exemplo: o Usuário [Ô]A[Ô] existe no AD.

Eu tentei algumas opções mas sem sucesso, se alguém puder me ajudar e me mostrar o que tenho que mudar no código fico muito grato

Att,

Jonatas marques


Public Function Validacao(ByVal Domain As String, ByVal UserName As String, ByVal Senha As String) As Boolean
Dim Success As Boolean = False
Dim Entry As New DirectoryEntry([Ô]LDAP://[Ô] & Domain, UserName, Senha)
Dim procura As New DirectorySearcher(Entry)
procura.SearchScope = SearchScope.OneLevel

Try
Dim resultado As DirectoryServices.SearchResult = procura.FindOne
Success = True
Catch ex As Exception
Success = False
MsgBox(ex.Message)
End Try
Return Success
End Function