中国DOS联盟

@echo off&title 扫描大约需要3~5分钟请耐心等待...
mode con cols=50 lines=10
>%temp%\dllfiles.txt echo                         扫描纪录 (%date%%time%)
for /f "tokens=1-3,* delims=\][" %%i in ('netstat -anvb^|findstr ".exe .dll"') do (
                if not "%%l"=="" (echo 可执行组件: %%l>>%temp%\dllfiles.txt) else (
                cls
                echo %%j
                echo                         以上为主程序: %%j 调用的控件>>%temp%\dllfiles.txt)
        )
>>%temp%\dllfiles.txt echo.
>>%temp%\dllfiles.txt echo 注意:如需保留此纪录请另存为   test by PPdos 2007
ping 127.0>nul
start %temp%\dllfiles.txt