Just for good measure and people reading this in the future here's the code:
 Code:
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


Now to vice versa this project, that's an entirely different matter.
In that case I do have to refer to my UUID2netbootGUID function as mentioned above.

Keep in mind that the resulting string might not be in the right order as UUID2netbootGUID points out, you might have to flip it around to get it in the right order, just look at the UDF on how to do that.