test {
  echo 1 $regread(HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\FileSystem\NtfsDisable8dot3NameCreation)
  echo 1 $regread(HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProductName)
  echo 1 $regread(HKEY_LOCAL_MACHINE\SOFTWARE\Intel\PSIS\PSIS_DECODER\GraphFile)
  echo 1 $regread(HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Ole\DefaultLaunchPermission)
  echo 1 $regread(HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\PendingFileRenameOperations)
}
regread {
  .comopen a WScript.Shell
  var %err OK,%b
  if ($comerr) var %err COM_ERR
  elseif (!$com(a,RegRead,3,bstr,$1)) || ($comerr) var %err COM_ERR
  else %b = $com(a, &v).result
  echo 3 len: $bvar(&v,0) data: $bvar(&v,1-1024).text
  :error
  if ($error) reseterror
  if ($com(a)) .comclose a
  return %err %b
}