Cómo que no funciona?
Claro que lo hace
Código ASP:
Ver original<%
FUNCTION ValidaLdap(strUsername,strpassword,domainname)
Set objDomain = GetObject ("GC://rootDSE")
objADsPath = objDomain.Get("defaultNamingContext")
Set objDomain = Nothing
Set objConnection = Server.CreateObject("ADODB.Connection")
objConnection.provider ="ADsDSOObject"
objConnection.Properties("User ID") = domainname+"\" + strUsername
objConnection.Properties("Password") = strpassword
objConnection.open "Active Directory Provider"
Set objCommand = CreateObject("ADODB.Command")
Set objCommand.ActiveConnection = objConnection
objCommand.CommandText ="select cn FROM 'GC://"+objADsPath+"' where sAMAccountname='"+strUsername+"'"
on error resume next
Set objRS = objCommand.Execute
If Err.Number <> 0 Then
ldap = 0
Else
ldap = 1
End If
ValidaLdap = ldap
End Function
if Request("login") <> "" Then
if ValidaLdap(Request("login"), Request("password"), Request("dominio")) Then
response.write "Correcto"
else
response.write "Incorrecto"
end if
End if
%>
<html>
<body>
<form method=post>
Login: <input type="text" name="login" value=""><br>
Password: <input type="password" name="password" value=""><br>
Dominio: <input type="text" name="dominio" value="">
<input type="submit" name="btn" value="Login">
</form>
</body>
</html>