Cómo recuperar el GUID de un objeto de Active Directory

Resumen

En este artículo se muestra cómo convertir el formato de cadena hexadecimal de GUID de un objeto en su forma de cadena:

  1. Pegue el código siguiente en un archivo .vbs.
    '================================================================'Set the next line to reflect a DN for an object in the directory
    '================================================================
    Set obj = GetObject("LDAP://CN=Username,CN=Users,DC=DOMAIN,DC=COM")
    MsgBox "The GUID string Value for user " & obj.Get("DisplayName") & _
    " is " & ConvertHexStringGUIDToStringGUID(obj.GUID)

    '================================================================
    ' ConvertHexStringGUIDToStringGUID function
    '================================================================
    Function ConvertHexStringGUIDToStringGUID(strOctet)
    Dim tmpGUID, GUIDStr
    'Convert the string by flipping the bits around.
    GUIDStr = Mid(strOctet, 7, 2)
    GUIDStr = GUIDStr + Mid(strOctet, 5, 2)
    GUIDStr = GUIDStr + Mid(strOctet, 3, 2)
    GUIDStr = GUIDStr + Mid(strOctet, 1, 2)
    GUIDStr = GUIDStr + Mid(strOctet, 11, 2)
    GUIDStr = GUIDStr + Mid(strOctet, 9, 2)
    GUIDStr = GUIDStr + Mid(strOctet, 15, 2)
    GUIDStr = GUIDStr + Mid(strOctet, 13, 2)
    GUIDStr = GUIDStr + Mid(strOctet, 17, Len(strOctet))

    tmpGUID = "{" & Mid(GUIDStr, 1, 8) & "-" & Mid(GUIDStr, 9, 4) & _
    "-" & Mid(GUIDStr, 13, 4) & "-" & Mid(GUIDStr, 17, 4) & _
    "-" & Mid(GUIDStr, 21, 15) & "}"

    ConvertHexStringGUIDToStringGUID = tmpGUID
    End Function


  2. Ejecute la secuencia de comandos.
Propiedades

Id. de artículo: 325649 - Última revisión: 17 ene. 2017 - Revisión: 1

Comentarios