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
}