Credenciales de Inicio
Publicado por Carlos Reyes (7 intervenciones) el 08/08/2007 21:18:52
Que tal buenas tardes
Veran, me encuentro batallando un poco con mi pagina de inicio, la pagina se conecta al active directory de mi dominio y valida las credenciales del usuario, en el servidor de prueba funciona perfectamente, si las credenciales son validas le permite conectarse a una aplicacion, en caso de que no lo continua redireccionando a la pagina de inicio de sesion. El problema radica en que cuando publico mi pagina al parecer no encuentra las credenciales, ya que aunque sean validas las credenciales no inicia sesion. Les pego el codigo:
Function ValidaAD(ByVal strUsuario As String, ByVal strPwd As String) As Boolean
'**************************************************************************'
'Esta funcion se conceta a un Directorio de Dominio y valida el Nombre de
'usuario y contraseña para un inicio de sesion por Windows NT, si autentifica
'la identidad del usuario para el dominio permite entrar al sistema
'con los permisos establecidos de acuerdo al perfil, en caso contrario bloquea
'la aplicacion para dicho nombre de usuario(si existe)
'**************************************************************************'
Dim strDominio As String
strDominio = "LDAP://DC=DOMINIO,DC=local"
Try
Dim objUsuario As DirectoryEntry
Dim objEntradaDirectorio As New DirectoryEntry(strDominio, strUsuario, strPwd)
Dim objBuscaDirectorio As New DirectorySearcher(objEntradaDirectorio)
Dim objResultadoBusqueda As SearchResult
objBuscaDirectorio.Filter = "(SAMAccountName=" & strUsuario & ")"
objResultadoBusqueda = objBuscaDirectorio.FindOne()
objUsuario = objResultadoBusqueda.GetDirectoryEntry()
Return True
Catch Excepcion As System.Exception
Return False
End Try
End Function
Friend Function ObtienePermisos(ByVal strUsuario As String)
strUsuario = "DOMINIO\" & strUsuario
End Function
Segun creo el problema es que en el LDAP le asigno DC=local, si es esto, ¿que instruccion lleva?, gracias de antemano
Carlos Reyes
Veran, me encuentro batallando un poco con mi pagina de inicio, la pagina se conecta al active directory de mi dominio y valida las credenciales del usuario, en el servidor de prueba funciona perfectamente, si las credenciales son validas le permite conectarse a una aplicacion, en caso de que no lo continua redireccionando a la pagina de inicio de sesion. El problema radica en que cuando publico mi pagina al parecer no encuentra las credenciales, ya que aunque sean validas las credenciales no inicia sesion. Les pego el codigo:
Function ValidaAD(ByVal strUsuario As String, ByVal strPwd As String) As Boolean
'**************************************************************************'
'Esta funcion se conceta a un Directorio de Dominio y valida el Nombre de
'usuario y contraseña para un inicio de sesion por Windows NT, si autentifica
'la identidad del usuario para el dominio permite entrar al sistema
'con los permisos establecidos de acuerdo al perfil, en caso contrario bloquea
'la aplicacion para dicho nombre de usuario(si existe)
'**************************************************************************'
Dim strDominio As String
strDominio = "LDAP://DC=DOMINIO,DC=local"
Try
Dim objUsuario As DirectoryEntry
Dim objEntradaDirectorio As New DirectoryEntry(strDominio, strUsuario, strPwd)
Dim objBuscaDirectorio As New DirectorySearcher(objEntradaDirectorio)
Dim objResultadoBusqueda As SearchResult
objBuscaDirectorio.Filter = "(SAMAccountName=" & strUsuario & ")"
objResultadoBusqueda = objBuscaDirectorio.FindOne()
objUsuario = objResultadoBusqueda.GetDirectoryEntry()
Return True
Catch Excepcion As System.Exception
Return False
End Try
End Function
Friend Function ObtienePermisos(ByVal strUsuario As String)
strUsuario = "DOMINIO\" & strUsuario
End Function
Segun creo el problema es que en el LDAP le asigno DC=local, si es esto, ¿que instruccion lleva?, gracias de antemano
Carlos Reyes
Valora esta pregunta


0