注册
登录
| 关键词： nbsp WScript objLatestProcess TargetInstance colMonitoredProc objWMIService strComputer Echo Set esses |
On Error Resume nextif LCase(Right(WScript.FullName,11))=LCase("WScript.exe") then CreateObject("WScript.Shell").run _ "CScript //nologo " & Chr(34) & WScript.ScriptFullName & Chr(34) WScript.Quitend if'================================================================================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 = 0Do While i = 0 Set objLatestProcess = colMonitoredProcesses.NextEvent Wscript.Echo objLatestProcess.TargetInstance.Name Wscript.Echo objLatestProcess.TargetInstance.ExecutablePath Wscript.Echo objLatestProcess.TargetInstance.CommandLine & vbCrLfLoop'================================================================================WScript.StdOut.Write vbCrLf & "Press Enter key or Ctrl+C to exit. . . "WScript.StdIn.ReadLine |
|
声明：文章版权归原作者所有 部分文章转自互联网 如有侵权请联系
[邮箱地址] 删除
|
