For $i=0 to Len($AdReturnedByte)
  $s=$s+$comma+Right("0"+DecToHex(Asc(SubStr($AdReturnedByte,$i,1))),2)
  $comma = ","
Next

Dim $objSysInfo, $objCompCN, $byteGUID, $strGUID, $strDash, $i
$objSysInfo = CreateObject("ADSystemInfo")
$objCompCN = GetObject("LDAP://"+$objSysInfo.ComputerName)
$byteGUID = $objCompCN.objectGUID

For $i=0 to Len($byteGUID)
  $strGUID=$strGUID+$strDash+Right("0"+DecToHex(Asc(SubStr($byteGUID,$i,1))),2)
  $strDash = "-"
Next
? $strGUID