Dim username As String = tbUsuario.Text.Trim 'Textbox de usuarios
Dim pwd As String = tbPass.Text 'Textbox de password
Dim strPath As String = "LDAP://distribjal.cfemex.com/DC=distribjal, DC=com" 'Lo cambias por tu dominio
Dim strDomain As String = "distribjal" 'Nombre del dominio
Dim domainAndUsername As String = strDomain + "\" + username
Dim entry As DirectoryEntry = New DirectoryEntry(strPath, domainAndUsername, pwd)
Dim search As DirectorySearcher = New DirectorySearcher(entry)
Try
search.FindAll() 'Aki no se por ké pero siempre devuelve un error y si el error NO es inicio de sesión, significa ke si se loggeo
Catch ex As Exception
If Not ex.Message.ToString.Substring(0, 25) = "Error de inicio de sesión" Then
Response.Write("Encontrado y loggeado")
Else
Response.Write("NO Encontrado")
End If
End Try