• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    VBScript 监控并结束指定进程的代码
    运行效果图:



    代码(monprocess.vbs):

    复制代码 代码如下:

    On Error Resume Next

    strComputer = "."
    arrTargetProcs = Array("calc.exe", "notepad.exe", "other.exe")
    '数组里为要监视的进程名

    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定期监控 值个班,定期瞄一下
    • 磁盘IO利用率监控VBS脚本(windows)
    • VBScript 监控磁盘更改事件实现代码
    • VBS监控CPU的使用率(如占用率一直维持在80%超过30秒则运行某程序)
    • 网络接口利用率监控VBS脚本代码(Windows)
    • 进程监控实现代码[vbs+bat]
    • 用VBS调用程序并对程序的运行情况进行监控的两个代码
    • 如何使用vb 监控电脑活动记录
    上一篇:VBScript之通过对比注册表查找隐藏的服务
    下一篇:VBScript 输出中的对齐实现方法
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

    VBScript 监控并结束指定进程的代码 VBScript,监控,并,结束,指定,