Connect to LDAP from VB5.0

[sachiko]

Dear all,

We need to change the way of user authentication through LDAP.
Our application is a little bit obsolete but in Visual Basic 5.0 and I've been heard only the way to connect LDAP from VB5.0 should be ADO, but no brilliant idea at this stage. Our database is Oracle 11g/Solaris on server and OS at user end is window's XP.

If anyone could give us the good sample of LDAP authentication from VB5.0, we'd be so appreciated.

Thanks.

 

[mrmovie]

can you access the LDAP provider through VB5?

either way your question has little to do with VBA and hence you should post this question to the Visual Basic forum

Set adsNameSpace = GetObject("LDAP:")
Call DisplayMsg ("GetDefault_SiteProperties: LDAP://" & strDC_FQDN & "/" & strBindDomain, False, True)
Set objTarget = adsNamespace.OpenDSObject("LDAP://" & strDC_FQDN & "/" & strBindDomain, strUsername, strPassword, 1)
strTemp = objTarget.Name
Set objTarget = Nothing
Call DisplayMsg ("GetDefault_SiteProperties:" & strTemp, False, True)
If strTemp = "" Then
Call DisplayMsg ("GetDefault_SiteProperties:unable to bind to domain " & "LDAP://" & strDC_FQDN & "/" & strBindDomain, False, True)
GetDefault_SiteProperties = False
End If