用lisp读取网卡序列号

27012701

看了本论坛http://bbs.mjtd.com/forum.php?mod=viewthread&tid=62851

无痕版主的调用VBA办法读取CPU序列号，本人找了一遍，也没有找到读网卡的办法,,

用其doslib倒是可以，但我不想用ARX,只想用lisp完成（因为很容易被破解），请问大家，这个想法是否可以

最好有心人给出办法,

先谢了

willsnow1982

ET功能中的读写注册表可以完成LISP注册功能。可能对你的想法有帮助。

xshrimp

;;获取网卡地址.
;;Test OK with XP
;;Use WMI to Get Networkadapter MAC.
;;Author :  eachy [eachy@21cn.com]
;;2005.11.22

(defun get-macaddress (/ mac WMIobj serv lox sn)
  (vl-load-com)
  (setq mac '())
  (if (SETQ WMIobj (VLAX-CREATE-OBJECT "wbemScripting.SwbemLocator"))
    (progn
      (SETQ serv (VLAX-INVOKE
     WMIobj     'ConnectServer     "."
     "\\root\\cimv2"  ""     ""
     ""       ""  128     nil
    )
      )
      (setq lox (vlax-invoke
    serv
    'ExecQuery
    "Select * From Win32_NetworkAdapter "
  )
      )
      (vlax-for item lox
 (if (and (= (vlax-get item 'NetConnectionID) "本地连接") ;_中文系统
   (not
     (member (setq sn (vlax-get item 'MACAddress)) mac)
   )
     )
   (setq mac (cons sn mac))
 )
      )
      (mapcar 'vlax-release-object (list lox serv WMIobj))
    )
  )
  (reverse mac)
)

27012701

谢谢大家,这样我就可以不用doslib啦

27012701

还有一个问题,如果是多网卡怎么办呢?

JJL

27012701发表于2007-11-18 19:49:00还有一个问题,如果是多网卡怎么办呢?

我也想知道这个问题

无痕

 (vlax-for item lox
 (if (and (wcmatch (vlax-get item 'NetConnectionID) "*连接*") ;_中文系统
....

honxj

强!!!!

jxlnlsh

高手！！

egos

(vlax-for item lox
(if (and (wcmatch (vlax-get item 'NetConnectionID) "*连接*") ;_中文系统
....

如果是多网卡 是不是会返回所有网卡的物理地址？