用VBS实现监视进程创建与删除的代码
导读：收集整理的这篇文章主要介绍了用VBS实现监视进程创建与删除的代码，觉得挺不错的，现在分享给大家，也给大家做个参考。 监视进程的创建，在每次创建新的进程时，临时事件消费程序都发出警报。 1...
收集整理的这篇文章主要介绍了用VBS实现监视进程创建与删除的代码，觉得挺不错的，现在分享给大家，也给大家做个参考。 监视进程的创建，在每次创建新的进程时，临时事件消费程序都发出警报。 1.监视进程的创建
复制代码 代码如下:
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{ imPErsonationLevel=impersonate} !\\" & strComputer & "\root\cimv2")
Set colMonIToredPRocesses = objWMIService. _
ExecNotificationQuery("select * From __instancecreationevent " _
& " within 1 where TargetInstance isa 'Win32_Process'")
i = 0
do while i = 0
Set objLatestProcess = colMonitoredProcesses.NextEvent
Wscript.Echo objLatestProcess.TargetInstance.Name
Loop
2.监视进程的删除，在每次进程终止时，临时事件消费程序都发出警报。
复制代码 代码如下:
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{ impersonationLevel=impersonate} !\\" & strComputer & "\root\cimv2")
Set colMonitoredProcesses = objWMIService. _
ExecNotificationQuery("select * from __instancedeletionevent " _
& "within 1 where TargetInstance isa 'Win32_Process'")
i = 0
Do While i = 0
Set objLatestProcess = colMonitoredProcesses.NextEvent
Wscript.Echo objLatestProcess.TargetInstance.Name
Loop
3.监视进程使用处理器的情况
复制代码 代码如下:
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{ impersonationLevel=impersonate} !\\" & strComputer & "\root\cimv2")
Set colProcesses = objWMIService.ExecQuery _
("Select * from Win32_process")
For each objProcess in colProcesses
sngProcessTime = ( CSng(objProcess.KernelModeTime) + _
CSng(objProcess.UserModeTime)) / 10000000
Wscript
参考链接：
- 监视进程的创建
- 监视进程的删除
声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！
若转载请注明出处： 用VBS实现监视进程创建与删除的代码
本文地址： https://pptw.com/jishu/609867.html