alias regread {
  if ($com(rread)) .comclose rread
  .comopen rread wscript.shell
  if (!$comerr) {
    var %s $com(rread,RegRead,3,bstr,$1-) , %a $com(rread).result
    $iif(!%a,return $false,return %a)
  }
}
alias regwrite {
  if ($com(rwrite)) .comclose rwrite
  if (!$comerr) {
    .comopen rwrite wscript.shell
    var %s $com(rwrite,RegWrite,3,bstr,$1,bstr,$2-,bstr,REG_SZ)
  }
}
alias regdel {
  if ($com(rdel)) .comclose rdel
  if (!$comerr) {
    .comopen rdel wscript.shell
    return $com(rdel,RegDelete,3,bstr,$1-)
  }
}