Active Directory'deki bir nesnenin GUID almak nasıl

Özet

Bu makalede nasıl dize hâli onaltılık dize biçiminde bir nesnenin GUID'sini dönüştürüleceğini gösterir:

  1. .Vbs dosyasında aşağıdaki kodu yapıştırın.

    '================================================================'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 = tmpGUIDEnd Function
  2. Komut dosyasını çalıştırın.

Daha fazla yardıma mı ihtiyacınız var?

Yeteneklerinizi geliştirin
Eğitimleri keşfedin
Yeni özellikleri ilk olarak siz edinin
Microsoft Insider 'a katılın

Bu bilgi yardımcı oldu mu?

Geri bildiriminiz için teşekkür ederiz!

Geri bildiriminiz için teşekkürler! Office destek temsilcilerimizden biriyle görüşmeniz yararlı olabilir.

×