Autenticação no AD

[raposo 0]

Prezados,

 

Estou tentando fazer os usuários da minha intranet se conectarem no AD, porém quando tento acessar com senha e login o mesmo está me exibindo a seguinte mensagem de erro na linha 143:

 

Microsoft VBScript runtime error '800a000d'

/Type mismatch: '[object]'

login_restrito_teste.asp, line 56

 

Segue o código para me ajudarem

 

<%

		Dim UserName
		Dim Password
		
			UserName = ""
			Password = ""
			Domain = "1.4.0.1"
			
			UserName = request.form("UserName")
			Password = request.form("Password")						
		
								
			function AuthenticateUser(UserName, Password, Domain)
			dim strUser
				' assume failure
				AuthenticateUser = false

				strUser = UserName
				strPassword = Password

			
			strQuery = "SELECT cn FROM 'LDAP://" & Domain & "' WHERE objectClass='*' "
			
			set oConn = server.CreateObject("ADODB.Connection")
			oConn.Provider = "ADsDSOOBJECT"
			oConn.Properties("User ID") = strUser
			oConn.Properties("Password") = strPassword
			oConn.Properties("Encrypt Password") = true
			oConn.open "DS Query", strUser, strPassword

			set cmd = server.CreateObject("ADODB.Command")
			set cmd.ActiveConnection = oConn
			cmd.CommandText = strQuery
			on error resume next
				set oRS = cmd.Execute
				if oRS.bof or oRS.eof then
					AuthenticateUser = false
						 else
					AuthenticateUser = true
			end if
				
				set oRS = nothing
				set oConn = nothing
		end function
		
				result = AuthenticateUser(UserName, Password, Domain)
							if result then	
							  set rsLog=server.createobject("ADODB.Recordset")
							     sqlstr = "Select * from users where login='"&UserName&"' AND des_senha='"&Password&"'"
								     rsLog.open sqlstr, conexao,3,3
								        if rsLog.EOF then 			    
          		                           
          		                       
		            response.cookies("css")("GRUPO")     =   rsLog("grupo")
		            response.cookies("css")("CODUSER")   =   rsLog("cod_usuario")
		            session("logado") = "S"

		            If request("vemail") = "S" then
		            response.cookies("css")("cod_idm") = 1
		            response.redirect request("redir")
		                
		              Else
		              
		            if rsLog("grupo")  = "|3|" then
		            response.redirect "página1.html"
		            elseif rsLog("grupo")  = "|2|" then	
		  	        'response.redirect "página3.html"%>
                    
                    <script language="javascript">
			            window.location.href ="página2.html"; 
                    </script>
            

		  <%	else rsLog("grupo")  = "|4|"
		   	response.redirect "página3.html"
		  End If
		End if
	End if
End if

rsLog.Close
Set rsLogin = Nothing	

conection.close
Set conexao = nothing
%>

Desde já agradeço

[xanburzum 169]

tem um exemplo no lab. de script

ola este

[raposo 0]

xanburzum, obrigado pela resposta.

 

O meu script funciona sem problemas, porém eu não estou conseguindo fazer com que ele assuma os grupos já existentes. Ocorre que minha intranet já possuia senha em banco sql, com usuário, grupo, etc,etc. Porém existe a necessidade de realizar a autenticação pelo AD.

Autenticar em si, ela passa; o que eu estou com dificuldade e fazer o usuário entrar no Grupo, ou seja a senha fica no AD, mais o Grupo no meu banco de dados.

 

Você consegue me ajudar?

[xanburzum 169]

dae terá k configurar a sua rede, e fazer o AD pegar seu bd