Validar usuario contra el dominio (active directory)

Hola a tod@s, aqui os dejo una funcion que te permite validar un usuario contra el dominio, el valor de retorno es un true o un false

    Public Function AutenticarUsuario(ByVal Dom As String, ByVal usu As String, ByVal pwd As String) As Boolean

        Dim path As String = "LDAP://"
        If Dom = "" Then Dom = Environment.UserDomainName

        Dim entry As DirectoryEntry = New DirectoryEntry(path &amp; Dom, Dom &amp; "\" &amp; usu, pwd)

        Try
            Dim obj As Object = entry.NativeObject
            Dim search As DirectorySearcher = New DirectorySearcher(entry)

            search.Filter = "(SAMAccountName=" &amp; usu &amp; ")"
            search.PropertiesToLoad.Add("cn")
            Dim result As SearchResult = search.FindOne()

            If result Is Nothing Then
                Return False
            End If

        Catch ex As Exception
            Return False
        End Try
        Return True
    End Function

Public Function AutenticarUsuario(ByVal Dom As String, ByVal usu As String, ByVal pwd As String) As Boolean

Dim path As String = "LDAP://"

If Dom = "" Then Dom = Environment.UserDomainName

Dim entry As DirectoryEntry = New DirectoryEntry(path & Dom, Dom & "\" & usu, pwd)

Try

Dim obj As Object = entry.NativeObject

Dim search As DirectorySearcher = New DirectorySearcher(entry)

search.Filter = "(SAMAccountName=" & usu & ")"

search.PropertiesToLoad.Add("cn")

Dim result As SearchResult = search.FindOne()

If result Is Nothing Then

Return False

End If

Catch ex As Exception

Return False

End Try

Return True

End Function

Copia y pega . y a funcionar.

Un saludo a todos y espero que os sirva

Deja un comentario Cancelar respuesta