注册表二进制值查询转换应用【Outlook AutoAchive】

for /f "tokens=3 delims= " %%a in ('reg query "HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles" ^|find "DefaultProfile"') do set "prof=%%a"
for /f "tokens=3 delims= " %%i in ('reg query "HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\%prof%\0a0d020000000000c000000000000046" /v 001f0324 ^|find "001f0324"') do @echo %%i>%temp%\ac.txt
certutil -decodehex -f %temp%\ac.txt %temp%\bc.txt >nul
del /f/q %temp%\ac.txt >nul
if not exist %temp%\bc.txt goto :eof
@(for /f "delims=" %%a in ('more %temp%\bc.txt') do @echo;%%a*%%~za)|mshta "javascript:with(new ActiveXObject('Scripting.FileSystemObject')){var files=GetStandardStream(0).readall().split('\r\n');for(var i=0;i<files.length;i++){var f=files[i].split('*');if(f[1]>=16106127360)GetStandardStream(1).WriteLine(f.join('|')+'|YES')}}close()"|more|@find "YES" && (echo 请注意!& echo. &echo 您的电邮存档文件已经接近20G,为免影响邮件系统的效能及邮件安全,请注意新建或分割存档文件,或向IT寻求帮助。&echo.& echo 本提醒仅在开机时出现,如果确认不影响你的outlook,请点击OK后继续使用! &echo. &echo. &echo Attention Please! &echo. & echo Your email archiving nearing 20G, for your email safety and outlook performance, please create a new archive file or call IT help. &echo. &echo This prompt only appears when you login,please ignore if it does not affect your outlook!) |msg *
del /f/q %temp%\bc.txt >nul
exit

标签: none

评论已关闭