| ||
'Get RegEdit server object
Set S = CreateObject("RegEdit.Server")
'Get a key
Set Key = S.GetKey("HKLM\SOFTWARE")
'set value of the vtDWordBigEndian type
Key.Values("bigendian").Binary(vtDWordBigEndian) = ChrB(1) & ChrB(2) & ChrB(3) & ChrB(4) |