手机
当前位置:查字典教程网 >脚本专栏 >vbs >用VBS实现监视进程创建与删除的代码
用VBS实现监视进程创建与删除的代码
摘要:监视进程的创建,在每次创建新的进程时,临时事件消费程序都发出警报。1.监视进程的创建复制代码代码如下:strComputer="."Seto...

监视进程的创建,在每次创建新的进程时,临时事件消费程序都发出警报。

1.监视进程的创建

复制代码 代码如下:

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _

& "{impersonationLevel=impersonate}!" & strComputer & "rootcimv2")

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 & "rootcimv2")

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 & "rootcimv2")

Set colProcesses = objWMIService.ExecQuery _

("Select * from Win32_process")

For Each objProcess in colProcesses

sngProcessTime = ( CSng(objProcess.KernelModeTime) + _

CSng(objProcess.UserModeTime)) / 10000000

Wscript

参考链接:

监视进程的创建 监视进程的删除 参考: http://hi.baidu.com/%B1%F9%D0%C4%B3%D5/blog/item/5691a1c3146ded55b219a861.html http://demon.tw/programming/vbs-monitoring-process-creation-and-deletion.html

【用VBS实现监视进程创建与删除的代码】相关文章:

用vbs控制iis创建虚拟目录的代码

PDF的VBS小程序代码

用vbs实现的exe2swf工具脚本代码

用vbscript脚本实现返回 IP 配置数据的代码

利用VBS脚本自动创建计算机帐户的代码

用VBS检测U盘插入与弹出事件的代码

利用vbs类实现css按钮的代码

IE中用VBScript不提示直接打印的代码

用VBS修改远程桌面3389端口并添加到Windows防火墙的代码

用vbs实现的强制杀进程的脚本

精品推荐
分类导航