努力发帖 争取升级^^
小东东 用来查询计算机上安装的软件注册表信息(测试环境XP)
大家的兴趣与支持让我又做了点完善（07/10/26 第二次修改）:
[ Last edited by PPdos on 2007-10-26 at 12:18 AM ]
小东东 用来查询计算机上安装的软件注册表信息(测试环境XP)
@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大家的兴趣与支持让我又做了点完善（07/10/26 第二次修改）:
@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[ Last edited by PPdos on 2007-10-26 at 12:18 AM ]
本帖最近评分记录
（共 1 条）
点击查看详情
| 评分人 | 分数 | 时间 |
|---|---|---|
| ghostoyp | +1 | 2007-03-01 07:46 |
菩提本无树,明镜亦非台,本来无一物,何处惹尘埃.
