::::::::::::::::::::::::::::::::::::::
::Modified by lxmxn@bbs.cn-dos.net ::
::Date 21:41 2007-3-27 ::
::GetSerPath.Bat ::
::Test in Windows XP SP2 ::
::::::::::::::::::::::::::::::::::::::
@echo off&setlocal enabledelayedexpansion
echo/&echo/Service Name ExecutablePath
echo/========================================
for /f "tokens=1-2*" %%a in ('tasklist /svc /nh /fi "IMAGENAME EQ SVCHOST.EXE"') DO (
if "%%a"=="svchost.exe" (set S_list=%%c) else (set S_list=%%a%%b%%c)
for %%x in (!S_list!) do (
set "S_name=%%x"
set "S_name=!S_name! "
set "S_name=!S_name:~0,20!"
for /f "tokens=1-2*" %%h in ('REG QUERY HKLM\SYSTEM\CURRENTCONTROLSET\SERVICES\%%x\PARAMETERS /V SERVICEDLL ^| findstr "SERVICEDLL"') do (call echo/!S_name!%%j)
)
)
echo/========================================
pause&exit/b