快捷導(dǎo)航

使用vbs腳本來監(jiān)控windows服務(wù)器上的應(yīng)用程序(不存在就啟動)

更新時間：2024年04月14日 22:07:54 作者：SYSCTO

這個vbs代碼主要實現(xiàn)的功能就是運行該程序，就會在進(jìn)程中出現(xiàn)一個wscript.exe?它會每隔10s掃面一次進(jìn)程中是否存在notepad.exe這個程序,不存在就啟動。這個啟動程序可能跟進(jìn)程名不一樣，好比tomcat應(yīng)用，啟動的是startup.bat，后臺進(jìn)程名為java.exe

這個vbs代碼主要實現(xiàn)的功能就是運行該程序，就會在進(jìn)程中出現(xiàn)一個wscript.exe 它會每隔10s掃面一次進(jìn)程中是否存在notepad.exe這個程序,不存在就啟動。這個啟動程序可能跟進(jìn)程名不一樣，好比tomcat應(yīng)用，啟動的是startup.bat，后臺進(jìn)程名為java.exe,這樣就需要調(diào)整代碼proname="java.exe"

關(guān)于如果關(guān)掉監(jiān)控可以在運行下執(zhí)行taskkill /f /im wscript.exe 或者在任務(wù)管理器進(jìn)程中找到wscript.exe 結(jié)束進(jìn)程就可以了

調(diào)整WshShell.Run("startup.bat")

核心代碼

dim wmi,proc,procs,proname,flag,WshShell
Do
proname="notepadjb51.exe" '需要監(jiān)測的服務(wù)進(jìn)程的名稱，自行替換這里的記事本進(jìn)程名
set wmi=getobject("winmgmts:{impersonationlevel=impersonate}!\.rootcimv2")
set procs=wmi.execquery("select * from win32_process")
flag=true
for each proc in procs
if strcomp(proc.name,proname)=0 then
flag=false
exit for
end if
next
set wmi=nothing
if flag then
Set WshShell = Wscript.CreateObject("Wscript.Shell")
WshShell.Run ("notepadjb51.exe")
end if
wscript.sleep 10000 '檢測間隔時

VBS寫個小腳本實時監(jiān)測指定程序是否運行對運行的軟件進(jìn)行操作最后關(guān)閉運行軟件

strComputer = "."
Set objShell = CreateObject("Wscript.Shell") 
do
Set wbemServices = Getobject("winmgmts:\\" & strComputer)
Set wbemObjectSet = wbemServices.InstancesOf("Win32_process")
For Each wbemObject In wbemObjectSet
if wbemObject.name="QQ.exe" then
  WScript.Sleep 1000
  objShell.SendKeys "{F12}"
  WScript.Sleep 1000
  objShell.SendKeys "{ENTER}"
  dim WSHshell 
  set WSHshell = wscript.createobject("wscript.shell") 
  WSHshell.run "taskkill /im wscript.exe /f ",0 ,true 
end if
Next
loop

批處理檢測進(jìn)程是否存在；這個我用來檢測文化進(jìn)程是否存在，因為是綠色版的，很容易被關(guān)閉，所以需要檢測。

tasklist /nh|find /i "ClientOfWatcher.exe"
if ERRORLEVEL 1 (start C:\watcher\ClientOfWatcher.exe) else (exit)

VBS定時檢測進(jìn)程是否存在，如果不存在就啟動進(jìn)程。

option Explicit    
dim wmi,proc,procs,proname,flag,WshShell    
Do  
    proname="ClientOfWatcher.exe" '需要監(jiān)測的服務(wù)進(jìn)程的名稱，自行替換這里的記事本進(jìn)程名    
set wmi=getobject("winmgmts:{impersonationlevel=impersonate}!\\.\root\cimv2")    
set procs=wmi.execquery("select * from win32_process")    
  flag=true    
for each proc in procs    
    if strcomp(proc.name,proname)=0 then    
      flag=false    
      exit for    
    end if    
next    
  set wmi=nothing    
  if flag then    
    Set WshShell = Wscript.CreateObject("Wscript.Shell")    
    WshShell.Run ("C:\Watcher\ClientOfWatcher.exe")    
end if    
  wscript.sleep 50000 '檢測間隔時間，這里是50秒    
loop

關(guān)于vbs系統(tǒng)運行后，系統(tǒng)進(jìn)程中產(chǎn)生大量wscript.exe

taskkill /IM wscript.exe /F
taskkill /IM cscript.exe /F
taskkill /IM consent.exe /F
taskkill /IM ChsIME.exe /F

所有建議服務(wù)器上運行vbs后，如果出現(xiàn)大量wscript.exe進(jìn)程，可以加上下面的命令

dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "taskkill /im wscript.exe /f ",0 ,true

到此這篇關(guān)于使用vbs腳本來監(jiān)控windows服務(wù)器上的應(yīng)用程序(不存在就啟動)的文章就介紹到這了,更多相關(guān)vbs守衛(wèi)進(jìn)程內(nèi)容請搜索腳本之家以前的文章或繼續(xù)瀏覽下面的相關(guān)文章希望大家以后多多支持腳本之家！

您可能感興趣的文章: