转载一个进程监视的VBS脚本

lxzzr

1. 
   
2. On Error Resume next
   
3. if LCase(Right(WScript.FullName,11))=LCase("WScript.exe") then
   
4.     CreateObject("WScript.Shell").run _
   
5.         "CScript //nologo " & Chr(34) & WScript.ScriptFullName & Chr(34)
   
6.     WScript.Quit
   
7. end if
   
8. '================================================================================
   
9. strComputer = "."
   
10. Set objWMIService = GetObject("winmgmts:" _
    
11.     & "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")
    
12. Set colMonitoredProcesses = objWMIService. _        
    
13.     ExecNotificationQuery("select * from __instancecreationevent " _
    
14.         & " within 1 where TargetInstance isa 'Win32_Process'")
    
15. i = 0
    
16. Do While i = 0
    
17.     Set objLatestProcess = colMonitoredProcesses.NextEvent
    
18.     Wscript.Echo objLatestProcess.TargetInstance.Name
    
19.     Wscript.Echo objLatestProcess.TargetInstance.ExecutablePath
    
20.     Wscript.Echo objLatestProcess.TargetInstance.CommandLine & vbCrLf
    
21. Loop
    
22. '================================================================================
    
23. WScript.StdOut.Write vbCrLf & "Press Enter key or Ctrl+C to exit. . . "
    
24. WScript.StdIn.ReadLine
    

复制代码

将上面的代码保存为*.vbs即可

feng

请问版主，这个怎么用呀

RottenC

請問版主方面也上上代碼的註釋好嗎,爲了學習.