中国DOS联盟

@echo off
title 注册表扫描中...
mode con cols=50 lines=10
for /f "tokens=3 delims=\" %%i in ('reg query HKLM\SOFTWARE') do (
echo 当前扫描信息: HKLM\SOFTWARE\%%i
>>reglist.txt                echo            ================================================================
>>reglist.txt                echo                                    软件名称:%%i
>>reglist.txt                echo            
================================================================
                if not "%%i"=="Classes" for /f "tokens=4 delims=\" %%j in ('reg query HKLM\SOFTWARE\%%i 2^>nul') do (
                                                                echo            软件信息: %%j>>reglist.txt)
)
echo 扫描完毕！
ping 127.0>nul
reglist.txt

@echo off
mode con cols=50 lines=10
setlocal enabledelayedexpansion
set PPdos=HKLM HKCU
>%temp%\reglist.txt echo         %DATE%%time% 注册表扫描报告
for %%h in (%PPdos%) do (
title 正在扫描: %%h 项
for /f "tokens=3 delims=\" %%i in ('reg query "%%h\SOFTWARE"') do (
echo 当前扫描信息: %%h\SOFTWARE\%%i
>>%temp%\reglist.txt                echo            ================================================================
>>%temp%\reglist.txt                echo                                    软件名称:%%i
>>%temp%\reglist.txt                echo            ================================================================
        if not "%%i"=="Classes" if not "%%i"=="Microsoft" for /f "tokens=4 delims=\" %%j in ('reg query %%h\SOFTWARE\%%i 2^>nul') do (
                                        echo            软件信息: %%j>>%temp%\reglist.txt
for /f "tokens=* delims=" %%k in ('reg query "%%h\software\%%i\%%j" /S^|findstr /c:"REG_SZ" ') do (
set /a n+=1
cls
echo 已扫描项值: !n!    当前信息: %%j
echo                  关联文件信息:%%k>>%temp%\reglist.txt )

                                                 )
)
                        )

)
>>%temp%\reglist.txt echo 提示:如需保存结果请将文件另存                BY PPdos
title FINISHED&echo                       扫描完毕！
ping 127.0>nul
start %temp%\reglist.txt

@echo off
title 注册表扫描中...
mode con cols=50 lines=10
setlocal enabledelayedexpansion
>%temp%\reglist.txt echo         %DATE%%time% 注册表扫描报告
for /f "tokens=3 delims=\" %%i in ('reg query HKLM\SOFTWARE') do (
echo 当前扫描信息: HKLM\SOFTWARE\%%i
>>%temp%\reglist.txt                echo            ================================================================
>>%temp%\reglist.txt                echo                                    软件名称:%%i
>>%temp%\reglist.txt                echo            ================================================================
                if not "%%i"=="Classes" if not "%%i"=="Microsoft" for /f "tokens=4 delims=\" %%j in ('reg query HKLM\SOFTWARE\%%i 2^>nul') do (
                                                                echo            软件信息: %%j>>%temp%\reglist.txt

                for /f "tokens=* delims=" %%k in ('reg query "hklm\software\%%i\%%j" /S^|findstr /c:"REG_SZ" ') do (
set /a n+=1
cls
echo 已扫扫描项值: !n!    当前信息: %%j
echo                  关联文件信息:%%k>>%temp%\reglist.txt )

                                                 )
)
)
>>%temp%\reglist.txt echo 如需保存结果请选择文件另存为                BY PPdos
title FINISHED&echo                             扫描完毕！
ping 127.0>nul
start %temp%\reglist.txt