1. //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★说★明★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
  2. //           [用WMI对象列出系统所有进程]            //
  3. //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★定★义★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
  4. (VBScript语句) Dim WMI,objs,obj,stt,Enum1
  5. //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★设★置★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
  6. (VBScript语句) Set WMI = GetObject("WinMgmts:")
  7. (VBScript语句) Set objs = WMI.InstancesOf("Win32_Process")
  8. //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★开★始★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
  9. (VBScript语句) stt=stt & vbcrlf & "For Each obj In objs "
  10. (VBScript语句) stt=stt & vbcrlf & "Enum1 = Enum1 & obj.Description & vbcrlf"
  11. (VBScript语句) stt=stt & vbcrlf & "Next"
  12. (VBScript语句) Execute(stt)
  13. 调用外部VBScript子程序 运行一个外部程序("notepad")
  14. 延时1000毫秒
  15. SayExpression Enum1
  16. 脚本停止运行
  17. //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★备★注★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
  18. //【符号说明】《说明》、〖标记〗、【子程序】、〓分割线〓、①分类说明⑩
  19. //【脚本作者】一只鱼         【QQ群】5619170
  20. //【E-Mail】ChapterRain@yahoo.com.cn 【致谢】欢迎使用鱼鱼制作的脚本!!
  21. //【创作日期】2007.04.05       【完成日期】
  22. //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★结★束★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//