Biblioteca de Clases,Funciones y Sub-rutinas.

[yakare84]

Gente,
Les dejo una funcion para validar un usuario y pass contra un ACTIVE DIRECTORY!!

No me acuerdo de donde la saque... pero acá la dejo!!

Código:

'funcion para autentificar si el usuario ingresado está en el AD o no
Function AuthenticateUser(byVal usuario, byVal password, byVal dominio)
	dim strUser
	'assume failure
	AuthenticateUser = false
	
	strUser = usuario
	strPassword = password
	'consultamos el Active Directory para ver si el usuario existe
	strQuery = "SELECT cn,givenName,sn,mail,userPrincipalName FROM 'LDAP://" & dominio & "' WHERE objectClass='*' "
	'creamos el objeto para conectarnos
	set oConn = server.CreateObject("ADODB.Connection")
	'creamos el objeto para conectarnos al AD
	oConn.Provider = "ADsDSOOBJECT"
	'creamos el objeto para comprobar el usuario
	oConn.Properties("User ID") = strUser
	'creamos el objeto para comprobar la contraseña
	oConn.Properties("Password") = strPassword
	'encrptamos la contraseña
	oConn.Properties("Encrypt Password") = true
	'abrimos el AD
	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
	'si el recordset trae algo o no
	if oRS.bof or oRS.eof then
	 AuthenticateUser = false
	else
	 AuthenticateUser = true
	end if
	'vaciamos el recordset y la conexion
	set oRS = nothing
	set oConn = nothing
End Function

Espero les sirva!!!

Saludos!