Is this code what we are looking for ?
https://wightideas.org/2014/06/25/excel-ldap-authentication/
We could easily adapt it to Harbour and FWH
FUNCTION ConectaLDAP()
LOCAL lOk := FALSE
TRY
// Creamos el objeto ADO de conexión
oConexion:= TOleAuto():new( "ADODB.Connection" )
oConexion:Provider:= 'ADsDSOObject'
oProperties := oConexion:Properties( 'User ID' )
oProperties:value := 'Your User'
oProperties := oConexion:Properties( 'Password' )
oProperties:value := 'Your Password'
oProperties := oConexion:Properties( 'Encrypt Password' )
oProperties:value := TRUE
// Abrimos la conexión
oConexion:Open( "Active Directory Provider" )
lOk := TRUE
CATCH oError
AdoError( oError, lMessage )
//xBrowse( oError )
END
RETURN lOk
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: No registered users and 57 guests