中国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