[建议]：对vla对象用得好的版主烦请改改下面的代码为lisp

fylinwater

对vla对象用得好的版主烦请改改下面的代码为lisp
WMI用实现在lisp里运行将可很大的扩展lisp的功能

2. 
   
3. Sub Enum1()
   
4.   Dim WMI
   
5.   Dim str
   
6. 
   
7.   Set WMI = GetObject("WinMgmts:")
   
8.   Set objs = WMI.InstancesOf("Win32_Process")
   
9. 
   
10.   For Each obj In objs
    
11.    
    
12.      str = str & obj.Description + Chr(13) + Chr(10)
    
13.    
    
14.   Next
    
15.    MsgBox str
    
16.    
    
17. End Sub
    

<br /> Sub Enum1()<br />   Dim WMI<br />   Dim str<br /> <br />   Set WMI = GetObject("WinMgmts:")<br />   Set objs = WMI.InstancesOf("Win32_Process")<br /> <br />   For Each obj In objs<br />     <br />      str = str & obj.Description + Chr(13) + Chr(10)<br />    <br />   Next<br />    MsgBox str<br />     <br /> End Sub<br />

eachy

1 ybvl-wmi-process 获取当前进程列表

2 ybvl-wmi-Terminate  中断某一进程，参数为程序名（含扩展名）

3 ybvl-wmi-ProcessorID 获取 CPUID

注意：仅适用安装WMI及有管理员权限的用户

下载链接 htt://eachy.ys168.com