获取MAC地址

marting

1. ;;Test OK with XP
   
2. ;;Use WMI to Get Networkadapter MAC.
   
3. ;;Author :  eachy [eachy@xdcad.net]
   
4. ;;Web    :  http://www.xdcad.net
   
5. ;;2005.11.22(xdl-MACAddress)
   
6. (defun xdl-MACAddress (/ mac WMIobj con lox sn)
   
7.   (if (setq WMIobj (vlax-create-object "wbemScripting.SwbemLocator"))
   
8.     (progn
   
9.       (setq
   
10.         con (vl-catch-all-apply
    
11.               'vlax-invoke
    
12.               (list WMIobj 'ConnectServer "." "" "" "" "" "" 128 nil)
    
13.             )
    
14.       )
    
15.       (if (vl-catch-all-error-p con)
    
16.         (setq
    
17.           con (vlax-invoke WMIobj 'ConnectServer "." "" "" "" "" "")
    
18.         )
    
19.       )
    
20.       (setq lox        (vlax-invoke
    
21.                   con
    
22.                   'ExecQuery
    
23.                   "Select * From Win32_NetworkAdapter"
    
24.                 )
    
25.       )
    
26.       (vlax-for        item lox
    
27.         (if (vlax-get item 'NetConnectionID)
    
28.           (progn
    
29.             (setq sn (vlax-get item 'MACAddress))
    
30.             (or
    
31.               (member sn mac)
    
32.               (setq mac (cons sn mac))
    
33.             )
    
34.           )
    
35.         )
    
36.       )
    
37.       (mapcar 'vlax-release-object
    
38.               (list lox con WMIobj)
    
39.       )
    
40.     )
    
41.   )
    
42.   (reverse mac)
    
43. )
    
44. 
    

;;Test OK with XP<br /> ;;Use WMI to Get Networkadapter MAC.<br /> ;;Author :  eachy [<a href=\"mailto:eachy@xdcad.net\">eachy@xdcad.net</a>]<br /> ;;Web    :  <a href=\"http://www.xdcad.net\" target=\"_blank\">http://www.xdcad.net</a><br /> ;;2005.11.22(xdl-MACAddress)<br /> (defun xdl-MACAddress (/ mac WMIobj con lox sn)<br />   (if (setq WMIobj (vlax-create-object "wbemScripting.SwbemLocator"))<br />     (progn<br />       (setq<br />         con (vl-catch-all-apply<br />               'vlax-invoke<br />               (list WMIobj 'ConnectServer "." "" "" "" "" "" 128 nil)<br />             )<br />       )<br />       (if (vl-catch-all-error-p con)<br />         (setq<br />           con (vlax-invoke WMIobj 'ConnectServer "." "" "" "" "" "")<br />         )<br />       )<br />       (setq lox        (vlax-invoke<br />                   con<br />                   'ExecQuery<br />                   "Select * From Win32_NetworkAdapter"<br />                 )<br />       )<br />       (vlax-for        item lox<br />         (if (vlax-get item 'NetConnectionID)<br />           (progn<br />             (setq sn (vlax-get item 'MACAddress))<br />             (or<br />               (member sn mac)<br />               (setq mac (cons sn mac))<br />             )<br />           )<br />         )<br />       )<br />       (mapcar 'vlax-release-object<br />               (list lox con WMIobj)<br />       )<br />     )<br />   )<br />   (reverse mac)<br /> )<br /> <br />

命令: (XDL-MACADDRESS)
("48:4D:7E:F3:3C:1A" "48:4D:7E:F3:3C:29" "00:FF:6F:1F:E7:54" "F0:1E:34:14:FF:53" "00:50:56:C0:00:01" "00:50:56:C0:00:08" "00:FF:CA:D1:AB:4C" nil "20:0D:B0:41:98:E0")

CAD新军

为什么会有nil的呢