foxJL

发个低效率的,而且只能查看正在运行的服务.
因为网页上有些字符不能处理,请下载附件测试.

@echo off&setlocal enabledelayedexpansion
::code by foxjl@bbs.bathome.net
mode con cols=150 lines=80
echo/&echo/
del %temp%\swenvservices.txt 2>nul&del %temp%\swenvloadedmodules.txt 2>nul
start msinfo32 /categories +swenvservices /report %temp%\swenvservices.txt
start msinfo32 /categories +swenvloadedmodules /report %temp%\swenvloadedmodules.txt
set/p=  数据准备中,请稍等.<nul
for /l %%a in (1,1,1000) do (
if exist %temp%\swenvservices.txt (if exist %temp%\swenvloadedmodules.txt (goto start))
 for %%i in (－ \ ^| /) do (
  for /l %%j in (1,1,21) do (set/p=<nul)
  set/p=%%i<nul&ping /n 1 127.1>nul
 )
)
:start
cls
for /f "skip=33 delims=  tokens=1-6" %%a in ('type "%temp%\swenvservices.txt"') do (
 set name=%%a
 for /f "tokens=1-2 delims=-/" %%x in ("%%f") do (
 set paths=%%~x
 set paths=!paths:"=!
 call :look
 )
)
pause>nul
:look
for /f "delims=  tokens=1-6" %%i in ('type "%temp%\swenvloadedmodules.txt"') do (
 if /i "%%n"=="!paths!" (echo.名称:!name!--路径:!paths!---制造制:%%m)
 )
goto :eof
复制代码

foxJL

msinfo32.exe 是一个外部程序,我的XP有自带,不知你用的是什么系统.