ID Artikel: 325648 - Kajian Terakhir: 26 September 2011 - Revisi: 2.0

Bagaimana mengkonversi String diformat GUID untuk membentuk String heksadesimal untuk digunakan ketika query Active Directory

Tampil berdampinganKlik disini untuk menampilkan sumber Inggris dan terjemahan oleh mesin secara berdampingan
Penerjemahan MesinPeringatan: artikel ini adalah terjemahan oleh mesin
Tips SistemThis article applies to a different operating system than the one you are using. Article content that may not be relevant to you is disabled.
Perbesar semua | Perkecil semua

RINGKASAN

Artikel ini menjelaskan cara untuk mengkonversi string GUID diformat (contohnya, {XXXXXXXX-XXXX-XXXX-XXXX-XXXXXXXXXXXX}) bentuk string hexdecimal untuk digunakan dalam GUID mengikat tali di Active Directory.

Untuk mengkonversi string diformat GUID bentuk heksadesimal string, ikuti langkah berikut:
  1. Paste kode berikut ke .vbs file.
    
'================================================================
' 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. Menjalankan script.
Kata kunci: 
kbdswadsi2003swept kbhowtomaster kbmt KB325648 KbMtid
Penerjemahan MesinPenerjemahan Mesin
PENTING: Artikel ini diterjemahkan menggunakan perangkat lunak mesin penerjemah Microsoft dan bukan oleh seorang penerjemah. Microsoft menawarkan artikel yang diterjemahkan oleh seorang penerjemah maupun artikel yang diterjemahkan menggunakan mesin sehingga Anda akan memiliki akses ke seluruh artikel baru yang diterbitkan di Pangkalan Pengetahuan (Knowledge Base) dalam bahasa yang Anda gunakan. Namun, artikel yang diterjemahkan menggunakan mesin tidak selalu sempurna. Artikel tersebut mungkin memiliki kesalahan kosa kata, sintaksis, atau tata bahasa, hampir sama seperti orang asing yang berbicara dalam bahasa Anda. Microsoft tidak bertanggung jawab terhadap akurasi, kesalahan atau kerusakan yang disebabkan karena kesalahan penerjemahan konten atau penggunaannya oleh para pelanggan. Microsoft juga sering memperbarui perangkat lunak mesin penerjemah.
Klik disini untuk melihat versi Inggris dari artikel ini:325648  (http://support.microsoft.com/kb/325648/en-us/ )
Kembali ke atas