LISTING 3: Code That Manually Converts the objectGUID Value to a Usable String

Set objUser = _
	GetObject("LDAP://cn=JohnDoe,ou=Sales,dc=Fabrikam,dc=com")

objUser.GetInfoEx Array("objectGUID"), 0
strObjectGUID = _
	ConvertObjectGuidToString(objUser.Get("objectGUID"))

WScript.Echo objUser.Name                   & vbCrLf & _
	String(Len(objUser.Name), "=") & vbCrLf & _
	"GUID:       " & objUser.GUID  & vbCrLf & _
	"objectGUID: " & strObjectGUID

BEGIN COMMENT
' Function: ConvertObjectGuidToString
END COMMENT
Function ConvertObjectGuidToString(ByVal arrRawObjectGUID)
	Dim i, strByte
	Dim arrObjectGUID(15)
	For i = 1 To LenB(arrRawObjectGUID)
		strByte = Hex(AscB(MidB(arrRawObjectGUID, i, 1)))
		If Len(strByte) = 1 Then strByte = "0" & strByte
		arrObjectGUID(i - 1) = strByte
	Next
	ConvertObjectGuidToString = Join(arrObjectGUID, "")
End Function