[Openroad-users] FW: LDAP integration

[Neil.Warnock at luminary.co.uk]

Hi Peter, 

Here it is. From slide 10 of http://www.iua.org.uk/conference/Autumn2005/NeilWarnock_1005.pdf 

<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
/* Create the ADO objects */

ext_ADOConnection = ext_ADO!connection(ext_ADO!connection.New());
ext_ADORecordset  = ext_ADO!_recordset(ext_ADO!_recordset.New());

/* Set the connection type and open connection  */

ext_ADOConnection.Provider = 'ADSDSOObject';
ext_ADOConnection.Open('ADs Provider',,,);

/* Execute qry and get principal name into 4GL variables  */

v_select_string = 'SELECT userPrincipalName FROM '
     + HC_QUOTE + 'LDAP://<serveraddr>:<serverport>/<baseDN>'
     + HC_QUOTE + 'WHERE CN = '
     + HC_QUOTE + 'Fred Flintstone' + HC_QUOTE;

ext_ADORecordset = ext_ADOConnection.Execute(v_select_string,,);

IF ext_ADORecordset.RecordCount = 0
THEN
	   /* no rows */
ELSE
        v_userPrincipalName = ext_ADORecordset.Fields.Item(0).Value;
ENDIF;

/* Close the ADO Connection and Recordset */

ext_ADORecordset.Close();
ext_ADOConnection.Close();
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

We created a few 4GL wrapper classes to parameterise connection values and to deal with bits of the SQL string that you must build up but essentially slide 10 shows the core code, simplified for readability of course (sorry can't send the classes themselves - this was a piece of work specifically commissioned by a cust).

The LDAP client ActiveX control that we used initially was provided by http://www.ldapservices.com but the licencing soon proved prohibitively expensive so we gave up on that idea and discovered we could roll our own using ADO and 4GL wrapper classes.

HTH. And Happy New Year! 
 

Neil Warnock
Luminary Solutions
Tel: +44 (0)870 757 40 90  
Mob: +44 (0)771 265 0291  
Email: Neil.Warnock at luminary.co.uk

For more information on Luminary go to http://www.luminary.co.uk
 

-----Original Message-----
From: openroad-users-bounces at peerlessit.com [mailto:openroad-users-bounces at peerlessit.com] On Behalf Of Neil Warnock
Sent: 03 January 2007 23:24
To: International OpenROAD Users
Subject: Re: [Openroad-users] LDAP integration

Hi Peter, 

I think what tyou are looking for might cost you $$ to licence and use. That is what we found when we went looking a few years back. 

Why not stick with your ado approach and wrap with a 4 gl class? Whichever way you go you could  deploy on appserver and have a shared LDAP service maybe?

You might want to compare notes with the ado LDAP code frag illustrated in the pres on the ukiua site 'integration secrets revealed'. Can send more details tomorrow if you need them. 

Regards Neil


Typed painfully slowly on Blackberry wireless device  

-----Original Message-----
From: "Peter van Bennekom" <Peter.vanBennekom at infor.com>
Date: Wed, 3 Jan 2007 15:28:20
To:"OpenROAD Users" <openroad-users at peerlessit.com>
Subject: [Openroad-users] LDAP integration

Happy New Year everybody!
 
 
 
I am investigating the possibility to read user info (name, email, etc + group membership, etc) from LDAP / Active Directory for enhanced product integration.  So far I have been able to come up with a simple routine using ADO ActiveX to check if a user exists (after numerous trial and error and crashes...) and read some data from the query.  This is all text based (no external classes to represent the user or group).
 
 
 
I am looking for an ActiveX control / classes to access the directory DB and to represent users / groups.  I have searched current registered ActiveX modules but I cannot find anything remotely related to LDAP / AD (looking for DirectoryEntry and DirectorySearch).
 
 
 
Anyone done something similar / who can help me / point me in the right direction?
 
 
 
Thanks,
 
Peter
 
 
 
Peter van Bennekom | Senior Technical Architect | Infor | office: +1 (610) 407-8113 | fax: +1 (610) 407-8027 
 
 
 _______________________________________________
Openroad-users mailing list  Openroad-users at peerlessit.com

To unsubscribe please click on this link mailto:openroad-users-unsubscribe at peerlessit.com&subject=unsubscribe

To subscribe please click on this link
mailto:openroad-users-subscribe at peerlessit.com&subject=subscribe 

_______________________________________________
Openroad-users mailing list  Openroad-users at peerlessit.com

To unsubscribe please click on this link mailto:openroad-users-unsubscribe at peerlessit.com&subject=unsubscribe

To subscribe please click on this link
mailto:openroad-users-subscribe at peerlessit.com&subject=subscribe