alias regread { if (!$com(regread)) .comopen regread WScript.Shell noop $com(regread,RegRead,3,bstr,$1) $com(regread,®read).result return $bvar(®read,1-).text }