Active Directory에서 개체의 GUID를 검색 하는 방법

요약

이 문서에서는 개체의 GUID 16 진수 문자열 형태의 문자열 형태로 변환 하는 방법을 보여 줍니다.

1. .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 = tmpGUIDEnd Function

2. 스크립트를 실행 합니다.