主頁(yè) > 知識(shí)庫(kù) > VBScript 監(jiān)控并結(jié)束指定進(jìn)程的代碼

VBScript 監(jiān)控并結(jié)束指定進(jìn)程的代碼

熱門標(biāo)簽:佛山真人電銷機(jī)器人廠家 齊齊哈爾高德地圖標(biāo)注店 哪里有便宜的地圖標(biāo)注公司 除了地圖標(biāo)注還有這種生意嗎 百度地圖標(biāo)注點(diǎn)距離代碼 如何用機(jī)器人進(jìn)行電銷 神行者美術(shù)館地圖標(biāo)注 地圖標(biāo)注政府哪個(gè)部門管 東營(yíng)快遞外呼系統(tǒng)
運(yùn)行效果圖:



代碼(monprocess.vbs):

復(fù)制代碼 代碼如下:

On Error Resume Next

strComputer = "."
arrTargetProcs = Array("calc.exe", "notepad.exe", "other.exe")
'數(shù)組里為要監(jiān)視的進(jìn)程名

Set SINK = WScript.CreateObject("WbemScripting.SWbemSink","SINK_")
Set objWMIService = GetObject("winmgmts:" _
 "{impersonationLevel=impersonate}!\\" strComputer "\root\cimv2")
objWMIService.ExecNotificationQueryAsync SINK, _
 "SELECT * FROM __InstanceCreationEvent WITHIN 1 " _
  "WHERE TargetInstance ISA 'Win32_Process'"
Wscript.Echo "Are monitoring processes ..."
Do
 WScript.Sleep 1000
Loop

'***************************************************************************
Sub SINK_OnObjectReady(objLatestEvent, objAsyncContext)
'Trap asynchronous events.
 For Each strTargetProc In arrTargetProcs
  If LCase(objLatestEvent.TargetInstance.Name) = LCase(strTargetProc) Then
   intReturn = objLatestEvent.TargetInstance.Terminate
   If intReturn = 0 Then
    Wscript.Echo "Time: " Now ", Succeed!" chr(9) _
     "Name: " objLatestEvent.TargetInstance.Name
    Else
    Wscript.Echo "Time: " Now ", Failed!" chr(9) _
     "Name: " objLatestEvent.TargetInstance.Name
   End If
  End If
 Next
End Sub

原文:https://www.enun.net/?p=2385

您可能感興趣的文章:
  • vbs定期監(jiān)控 值個(gè)班,定期瞄一下
  • 磁盤IO利用率監(jiān)控VBS腳本(windows)
  • VBScript 監(jiān)控磁盤更改事件實(shí)現(xiàn)代碼
  • VBS監(jiān)控CPU的使用率(如占用率一直維持在80%超過30秒則運(yùn)行某程序)
  • 網(wǎng)絡(luò)接口利用率監(jiān)控VBS腳本代碼(Windows)
  • 進(jìn)程監(jiān)控實(shí)現(xiàn)代碼[vbs+bat]
  • 用VBS調(diào)用程序并對(duì)程序的運(yùn)行情況進(jìn)行監(jiān)控的兩個(gè)代碼
  • 如何使用vb 監(jiān)控電腦活動(dòng)記錄

標(biāo)簽:西安 湖州 邢臺(tái) 銅川 四平 鶴壁 文山

巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《VBScript 監(jiān)控并結(jié)束指定進(jìn)程的代碼》,本文關(guān)鍵詞  VBScript,監(jiān)控,并,結(jié)束,指定,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題,煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們,我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無(wú)關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《VBScript 監(jiān)控并結(jié)束指定進(jìn)程的代碼》相關(guān)的同類信息!
  • 本頁(yè)收集關(guān)于VBScript 監(jiān)控并結(jié)束指定進(jìn)程的代碼的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章