中国DOS联盟

::::::::::::::::::::::::::::::::::::::
::Modified by lxmxn@bbs.cn-dos.net  ::
::Date 21:41 2007-3-27              ::  
::GetService.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