开发部的一个核心程序总是会自己宕机，然后需要手工去起，而这个服务的安全级别又很高，只有我可以操作，搞得我晚上老没法睡，昨晚实在受不了了，想起以前在hp-ux下写的shell守护进程，这回搞个windows下的bat版守护程序吧，当时晚上思路已经很迟钝了，就叫了个兄弟让他写了，上去后运行效果不错，至少昨晚我安心睡了7小时。
检查是否有notepad，要用的话就算成自己的进程名，如果进程宕了就过会自动重启（会在当前目录下生成一个start.bat）
@echo off
set _task=notepad.exe
set _svr=c:/windows/notepad.exe
set _des=start.bat
:checkstart
for /f "tokens=5" %%n in (‘qprocess.exe ^| find "%_task%" ‘) do (
if %%n==%_task% (goto checkag) else goto startsvr
)
:startsvr
echo %time%
echo ********程序开始启动********
echo 程序重新启动于 %time% ,请检查系统日志 >> restart_service.txt
echo start %_svr% > %_des%
echo exit >> %_des%
start %_des%
set/p=.<nul
for /L %%i in (1 1 10) do set /p a=.<nul&ping.exe /n 2 127.0.0.1>nul
echo .
echo Wscript.Sleep WScript.Arguments(0) >%tmp%/delay.vbs
cscript //b //nologo %tmp%/delay.vbs 10000
del %_des% /Q
echo ********程序启动完成********
goto checkstart
:checkag
echo %time% 程序运行正常,10秒后继续检查..
echo Wscript.Sleep WScript.Arguments(0) >%tmp%/delay.vbs
cscript //b //nologo %tmp%/delay.vbs 10000
goto checkstart
出处：https://blog.csdn.net/jiangxinyu/article/details/5217342
========================================================================
@echo off
::检测时间间隔，单位：秒
set _interval=5
::需要守护的进程名称
set _processName=WinRAR
::需要守护的进程启动命令
set _processCmd=C:\ideavim-0.32.zip
::需要守护的进程预估启动完毕所需时间，单位：秒
set _processTimeout=10
::需要守护的进程所监听的端口
set _port=8080
::进程用户名，一般是Administrator
set _username=Administrator
:LOOP
set /a isAlive=false
::通过进程名称检测
::tasklist /FI "username eq %_username%" | find /C "%_processName%" > temp.txt
::set /p num= < temp.txt
::del /F temp.txt
::通过进程的端口是否正在被监听检测
netstat -an | find /C "0.0.0.0:%_port%" > temp.txt
set /p num= < temp.txt
del /F temp.txt
if "%num%" == "0" (
start %_processCmd% | echo 启动 %_processName% 于 %time%
choice /D y /t %_processTimeout% > nul
)
if "%num%" NEQ "0" echo 已启动
::ping -n %_interval% 127.1>nul
choice /D y /t %_interval% >nul
goto LOOP该脚本运行后会出现一个dos窗口，若觉得碍眼可以用记事本将下面保存为扩展名为.vbs的文件。其中guard.bat是上面批处理保存的文件名。两个文件放在同一目录下双击vbs文件后，守护进程就在后台运行了，单这样得通过资源管理器结束cmd进程才能停止守护进程。
set ws=WScript.CreateObject("WScript.Shell")
ws.Run "guard.bat",0