ASP y Active Directory

07/04/2004 - 15:49 por JLF | Informe spam
¿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

#1 Hero
07/04/2004 - 16:04 | Informe spam
Busca informacion de como hacerlo en www.microsoft.com/scripting

Hero.


"JLF" escribió en el mensaje
news:%23Zn$
¿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


Preguntas similares