FiveTech Software tech support forums

... libcurl/7.54.0 OpenSSL/1.1.0e zlib/1.2.11 WinIDN libssh2/1.8.0 nghttp2/1.21.1 Protocols: dict file ftp ftps gopher http https imap imaps ldap ldaps pop3 pop3s rtsp scp sftp smtp smtps telnet tftp Features: AsynchDNS IDN IPv6 Largefile SSPI Kerberos SPNEGO NTLM SSL libz TLS-SRP HTTP2 HTTPS-proxy ...

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

Hi Rick!, If your software has LDAP integration this is an added value. Maybe there are companies that want or do not want to activate it, but in any case it's a plus in security. I've been using LDAP connections for some time and I even ...

Cristobol I don't know .. LDAP has been around for a long time and during my discussions with the IT person he does understand what I am doing ... however wants to bring in a Security Company to test my software for any possible penetration ...

... is adding value at my application to add new functionality to the software to be able to tap into a resource that already exists. I have used this LDAP module in other applications to get First Name, Last Name and Userid to populate a list box to make it easy to populate Employee information into ...

... this is a large Agency they use Microsoft networking with Active Directory, As a VERY nice enhancement to the application, I incorporated some LDAP code to open a connection to Active Directory .. query AD for ( only ) First name, Last Name, and Userid to populate xBrowse as a look up table ...

... hb_bitShift( 1, 4 ) #define HB_CURLPROTO_SFTP hb_bitShift( 1, 5 ) #define HB_CURLPROTO_TELNET hb_bitShift( 1, 6 ) #define HB_CURLPROTO_LDAP hb_bitShift( 1, 7 ) #define HB_CURLPROTO_LDAPS hb_bitShift( 1, 8 ) #define HB_CURLPROTO_DICT hb_bitShift( 1, 9 ) #define HB_CURLPROTO_FILE hb_bitShift( ...

... oDSO, oU, lError              default cDNSDomain := "DC=pdvsa,DC=com"         TRY            oRootDSE := GetActiveObject("LDAP://RootDSE")         CATCH            oRootDSE := CreateObject("LDAP:",cUserID,cPassword)         END         If empty( ...

... := "DC=pdvsa,DC=com"         TRY            oRootDSE := GetActiveObject("LDAP://RootDSE")         CATCH            oRootDSE := CreateObject("LDAP:",cUserID,cPassword)  ...

Thank's Rick, I already tested your procedure, It worked fine, but what I need is to verify the user by valildating user and password from LDAP services, What I've found is has something to do with xharbour and ole issue, OLE can't find "LDAP".

Ragard's

To All These are my modifications from the original LDAP code .. I use this routine to pull AD information for a selected User : #Include "FiveWIn.Ch"#Include "xBrowse.Ch"#include "ado.ch"#define ADS_SCOPE_BASE      0#define ...

Thanks Herbert,

but with that change

Error description: Error TOleAuto/-1 CO_E_CLASSSTRING: TOLEAUTO:NEW
Args:
[ 1] = C LDAP://
[ 2] = U
[ 3] = U

in line

oRootDSE := CreateObject("LDAP://")

Thanks in advance !

Regards,

Hi Herbert, here in line 29: oRootDSE := CreateObject("LDAP://",cUserID,cPassword) Error description: Error TOleAuto/-1 CO_E_CLASSSTRING: TOLEAUTO:NEW Args: [ 1] = C LDAP:// [ 2] = U [ 3] = C FPGRANDE Thanks in advance. Regards Thank's Baxajaun, ...

Hi Herbert,

here in line 29:

oRootDSE := CreateObject("LDAP://",cUserID,cPassword)

Error description: Error TOleAuto/-1 CO_E_CLASSSTRING: TOLEAUTO:NEW
Args:
[ 1] = C LDAP://
[ 2] = U
[ 3] = C FPGRANDE

Thanks in advance.

Regards

Gale

I saw this code in the forum but could not get it to work .. your code compiled and ran great .. I can definitely massage this code and get what I am looking for ..

Thank You!

Rick Lipkin