欧美国产另类久热|951超碰伊人久久|伊人影视久久久久|色婷婷亚洲小电影|色东京热69XX|婷婷玖玖深爱网|加勒比东京热网站|无码A级毛片在线观看|一级a毛一级a看|中文字幕人妻欧美

有時候我們需要監(jiān)控一些進程，防止一些進程的開啟，發(fā)現(xiàn)指定進程運行就關閉它，那么就可以參考下面的代碼

代碼（monprocess.vbs）：

代碼如下:

On Error Resume Next

strComputer = "."

arrTargetProcs = Array("calc.exe", "notepad.exe", "other.exe")

'數(shù)組里為要監(jiā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

更多信息請查看IT技術專欄