//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★说★明★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
//　　　　　　　　　　 [用WMI对象列出系统所有进程]　　　　　　　　　　　　//
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★定★义★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
VBS Dim WMI,objs,obj,stt,Enum1
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★设★置★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
VBS Set WMI = GetObject("WinMgmts:")
VBS Set objs = WMI.InstancesOf("Win32_Process")
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★开★始★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
VBS stt=stt & vbcrlf & "For Each obj In objs "
VBS stt=stt & vbcrlf & "Enum1 =  Enum1 & obj.Description & vbcrlf"
VBS stt=stt & vbcrlf & "Next"
VBS Execute(stt)
VBSCall RunApp("notepad")
Delay 1000
SayExpression Enum1
EndScript 
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★备★注★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
//【符号说明】《说明》、〖标记〗、【子程序】、〓分割线〓、①分类说明⑩
//【脚本作者】一只鱼　　　　　　　　　【QQ群】5619170
//【E-Mail】ChapterRain@yahoo.com.cn　【致谢】欢迎使用鱼鱼制作的脚本!!
//【创作日期】2007.04.05　　　　　　　【完成日期】
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★结★束★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//