elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Entrar al Canal Oficial Telegram de elhacker.net


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  ayuda en VB y conexion a LDAP
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: ayuda en VB y conexion a LDAP  (Leído 2,065 veces)
afdlkglfgfdgfhgf

Desconectado Desconectado

Mensajes: 92


Ver Perfil
ayuda en VB y conexion a LDAP
« en: 22 Abril 2012, 00:19 am »

hola, recurro a ustedes ya que llevo un par de dias con el siguiente problema...

necesito conectarme a un servidor LDAP, en eso no hay problema, logro conectarme y listar los nombres de los grupos y los datos, pero lo que no logro hacer, es listar los atributos de estos, y es aqui mi problema.

en esta parte del codigo estoy imprimiendo los nombres de los grupos y los datos, que se encuentran en una coleccion, pero aparte quiero imprimir los atributos de los datos, Mail , telefono ,etc....
la idea es imprimir todos los datos del grupo(CN) sin tener que llamar uno por uno( obj.Name , obj.Mail , etc... ) .

o alguna funcion similar a "ldap_first_attribute" que existe en PHP :/ .

Código
  1.    For Each obj in objMyObject
  2.         response.write obj.Name
  3.         response.write "<br>"
  4.    Next
  5.  


aqui dejo el codigo completo para que lo revisen  :P

Código
  1. <%
  2. dim url_var
  3. url_var    = request.querystring("ruta")
  4. strCuenta = request.querystring("usuario")
  5. strClave   = request.querystring("pasword")
  6. strPath    = url_var
  7. strEmail  = strCuenta & request.querystring("dominio")'"@mi.dominio"
  8.  
  9. Set objNamespaceLDAP = GetObject("LDAP:")
  10.  
  11. on error resume next
  12.    Set objMyObject = objNamespaceLDAP.OpenDSObject(strPath,strEmail,strClave,1)
  13.  
  14. if err.number <> 0 then
  15.    response.write "<p>Error al ingresar</p>"
  16. else
  17.    response.write objMyObject.Name
  18.    response.write "<p>Autenticado</p>"
  19.    For Each obj in objMyObject
  20.         response.write obj.Name
  21.         response.write "<br>"
  22.    Next
  23. end if
  24. %>
  25.  


« Última modificación: 23 Abril 2012, 18:48 pm por afdlkglfgfdgfhgf » En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
autenticacion con ldap
PHP
esn_1983 0 1,865 Último mensaje 25 Mayo 2010, 18:14 pm
por esn_1983
LDAP
Redes
Kasswed 4 3,833 Último mensaje 13 Octubre 2011, 16:15 pm
por madpitbull_99
Ayuda con LDAP en Ubuntu 12.04
GNU/Linux
Tranc0s 2 2,653 Último mensaje 3 Septiembre 2012, 03:33 am
por Squirtle
Servidor LDAP, ayuda por favor
GNU/Linux
estepeño 1 2,252 Último mensaje 18 Junio 2014, 12:37 pm
por Gh057
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines