WbemScripting获取属性值函数

Lisphk

1. (defun _WbemGet ( class props / locator service query temp result )
   
2. 
   
3.     (vl-catch-all-apply 'eval
   
4.        '(   (vlax-for x
   
5.                 (setq query
   
6.                     (vlax-invoke
   
7.                         (setq service
   
8.                             (vlax-invoke
   
9.                                 (setq locator (vlax-create-object "WbemScripting.SWbemLocator"))
   
10.                                 'ConnectServer "." "root\\cimv2" nil nil nil nil nil nil
    
11.                             )   
    
12.                         )
    
13.                         'ExecQuery
    
14.                         (strcat "SELECT * FROM " class)
    
15.                     )
    
16.                 )                          
    
17.                 (setq temp
    
18.                     (cons
    
19.                         (mapcar
    
20.                             (function (lambda (p) (vl-catch-all-apply 'vlax-get (list x p))))
    
21.                             (if (listp props) props (list props))
    
22.                         )
    
23.                         temp
    
24.                     )
    
25.                 )      
    
26.             )      
    
27.         )
    
28.     )
    
29. 
    
30.     (foreach x (mapcar 'list (list query service locator))
    
31.         (vl-catch-all-apply 'vlax-release-object x)
    
32.     )
    
33.    
    
34.     (foreach l temp
    
35.         (or
    
36.             (null (apply 'or l))
    
37.             (member l result)
    
38.             (setq result (cons l result))
    
39.         )
    
40.     )        
    
41. 
    
42.     (if (listp props) result (mapcar 'car result))
    
43.    
    
44. )
    

(defun _WbemGet ( class props / locator service query temp result )<br /> <br />     (vl-catch-all-apply 'eval<br />        '(   (vlax-for x<br />                 (setq query<br />                     (vlax-invoke <br />                         (setq service<br />                             (vlax-invoke <br />                                 (setq locator (vlax-create-object "WbemScripting.SWbemLocator"))<br />                                 'ConnectServer "." "root\\cimv2" nil nil nil nil nil nil<br />                             )    <br />                         )<br />                         'ExecQuery <br />                         (strcat "SELECT * FROM " class)<br />                     )<br />                 )                          <br />                 (setq temp <br />                     (cons <br />                         (mapcar <br />                             (function (lambda (p) (vl-catch-all-apply 'vlax-get (list x p))))<br />                             (if (listp props) props (list props))<br />                         ) <br />                         temp<br />                     )<br />                 )       <br />             )       <br />         )<br />     )<br /> <br />     (foreach x (mapcar 'list (list query service locator))<br />         (vl-catch-all-apply 'vlax-release-object x)<br />     )<br />     <br />     (foreach l temp<br />         (or <br />             (null (apply 'or l))<br />             (member l result)<br />             (setq result (cons l result))<br />         )<br />     )        <br /> <br />     (if (listp props) result (mapcar 'car result))<br />     <br /> )<br />

(_WbemGet "Win32_Process" '(Name ExecutablePath CommandLine))
(_WbemGet "Win32_Process" '(Name ProcessID))
(_WbemGet "Win32_Process" 'Name)