vbs监事进程,结束运行
2013-11-30 15:53
239 查看
strComputer = "." arrTargetProcs = Array("calc.exe", "notepad.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
结束,运行任务管理器,结束wscript
搜索MP3
strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" _ & strComputer & "\root\cimv2") Set colFiles = objWMIService. _ ExecQuery("Select * from CIM_DataFile where Extension = 'mp3'") For Each objFile in colFiles Wscript.Echo objFile.Name Next
相关文章推荐
- Linux 运行jar ,后台进程运行jar 和结束后台正在运行的jar
- 用vbs等实现辅助网站的后台运行工作进程(三)
- LINUX查看进程开始时间、结束时间、运行时间
- 1.写多进程,一个父进程,两个子进程,一个运行ls –l, 另一个暂停5s,父进程先阻塞等待第一个子进程的结束,然后用非阻塞等另一个进程退出,收集到第二个子进程结束的信息,父进程就返回。
- 【vs2015】C++ 程序运行并等待进程结束
- LINUX查看进程开始时间、结束时间、运行时间
- 用vbs等实现辅助网站的后台运行工作进程(四)
- VBS命令-进程操作代码(检测进程, 结束进程)
- linux 结束 系统内运行的所有java进程(可同时停止websphere)
- ubuntu 中如何查看正在运行的进程以及结束进程
- Linux 运行jar ,后台进程运行jar 和结束后台正在运行的jar
- 用vbs等实现辅助网站的后台运行工作进程
- Delphi写的等待进程运行结束函数
- shell脚本实现某一进程是否运行结束的监控
- LINUX查看进程开始时间、结束时间、运行时间
- VC程序中如何结束系统正在运行的其他进程
- 结束进程和重新启动的vbs脚本
- 用VBS实现脚本结束进程与防止进程启动
- Windows下结束进程运行的4种方法