[LISP函数]：Get ProcessorID

eachy

2. 
   
3. ;;Test OK with XP
   
4. ;;Use WMI to Get ProcessorID
   
5. ;;Author :  eachy [eachy@xdcad.net]
   
6. ;;Web    :  [url]http://www.xdcad.net[/url]
   
7. ;;2005.11.22
   
8. (defun xdl-ProcessorID (/ IDs WMIobj serv lox sn)
   
9.   (vl-load-com)
   
10.   (setq IDs '())
    
11.   (if (SETQ WMIobj (VLAX-CREATE-OBJECT "wbemScripting.SwbemLocator"))
    
12.     (progn
    
13.       (SETQ serv (VLAX-INVOKE
    
14.                    WMIobj     'ConnectServer            "."
    
15.                    "\\root\\cimv2"         ""            ""
    
16.                    ""              ""         128            nil
    
17.                   )
    
18.       )
    
19.       (setq lox        (vlax-invoke
    
20.                   serv
    
21.                   'ExecQuery
    
22.                   "Select * from Win32_Processor"
    
23.                 )
    
24.       )
    
25.       (vlax-for        item lox
    
26.         (if (not
    
27.               (member (setq sn (vlax-get item 'ProcessorId)) IDs)
    
28.             )
    
29.           (setq IDs (cons sn IDs))
    
30.         )
    
31.       )
    
32.       (mapcar 'vlax-release-object (list lox serv WMIobj))
    
33.     )
    
34.   )
    
35.   (reverse IDs)
    
36. )

<br /> ;;Test OK with XP<br /> ;;Use WMI to Get ProcessorID<br /> ;;Author :  eachy [eachy@xdcad.net]<br /> ;;Web    :  [url]http://www.xdcad.net[/url]<br /> ;;2005.11.22<br /> (defun xdl-ProcessorID (/ IDs WMIobj serv lox sn)<br />   (vl-load-com)<br />   (setq IDs '())<br />   (if (SETQ WMIobj (VLAX-CREATE-OBJECT "wbemScripting.SwbemLocator"))<br />     (progn<br />       (SETQ serv (VLAX-INVOKE<br />                    WMIobj     'ConnectServer            "."<br />                    "\\root\\cimv2"         ""            ""<br />                    ""              ""         128            nil<br />                   )<br />       )<br />       (setq lox        (vlax-invoke<br />                   serv<br />                   'ExecQuery<br />                   "Select * from Win32_Processor"<br />                 )<br />       )<br />       (vlax-for        item lox<br />         (if (not<br />               (member (setq sn (vlax-get item 'ProcessorId)) IDs)<br />             )<br />           (setq IDs (cons sn IDs))<br />         )<br />       )<br />       (mapcar 'vlax-release-object (list lox serv WMIobj))<br />     )<br />   )<br />   (reverse IDs)<br /> )

JOSDENNIS

樓主這個程序是取cpu的內ID ? 測試了, 有點慢吞吞.