ID článku: 325648 - Poslední aktualizace: 29. června 2004 - Revize: 2.2

Jak převést řetězec formátu GUID šestnáctková tvar řetězce pro použití při zadávání Active Directory

Zobrazení anglického článku a jeho českého překladu vedle sebeZobrazení původního anglického článku a jeho překladu vedle sebe.
Strojově přeložený článekUPOZORNĚNÍ: TENTO ČLÁNEK BYL STROJOVĚ PŘELOŽEN
Produkty, které se vztahují k tomuto článku.
Systémový tipTento článek se vztahuje na jiný operační systém, než který používáte. Obsah článku, který pro vás pravděpodobně není relevantní, byl zablokován.
Rozbalit všechny záložky | Minimalizovat všechny záložky

Souhrn

Tento článek popisuje, jak převést řetězec formátovaný GUID (například {XXXXXXXX-XXXX-XXXX-XXXX-XXXXXXXXXXXX}) jeho hexdecimal řetězec formuláře pro použití v GUID svázat řetězec v aktivním adresáři.

Chcete-li převést řetězec formátu GUID jeho šestnáctkový řetězec formuláře, postupujte takto:
  1. Vložte následující kód do souboru 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. Spusťte skript.
Informace v tomto článku jsou určeny pro produkt:
  • Microsoft Windows 2000
  • Microsoft Active Directory Service Interfaces 2.5
  • Microsoft Active Directory Service Interfaces 2.5
Zpět nahoru
Klíčová slova: 
kbmt kbdswadsi2003swept kbdswadsi2003swept kbhowtomaster KB325648 KbMtcs
Strojově přeložený článekStrojově přeložený článek
Důležité: Tento článek byl přeložen pomocí software společnosti Microsoft na strojový překlad, ne profesionálním překladatelem. Společnost Microsoft nabízí jak články přeložené překladatelem, tak články přeložené pomocí software na strojový překlad, takže všechny články ve Znalostní databázi (Knowledge Base) jsou dostupné v češtině. Překlad pomocí software na strojový překlad ale není bohužel vždy dokonalý. Obsahuje chyby ve skloňování slov, skladbě vět, nebo gramatice, podobně jako když cizinci dělají chyby při mluvení v češtině. Společnost Microsoft není právně zodpovědná za nepřesnosti, chyby nebo škody vzniklé chybami v překladu, nebo při použití nepřesně přeložených instrukcí v článku zákazníkem. Společnost Microsoft aktualizuje software na strojový překlad, aby byl počet chyb omezen na minimum.
Projděte si také anglickou verzi článku:325648  (http://support.microsoft.com/kb/325648/en-us/ )
Zpět nahoru