用LISP怎么样获取硬盘的物理序列号？或是网卡的MAC地址？

huanghao35

好象网上有小程序下载可以任意更改网卡的MAC地址？！

(command "_.Shell" "ipconfig /all >c:\\result.txt") 会有DOS窗体出现！——怎么隐藏掉它？

sfzyr

龙龙仔 发表于 2004-3-7 23:25
;;by mmmm 提供

每个人的系统不一样，不一定是你说的这个macaddress单词

skg123

;获取网卡号

;;Test OK with XP
;;Use WMI to Get Networkadapter MAC.
;;Author : eachy [eachy@xdcad.net]
;;Web : http://www.xdcad.net
;;2005.11.22
(defun xdl-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)
)