Artigo: 325648 - Última revisão: terça-feira, 29 de Junho de 2004 - Revisão: 2.2

Como converter uma cadeia formatado GUID para um formulário de cadeia hexadecimal para utilização quando ao consultar o Active Directory

Vista lado a ladoClique aqui para exibir o artigo traduzido e o artigo original em inglês, lado a lado.
Tradução automáticaVer isenção de responsabilidades para tradução automática
Ver produtos para os quais este artigo se aplica.
Dica do SistemaEste artigo aplica-se a um sistema operativo diferente do que está a utilizar. Foi desactivado o conteúdo do artigo, que pode não ser relevante para si.
Expandir tudo | Reduzir tudo

Sumário

Este artigo descreve como converter uma cadeia formatada GUID (por exemplo, {XXXXXXXX-XXXX-XXXX-XXXX-XXXXXXXXXXXX}) para o formulário de cadeia hexadecimal para utilização num GUID ligar cadeia no Active Directory.

Para converter uma cadeia formatada GUID para o formato de cadeia hexadecimal, siga estes passos:
  1. Cole o seguinte código num ficheiro .vbs. 
    
'================================================================
' Replace the value of strGUID with an actual GUID
'================================================================
strGUID = "{XXXXXXXX-XXXX-XXXX-XXXX-XXXXXXXXXXXX}" 
Set obj = GetObject("LDAP://<GUID=" & ConvertStringGUIDToHexStringGUID(strGUID) & ">")
MsgBox "The octet guid for " & obj.Get("displayname") & " is " & obj.GUID

'================================================================
' ConvertGUIDtoOCTET function
'================================================================
Function ConvertStringGUIDToHexStringGUID(strGUID)
    Dim octetStr, tmpGUID

    For i = 0 To Len(strGUID)
        t = Mid(strGUID, i + 1, 1)
        Select Case t
            Case "{"
            Case "}"
            Case "-"
            Case Else
                tmpGUID = tmpGUID + t
        End Select
    Next

    octetStr = Mid(tmpGUID, 7, 2)             ' 0
    octetStr = octetStr + Mid(tmpGUID,  5, 2) ' 1
    octetStr = octetStr + Mid(tmpGUID,  3, 2) ' 2
    octetStr = octetStr + Mid(tmpGUID,  1, 2) ' 3
    octetStr = octetStr + Mid(tmpGUID, 11, 2) ' 4
    octetStr = octetStr + Mid(tmpGUID,  9, 2) ' 5
    octetStr = octetStr + Mid(tmpGUID, 15, 2) ' 6
    octetStr = octetStr + Mid(tmpGUID, 13, 2) ' 7
    octetStr = octetStr + Mid(tmpGUID, 17, Len(tmpGUID))

    ConvertGUIDtoOCTET = octetStr
End Function
  2. Execute o script.
A informação contida neste artigo aplica-se a:
  • Microsoft Windows 2000
  • Microsoft Active Directory Service Interfaces 2.5
  • Microsoft Active Directory Service Interfaces 2.5
Voltar ao topo
Palavras-chave: 
kbmt kbdswadsi2003swept kbdswadsi2003swept kbhowtomaster KB325648 KbMtpt
Tradução automáticaTradução automática
IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine translation ou MT), não tendo sido portanto revisto ou traduzido por humanos. A Microsoft tem artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais. O objectivo é simples: oferecer em Português a totalidade dos artigos existentes na base de dados do suporte. Sabemos no entanto que a tradução automática não é sempre perfeita. Esta pode conter erros de vocabulário, sintaxe ou gramática? erros semelhantes aos que um estrangeiro realiza ao falar em Português. A Microsoft não é responsável por incoerências, erros ou estragos realizados na sequência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza actualizações frequentes ao software de tradução automática (MT). Obrigado.
Clique aqui para ver a versão em Inglês deste artigo: 325648  (http://support.microsoft.com/kb/325648/en-us/ )
Voltar ao topo