¿Cómo puedo gestionar (crear, modificar, eliminar) usuarios de Active
Directory y asignar sus permisos al sistema de archivos con ASP? Hace tiempo
postearon el código que adjunto para comprobar sólo la existencia de un
usuario en AD pero no me funciona y me es insuficiente.
[procesar_login.asp]
'aquí vendría la recogida de datos del formulario y la llamada a la función
Function AuthenticateUser(strUserName, strPassword, strDomain)
Dim strUser
AuthenticateUser = False
strUser = "\" & strUserName
strSQL = "SELECT cn FROM 'LDAP://" & strDomain & "' WHERE objectClass='*' "
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Provider = "ADsDSOOBJECT"
Conn.Properties("User ID") = strUser
Conn.Properties("Password") = strPassword
Conn.Properties("Encrypt Password") = True
Conn.open "DS Query", strUser, strPassword
On Error Resume Next
Set rst = Conn.Execute(strSQL)
If rst.BOF OR rst.EOF Then
AuthenticateUser = False
Else
AuthenticateUser = True
End If
Set rst = nothing
Set Conn = nothing
End Function
Leer las respuestas