[LISP函数]：获取网卡地址

eachy

2. 
   
3. ;;Test OK with XP
   
4. ;;Use WMI to Get Networkadapter MAC.
   
5. ;;Author :  eachy
   
6. ;;Web    :  [url]http://www.xdcad.net[/url]
   
7. ;;2005.11.22
   
8. (defun xdl-MACAddress (/ mac WMIobj serv lox sn)
   
9.   (vl-load-com)
   
10.   (setq mac '())
    
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_NetworkAdapter "
    
23.                 )
    
24.       )
    
25.       (vlax-for        item lox
    
26.         (if (and (= (vlax-get item 'NetConnectionID) "本地连接") ;_中文系统
    
27.                  (not
    
28.                    (member (setq sn (vlax-get item 'MACAddress)) mac)
    
29.                  )
    
30.             )
    
31.           (setq mac (cons sn mac))
    
32.         )
    
33.       )
    
34.       (mapcar 'vlax-release-object (list lox serv WMIobj))
    
35.     )
    
36.   )
    
37.   (reverse mac)
    
38. )

<br /> ;;Test OK with XP<br /> ;;Use WMI to Get Networkadapter MAC.<br /> ;;Author :  eachy<br /> ;;Web    :  [url]http://www.xdcad.net[/url]<br /> ;;2005.11.22<br /> (defun xdl-MACAddress (/ mac WMIobj serv lox sn)<br />   (vl-load-com)<br />   (setq mac '())<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_NetworkAdapter "<br />                 )<br />       )<br />       (vlax-for        item lox<br />         (if (and (= (vlax-get item 'NetConnectionID) "本地连接") ;_中文系统<br />                  (not<br />                    (member (setq sn (vlax-get item 'MACAddress)) mac)<br />                  )<br />             )<br />           (setq mac (cons sn mac))<br />         )<br />       )<br />       (mapcar 'vlax-release-object (list lox serv WMIobj))<br />     )<br />   )<br />   (reverse mac)<br /> )

guohui.zhai

斑竹真是把LISP研究得够深入呀！佩服！
我也学了一点LISP，斑竹有没有电子版的LISP教材，能不能给我一两个学习用？

wwwdh

我的机器上怎么返回 (nil)啊？而且运行的很慢，2，3妙钟。。。

sujia

用处拿来 加密
呵 阿 ！

aeo

http://www.microsoft.com/china/t ... twork/scrnet06.mspx

wangph

斑竹再研究一下CPU和主板的吧

zctao1966

网卡MAC如果修改过了，就变成修改过的MAC了，有没有修改过了，也还是原来的MAC呢

kqqt6236

这个函数非常有用。