ConnectionString LDAP

Enviado por daniel_84 el 21 Enero, 2009 - 13:14.

Root LDAP

Hola a todos,

Soy nuevo en LDAP y tengo un servidor LDAP que tiene esa estructura, tal como se puede apreciar en el grafico adjunto, lo que necesito es conectarme a este servidor desde una pequeña aplicacion en Visual Basic, pero no se como generar la cadena de conexion ya que hay varios parametros que no se para que sirven ( o, ou, dc,uid,etc..... ).

Codigo de VB6:

Dim o As IADsOpenDSObject
Dim ou As IADsContainer

Set o = GetObject("LDAP:")
Set conLDAP = o.OpenDSObject( "rbes.internal.dextersof.com" , "usuario", "password", 0)

Aplico este codigo y me sale error de automatizacion, o que el directorio es incorrecto. xFavor si pudiesesn ayudame a definicr esta cadena de conexion se lo agradeceria de ante mano.

Saludos,
Daniel V.

‹ Historial de comandos ldap OpenLDAP y Active Directory ›
Enviado por daniel_84 el 22 Enero, 2009 - 17:07.

Hola que tal,

Ya eh logrado solucionar el problema de conexion de LDAP con VB6, aqui les dejo el codigo que eh empleado:

Dim dso As IADsOpenDSObject
Dim obj1, obj2 As IADs
Set obj1 = dso.OpenDSObject( _
"LDAP://CN=" & Trim(txtUsuario.Text) & ",ou=Externos34,ou=Usuarios,dc=rbes,dc=internal,dc=dextersof,dc=com", _
txtUsuario.Text, _
txtPassword.Text, ADS_SECURE_AUTHENTICATION + ADS_SERVER_BIND)
If Err.Number = 0 Then
MsgBox "Conexion satisfactoria...!!!", vbInformation, obj1.Class
ElseIf Err.Number = -2147023570 Then
MsgBox "Imposible de conectar"
ElseIf Err.Number = -2147016656 Then
MsgBox "No tiene permisos...!!!"
End If

Enviado por ingeosc el 2 Febrero, 2009 - 22:38.

Hola Daniel, estoy probando tu codigo y me sale el siguiente error:

"Variable de tipo object o la variable de bloque With no esta establecida"
Me podrias ayudar please

Enviado por proseba el 26 Octubre, 2009 - 04:35.

Me aparece el mismo error?'...

alguien pudo solucionarlo?