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

网友答:
;获取网卡号

;;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)
)

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

网友答: ;;by mmmm 提供 利用OS命令獲取ipaddress & macaddress 在LISP中直接調用
(command "_.Shell" "ipconfig /all >c:\\result.txt") 讀取文件c:\result.txt，從中找到ipaddress & macaddress

网友答: 十分感谢。

网友答: 利用DOSLIB6.1好象也可以,不用打开文本文件来寻找.

网友答: http://bbs.mjtd.com/forum.php?mod=viewthread&tid=11277

网友答: 當然也可以配合doslib

dos_ipaddress

Returns a list of local IP addresses.

Syntax

(dos_ipaddress)

Parameters

n/a

Returns

A list of strings containing the local ip addresses and subnet mask if successful.

nil on error.

Example

Command: (dos_ipaddress)

("204.177.179.67" "255.255.255.0")

dos_macaddress

Returns the system's media access control (MAC) addresses.

Syntax

(dos_macaddress)

Parameters

n/a

Returns

A strings containing the local MAC address if successful.

nil on error.

Example

Command: (dos_macaddress)

"00:00:86:4A:CF:7F"

网友答: 我怎么没有找到这个文件？

网友答:

到我的贴子里下载。

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=43579

程序函数说明

http://www.mjtd.com/data/

网友答:

到我的贴子里下载。

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=43579

程序函数说明

http://www.mjtd.com/data/

网友答: 多谢！和doslib6.1一样吗？用法呢？exe文件也一样可以加载吗？这个文件是你自己编写的吗？