[问题求助] vb监控win7服务

牛虻

我电脑有一服务不定时停止，所以想用一脚本监控，当监控但服务停止时让它启动，启动后继续监控。后台运行

pcl_test

监控.bat

@echo off 
if "%1"=="h" goto begin 
start mshta vbscript:createobject("wscript.shell").run("""%~nx0"" h",0)(window.close)&&exit 
:begin
net start|find "服务"||net start 服务 
复制代码

任务计划

schtasks /create /sc minute /mo 1 /tn "每隔一分钟检测服务" /tr "C:\监控.bat"
复制代码

监控.vbs

CreateObject("WScript.Shell").Run "cmd /c net start 服务",0
复制代码

任务计划

schtasks /create /sc minute /mo 1 /tn "每隔一分钟检测服务" /tr "C:\监控.vbs"
复制代码

牛虻

谢谢，我一直在for循环上考虑，居然忘了还有计划任务这个神奇的东西

牛虻

你vbs用的还是 cmd命令
要求：
1、不影响使用，后台运行
2、指定监测时间，如一分钟监测一次
这是我写的bat ,不能后台

@echo off
for /f "skip=3 tokens=4" %%i in ('sc query SNAC') do set "zt=%%i" &goto :next
:next
if /i "%zt%"=="RUNNING" (
    echo 已经发现该服务在运行。
) else (
	echo 该服务现在处理停止状态。
   	echo 正在启动SNAC网络准入服务...
	net start "SNAC"
    	netsh interface set interface name="本地连接" admin=DISABLED 
 	netsh interface set interface name="本地连接" admin=ENABLED
)
pause >nul
复制代码

czjt1234

Dim Shell, fso, TextStream, s

s = "Helpsvc"    '服务名
Set Shell = CreateObject("Shell.Application")
Set fso = CreateObject("Scripting.FileSystemObject")

If Shell.CanStartStopService(s) = False Then
  MsgBox "当前用户没有权限启动和停止指定的服务", 4096
  WScript.Quit()
End If

Do
  If Shell.IsServiceRunning(s) = False Then
    Set TextStream = fso.OpenTextFile("日志.txt", 8, True)
    If Shell.ServiceStart(s, False) = False Then
      TextStream.WriteLine Now() & " 启动服务失败"
    Else
      TextStream.WriteLine Now() & " 启动服务成功"
    End If
    TextStream.Close()
  End If
  WScript.Sleep 1000 * 60   '1分钟
Loop
复制代码

简化版

s = "Helpsvc"    '服务名
Set Shell = CreateObject("Shell.Application")
Do
  If Shell.IsServiceRunning(s) = False Then
    Shell.ServiceStart s, False
  End If
  WScript.Sleep 1000 * 60   '1分钟
Loop
复制代码

gawk

回复 4# 牛虻


    放在任务计划里面执行的时候会有窗口弹出来吗？