vb监控win7服务

牛虻

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

pcl_test

监控.bat

1. 
   
2. @echo off
   
3. if "%1"=="h" goto begin
   
4. start mshta vbscript:createobject("wscript.shell").run("""%~nx0"" h",0)(window.close)&&exit
   
5. :begin
   
6. net start|find "服务"||net start 服务

复制代码

任务计划

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

复制代码

监控.vbs

1. CreateObject("WScript.Shell").Run "cmd /c net start 服务",0

复制代码

任务计划

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

复制代码

牛虻

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

牛虻

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

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

复制代码

czjt1234

1. Dim Shell, fso, TextStream, s
   
2. 
   
3. s = "Helpsvc"    '服务名
   
4. Set Shell = CreateObject("Shell.Application")
   
5. Set fso = CreateObject("Scripting.FileSystemObject")
   
6. 
   
7. If Shell.CanStartStopService(s) = False Then
   
8.   MsgBox "当前用户没有权限启动和停止指定的服务", 4096
   
9.   WScript.Quit()
   
10. End If
    
11. 
    
12. Do
    
13.   If Shell.IsServiceRunning(s) = False Then
    
14.     Set TextStream = fso.OpenTextFile("日志.txt", 8, True)
    
15.     If Shell.ServiceStart(s, False) = False Then
    
16.       TextStream.WriteLine Now() & " 启动服务失败"
    
17.     Else
    
18.       TextStream.WriteLine Now() & " 启动服务成功"
    
19.     End If
    
20.     TextStream.Close()
    
21.   End If
    
22.   WScript.Sleep 1000 * 60   '1分钟
    
23. Loop

复制代码

简化版

1. s = "Helpsvc"    '服务名
   
2. Set Shell = CreateObject("Shell.Application")
   
3. Do
   
4.   If Shell.IsServiceRunning(s) = False Then
   
5.     Shell.ServiceStart s, False
   
6.   End If
   
7.   WScript.Sleep 1000 * 60   '1分钟
   
8. Loop

复制代码

gawk

回复 4# 牛虻


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