Cómo autenticar en Active Directory mediante la autenticación mediante formularios y Visual Basic .NET

Volver al principio

Crear una aplicación Web ASP.NET en Visual Basic .NET

1. Inicie Microsoft Visual Studio NET..
2. En el menú archivo , seleccione nuevo y, a continuación, haga clic en proyecto .
3. Haga clic en Proyectos de Visual Basic bajo Tipos de proyecto y, a continuación, haga clic en Aplicación Web ASP.NET bajo plantillas .
4. En el cuadro ubicación , escriba http:// <servername>/FormsAuthAd (reemplazando http://localhost si está utilizando el servidor local (para tener http://localhost/FormsAuthAd y a continuación, haga clic en Aceptar .
5. Haga clic con el botón secundario en el nodo referencias en el Explorador de soluciones y, a continuación, haga clic en Agregar referencia .
6. En la ficha .NET del cuadro de diálogo Agregar referencia , haga clic en System.DirectoryServices.dll , haga clic en Seleccionar y, a continuación, haga clic en Aceptar .

Volver al principio

Escribir el código de autenticación

1. En el Explorador de soluciones, haga clic con el botón secundario del mouse en el nodo del proyecto, elija Agregar y, a continuación, haga clic en Agregar nuevo elemento .
2. Haga clic en clase bajo plantillas .
3. Escriba LdapAuthentication.vb en el cuadro nombre y, a continuación, haga clic en Abrir .
4. Reemplace el código existente en el archivo LdapAuthentication.vb con el siguiente código:

   Imports System
   Imports System.Text
   Imports System.Collections
   Imports System.DirectoryServices
   
   Namespace FormsAuth
       Public Class LdapAuthentication
   
           Dim _path As String
           Dim _filterAttribute As String
   
           Public Sub New(ByVal path As String)
               _path = path
           End Sub
   
           Public Function IsAuthenticated(ByVal domain As String, ByVal username As String, ByVal pwd As String) As Boolean
   
               Dim domainAndUsername As String = domain & "\" & username
               Dim entry As DirectoryEntry = New DirectoryEntry(_path, domainAndUsername, 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
   
                   'Update the new path to the user in the directory.
                   _path = result.Path
                   _filterAttribute = CType(result.Properties("cn")(0), String)
   
               Catch ex As Exception
                   Throw New Exception("Error authenticating user. " & ex.Message)
               End Try
   
               Return True
           End Function
   
           Public Function GetGroups() As String
               Dim search As DirectorySearcher = New DirectorySearcher(_path)
               search.Filter = "(cn=" & _filterAttribute & ")"
               search.PropertiesToLoad.Add("memberOf")
               Dim groupNames As StringBuilder = New StringBuilder()
   
               Try
                   Dim result As SearchResult = search.FindOne()
                   Dim propertyCount As Integer = result.Properties("memberOf").Count
   
                   Dim dn As String
                   Dim equalsIndex, commaIndex
   
                   Dim propertyCounter As Integer
   
                   For propertyCounter = 0 To propertyCount - 1
                       dn = CType(result.Properties("memberOf")(propertyCounter), String)
   
                       equalsIndex = dn.IndexOf("=", 1)
                       commaIndex = dn.IndexOf(",", 1)
                       If (equalsIndex = -1) Then
                           Return Nothing
                       End If
   
                       groupNames.Append(dn.Substring((equalsIndex + 1), (commaIndex - equalsIndex) - 1))
                       groupNames.Append("|")
                   Next
   
               Catch ex As Exception
                   Throw New Exception("Error obtaining group names. " & ex.Message)
               End Try
   
               Return groupNames.ToString()
           End Function
       End Class
   End Namespace
   
   
   					

Explicación del código

Autenticación de usuarios

Grupos de usuarios

CN=...,...,DC=domain,DC=com
				

Volver al principio

Escribir el código de global.asax

1. En el Explorador de soluciones, haga clic con el botón secundario del mouse en global.asax y, a continuación, haga clic en Ver código .
2. Agregue el código siguiente en la parte superior del código detrás del archivo global.asax.vb:

   Imports System.Web.Security
   Imports System.Security.Principal
   					

3. Reemplace el controlador de eventos vacío existente para el Application_AuthenticateRequest con el siguiente código:

   Sub Application_AuthenticateRequest(ByVal sender As Object, ByVal e As EventArgs)
           ' Fires upon attempting to authenticate the use
           Dim cookieName As String = FormsAuthentication.FormsCookieName
           Dim authCookie As HttpCookie = Context.Request.Cookies(cookieName)
   
           If (authCookie Is Nothing) Then
               'There is no authentication cookie.
               Return
           End If
   
           Dim authTicket As FormsAuthenticationTicket = Nothing
   
           Try
               authTicket = FormsAuthentication.Decrypt(authCookie.Value)
           Catch ex As Exception
               'Write the exception to the Event Log.
               Return
           End Try
   
           If (authTicket Is Nothing) Then
               'Cookie failed to decrypt.
               Return
           End If
   
           'When the ticket was created, the UserData property was assigned a
           'pipe-delimited string of group names.
           Dim groups As String() = authTicket.UserData.Split(New Char() {"|"})
   
           'Create an Identity.
           Dim id As GenericIdentity = New GenericIdentity(authTicket.Name, "LdapAuthentication")
   
           'This principal flows throughout the request.
           Dim principal As GenericPrincipal = New GenericPrincipal(id, groups)
   
           Context.User = principal
   
       End Sub
   					

Volver al principio

Modificar el archivo Web.config

<?xml version="1.0" encoding="utf-8" ?>
<configuration>    
  <system.web>
    <authentication mode="Forms">
      <forms loginUrl="logon.aspx" name="adAuthCookie" timeout="60" path="/" >
      </forms>
    </authentication>	
    <authorization>	
      <deny users="?" />
      <allow users="*" />
    </authorization>	
    <identity impersonate="true" />
  </system.web>
</configuration>
				

Volver al principio

Configurar IIS para autenticación anónima

1. Haga clic con el botón secundario en la consola de administración de servicios de Internet Information Server (IIS), en el directorio virtual nodo para "FormsAuthAd" .
2. Haga clic en las Propiedades y, a continuación, haga clic en la ficha directorio .
3. Haga clic en Editar bajo control de autenticación y acceso anónimo .
4. Active la casilla de verificación Acceso anónimo .
5. Asegúrese de la cuenta anónima para la aplicación de una cuenta que tenga permiso para Active Directory.
6. Haga clic para desactivar la Permitir IIS para el control contraseña casilla de verificación.

Volver al principio

Crear la página Logon.aspx

1. En el Explorador de soluciones, haga clic con el botón secundario del mouse en el nodo del proyecto, elija Agregar y, a continuación, haga clic en Agregar Web Forms .
2. Escriba Logon.aspx en el cuadro nombre y, a continuación, haga clic en Abrir .
3. En el Explorador de soluciones, haga clic con el botón secundario del mouse en Logon.aspx y, a continuación, haga clic en Diseñador de vistas .
4. Haga clic en la ficha HTML en el diseñador.
5. Replace the existing code with the following code:

   <%@ Page language="vb" AutoEventWireup="true" %>
   <%@ Import Namespace="FormsAuthAd.FormsAuth" %>
   <html>
   	<body>
   		<form id="Login" method="post" runat="server">
   			<asp:Label ID="Label1" Runat="server">Domain:</asp:Label>
   			<asp:TextBox ID="txtDomain" Runat="server"></asp:TextBox><br>
   			<asp:Label ID="Label2" Runat="server">Username:</asp:Label>
   			<asp:TextBox ID="txtUsername" Runat="server"></asp:TextBox><br>
   			<asp:Label ID="Label3" Runat="server">Password:</asp:Label>
   			<asp:TextBox ID="txtPassword" Runat="server" TextMode="Password"></asp:TextBox><br>
   			<asp:Button ID="btnLogin" Runat="server" Text="Login" OnClick="Login_Click"></asp:Button><br>
   			<asp:Label ID="errorLabel" Runat="server" ForeColor="#ff3300"></asp:Label><br>
   			<asp:CheckBox ID="chkPersist" Runat="server" Text="Persist Cookie" />
   		</form>
   	</body>
   </html>
   <script runat="server">
   sub Login_Click(sender as object,e as EventArgs)
     Dim adPath as String = "LDAP://DC=..,DC=.." 'Path to your LDAP directory server
     Dim adAuth as LdapAuthentication = new LdapAuthentication(adPath)
     try
       if(true = adAuth.IsAuthenticated(txtDomain.Text, txtUsername.Text, txtPassword.Text)) then
         Dim groups as string = adAuth.GetGroups()
   
         'Create the ticket, and add the groups.
         Dim isCookiePersistent as boolean = chkPersist.Checked
         Dim authTicket as FormsAuthenticationTicket = new FormsAuthenticationTicket(1, _
              txtUsername.Text,DateTime.Now, DateTime.Now.AddMinutes(60), isCookiePersistent, groups)
   	
         'Encrypt the ticket.
         Dim encryptedTicket as String = FormsAuthentication.Encrypt(authTicket)
   		
         'Create a cookie, and then add the encrypted ticket to the cookie as data.
         Dim authCookie as HttpCookie = new HttpCookie(FormsAuthentication.FormsCookieName, encryptedTicket)
   
         if(isCookiePersistent = true) then
   		authCookie.Expires = authTicket.Expiration
         end if				
         'Add the cookie to the outgoing cookies collection.
         Response.Cookies.Add(authCookie)	
   
         'You can redirect now.
         Response.Redirect(FormsAuthentication.GetRedirectUrl(txtUsername.Text, false))
       
       else
         errorLabel.Text = "Authentication did not succeed. Check user name and password."
       end if
    
     catch ex as Exception
       errorLabel.Text = "Error authenticating. " & ex.Message
     end try
   end sub
   </script>
   					

6. Modificar la ruta de acceso en la página Logon.aspx para apuntar a su servidor de directorio LDAP.

• crea un objeto FormsAuthenticationTicket ;
• cifra el vale;
• Agrega el vale cifrado a una cookie;
• Agrega la cookie a la colección HttpResponse.Cookies ;
• redirige la solicitud a la dirección URL que se solicitó originalmente.

Volver al principio

Modificar la página WebForm1.aspx

1. En el Explorador de soluciones, haga clic con el botón secundario del mouse en WebForm1.aspx y, a continuación, haga clic en Diseñador de vistas .
2. Haga clic en la ficha HTML en el diseñador.
3. Reemplace el código existente con el código siguiente:

   <%@ Page language="vb" AutoEventWireup="true" %>
   <%@ Import Namespace="System.Security.Principal" %>
   <html>
   	<body>
   		<form id="Form1" method="post" runat="server">
   			<asp:Label ID="lblName" Runat="server" /><br>
   			<asp:Label ID="lblAuthType" Runat="server" />
   		</form>
   	</body>
   </html>
   <script runat="server">
   sub Page_Load(sender as object, e as EventArgs)
     lblName.Text = "Hello " + Context.User.Identity.Name & "."
     lblAuthType.Text = "You were authenticated using " &   Context.User.Identity.AuthenticationType & "."
   end sub
   </script>
   					

4. Guardar todos los archivos y, a continuación, compile el proyecto.
5. Solicitar la página WebForm1.aspx. Observe que se le redirige a Logon.aspx.
6. Escriba las credenciales de inicio de sesión y, a continuación, haga clic en Enviar . Cuando se redirigen a WebForm1.aspx, observe que aparece su nombre de usuario y que LdapAuthentication es la autenticación de tipo para la propiedad Context.User.Identity.AuthenticationType .

Volver al principio