社区 › AutoLISP/Visual LISP 编程技术 › [求助]怎样获取网卡(MAC)地址?

luoxb 发表于 2006-10-3 20:05:00

[求助]怎样获取网卡(MAC)地址?

<FONT face=宋体 size=2>请问各位,在CAD 2002版本下怎样获取网卡(MAC)地址?<BR>用MAC地址验证加密,如果别人修改MAC地址就无效,有没有更好的加密方法??</FONT>

wzh 发表于 2006-10-3 21:09:00

<P>;获取网卡号 </P>
<P>;;Test OK with XP <BR>;;Use WMI to Get Networkadapter MAC.<BR>;;Author : eachy <BR>;;Web : <A href="http://www.xdcad.net/" target="_blank" >http://www.xdcad.net</A> <BR>;;2005.11.22 <BR>(defun xdl-MACAddress (/ mac WMIobj serv lox sn) <BR>&nbsp; (vl-load-com) <BR>&nbsp; (setq mac '()) <BR>&nbsp; (if (SETQ WMIobj (VLAX-CREATE-OBJECT "wbemScripting.SwbemLocator")) <BR>&nbsp;&nbsp;&nbsp; (progn (SETQ serv (VLAX-INVOKE WMIobj 'ConnectServer "." "<A href="file://root//cimv2" target="_blank" >\\root\\cimv2</A>" "" "" "" "" 128 nil)) <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq lox (vlax-invoke serv 'ExecQuery "Select * From Win32_NetworkAdapter ")) <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (vlax-for item lox <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (if (and (= (vlax-get item 'NetConnectionID) "本地连接") ;中文系统<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (not (member (setq sn (vlax-get item 'MACAddress)) mac)) <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ) <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq mac (cons sn mac)) <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ) <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ) <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (mapcar 'vlax-release-object (list lox serv WMIobj)) <BR>&nbsp;&nbsp;&nbsp; ) <BR>&nbsp; ) <BR>&nbsp; (reverse mac) <BR>)&nbsp; <BR></P>

龙龙仔 发表于 2006-10-4 08:36:00

<P>繁体系统是</P>
<P>(= (vlax-get ITEM 'NETCONNECTIONID)"区域连线") ; "本地连接")</P>

luoxb 发表于 2006-10-4 13:21:00

<P>我试了,楼上的方法很好,谢谢!!</P>
<P>我自己也写了个获取MAC的函数,不足之处在于:要显示DOS对话框,并第一运行有点问题.,供大家参考:</P>
<P>;;用shell 命令获取 MAC 地址</P>
<P>(defun macaddress(/ rr filename commandstr fi macaddress)<BR>&nbsp; (setq macaddress "")<BR>&nbsp; <BR>&nbsp; (setq filename "C:/WINDOWS/system32/dmss32.txt")<BR>&nbsp; (setq commandstr "ipconfig /all &gt;")<BR>&nbsp; (setq commandstr (strcat commandstr filename))<BR>&nbsp; (command "_.Shell" commandstr)<BR>&nbsp; <BR>&nbsp; (setq fi (open filename "r")) ;;这里第一运行的时候打开不了文件,不知为什么<BR>&nbsp; (if (= fi nil) (exit) )<BR>&nbsp; (repeat 27 (setq rr (read-line fi)))<BR>&nbsp; (setq macaddress (substr rr 45 17))<BR>&nbsp; <BR>&nbsp; (if (/= fi nil)&nbsp; close(fi))<BR>&nbsp; <BR>&nbsp; (reverse macaddress)<BR>)</P>
<P>&nbsp;</P>

luoxb 发表于 2006-10-7 10:54:00

在WIN2000系统下函数xdl-MACAddress 不能用,是什么原因啊?

wltools 发表于 2006-10-8 08:58:00

<P>4楼的问题：</P>
<P>(command "_.Shell" commandstr) 发出命令后，lsp程序会继续执行，而不是等到dos命令结束后再执行。<BR></P>

WJQ6080 发表于 2006-10-9 11:36:00

<P>请问,没有上网的计算机有没有网卡号呢?</P>

xazhji 发表于 2006-10-9 20:13:00

没有网卡就没有mac ，与是否上网没关系

xiobird 发表于 2006-10-10 08:09:00

<P>厉害厉害啊!</P>

HuaiYu 发表于 2006-10-10 19:23:00

<P>请问 龙龙仔 版主：</P>
<P>&nbsp;在 Win 2000下面 </P>
<P>SETQ serv (VLAX-INVOKE WMIobj 'ConnectServer "." "<A href="file://root//cimv2" target="_blank" ><FONT color=#000000>\\root\\cimv2</FONT></A>" "" "" "" "" 128 il)) <BR>这里的参数怎么设置啊?</P>
<P>还请知道的指点一下小弟.....</P>

查看完整版本: [求助]怎样获取网卡(MAC)地址?