ASP.NET / Segurança

Fazendo login na aplicação pelo usuário da rede interna

enviado por Domingos Carreira de Paola

Esse código faz login da sua aplicação pelo seu login de rede, basta passar o ip do servidor o username de rede e a senha, username e senha que você pode pegar de um campo texto na sua aplicação.

Retorna um booleano se o login foi efetuado com sucesso ou não.

Ps : É necessário adicionar a referência de System.DirectoryServices

Imports System.DirectoryServices

Public Function Autentica(ByVal ipServer As String, ByVal username As String, ByVal pwd As String) As Boolean

        'Dim domainAndUsername As String = domain & "\" & username

        'Instancia um novo Objeto active directory passando o caminho(ip do servidor) o username e password
        Dim entry As DirectoryEntry = New DirectoryEntry("LDAP://" & ipServer, username, pwd)

        Try
            'Bind to the native AdsObject to force authentication.

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

            search.Filter = "(SAMAccountName=" & username & ")"
            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

Versão impressa gerada em: quarta-feira, 25 de novembro de 2009