中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 批处理监督进程

Mekinery
初级用户

积分 83
发帖 32
注册 2006-12-26
状态离线

『楼主』: 批处理监督进程

在d盘下有1.bat ,2.bat

1.bat在运行.2.bat也在运行，
2.bat是监督1.bat进程,如果1.bat在运行,2.bat不调用1.bat
如果1.bat进程突然终止，2.bat立刻调用1.bat能不能实现?

[ Last edited by Mekinery on 2007-3-10 at 10:26 PM ]

2007-3-11 10:37

slore
铂金会员

积分 5212
发帖 2478
注册 2007-2-8
状态离线

『第 2 楼』:

进程？进程里都是cmd吧？

2007-3-11 10:43

leton
初级用户

积分 170
发帖 72
注册 2007-3-11
状态离线

『第 3 楼』:

前两天刚研究过～～

用vbs方式，先把 1.bat 2.bat 用工具编译成 1.exe 2.exe
然后用 vbs 查看进程进行判断（需要增加多1个批处理，作为判断否后运行 1.exe 或 2.exe）

把判断后要运行得批处理或脚本文件，代替到 ****.exe 位置就行了

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colProcesses = objWMIService.ExecQuery("Select * from Win32_Process")

For Each objProcess in colProcesses
If Right(objProcess.Name, 5) = "1.exe" Then
Wscript.Quit
End If
Next

For Each objProcess in colProcesses
If Right(objProcess.Name, 5) = "2.exe" Then
Wscript.Quit
End If
Next

Set objShell = CreateObject("WScript.Shell")
objShell.Run "*****.exe"
Wscript.Quit

2007-3-12 03:13

leton
初级用户

积分 170
发帖 72
注册 2007-3-11
状态离线

『第 4 楼』:

如果想循环得话（不断判断两个文件运行情况），可以在新加得批处理中添加调用回 vbs脚本

自己看看了解，我没写全，哈~~GOOD Luck

2007-3-12 03:16

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: