IsAdmin { var %file = $regsubex($envvar(SystemDrive),/\\?$/,\) $+ admintest $+ $ticks $+ $r(1,999999999999) | .fopen -no admintest $qt(%file) | .fclose admintest | var %rslt = $exists(%file) | if (%rslt) .remove $qt(%file) | if (!$isid) echo -a * IsAdmin: %rslt | return %rslt } ; by Raccoon 2017
Code:
IsAdmin {
  var %file = $regsubex($envvar(SystemDrive),/\\?$/,\) $+ admintest $+ $ticks $+ $r(1,999999999999)
  .fopen -no admintest $qt(%file)
  .fclose admintest
  var %rslt = $exists(%file)
  if (%rslt) .remove $qt(%file)
  if (!$isid) echo -a * IsAdmin: %rslt
  return %rslt
} ; by Raccoon 2017

Well. At least I won lunch.
Good philosophy, see good in bad, I like!