Good idea.

Code:
alias regread {
  var %a = a $+ $ticks, %result
  .comopen %a wscript.shell
  if (!$comerr) {
    noop $com(%a,regread,3,bstr,$1-)
    %result = $com(%a).result
    .comclose %a
  }
  return %result
}
alias sn {
  if ($regread(HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\ProductID)) || ($regead(HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProductID)) { return $sha1($v1) }
}