Asunto: Mostrar ObjectGUID LDAP en cuadro de texto Visual Basic .Net
Estoy desarrollando una aplicación que obtenga ciertos datos de un servidor de LDAP (Microsoft Windows Server 2008 con Active Directory). He conseguido obtener casi todos los datos salvo la propiedad ObjectGUID, que me da error o me muestra caracteres raros.
También he probado con la función del API de Windows StringFromGUID2:
Código:
Declare Function StringFromGUID2 Lib "ole32" (
ByVal rguid As Long,
ByVal lpsz As String,
ByVal cchMax As Long) As Long
He incluso he intentado hacer la conversión manual con:
Código:
Publicado:
Mar Feb 15, 2011 7:42 am
alonsojpd Administrador/Moderador
Registrado: Sep 16, 2003 Mensajes: 2687
Asunto: Re: Mostrar ObjectGUID en cuadro de texto Visual Basic .Net
Anuncios
varios escribió:
Estoy desarrollando una aplicación que obtenga ciertos datos de un servidor de LDAP (Microsoft Windows Server 2008 con Active Directory). He conseguido obtener casi todos los datos salvo la propiedad ObjectGUID, que me da error o me muestra caracteres raros.
El código que uso:
...
Para obtener el GUID de un objeto de LDAP en formato legible puedes usar esto:
¿Cómo puedo mostrar también el SID (objectSid) de un objeto de LDAP? creo que también es del mismo tipo que el GUID, pero no hay un:
objLDAP.GetDirectoryEntry().Sid.ToString
Publicado:
Mie Feb 16, 2011 7:41 pm
alonsojpd Administrador/Moderador
Registrado: Sep 16, 2003 Mensajes: 2687
Asunto: Re: Mostrar ObjectGUID en cuadro de texto Visual Basic .Net
Anuncios
varios escribió:
Ok, sencillísimo y funciona.
¿Cómo puedo mostrar también el SID (objectSid) de un objeto de LDAP? creo que también es del mismo tipo que el GUID, pero no hay un:
objLDAP.GetDirectoryEntry().Sid.ToString
Puedes usar esta función:
Código:
'Función para obtener el SID en texto legible del objeto de LDAP
Private Function convertirSIDString(ByVal sid As Byte()) As String
Try
Dim oSID As SecurityIdentifier =
New SecurityIdentifier(CType(sid, Byte()), 0)
convertirSIDString = oSID.Value.Trim
Catch ex As Exception
convertirSIDString = ""
End Try
End Function
Un ejemplo de uso de esta función VB.Net (Visual Basic .Net):
Puede publicar nuevos temas en este foro No puede responder a temas en este foro No puede editar sus mensajes en este foro No puede borrar sus mensajes en este foro No puede votar en encuestas en este foro
Visita nuestro nuevo sitio web con programas y contenidos actualizados: Proyecto A