Question

在LISP中怎样获得本机读物理序列号、主板号?

Answer 1

可以通过VLISP调用WINDOWS的API函数获得，例如以下程序（获取硬盘的序列号）：

(DEFUN PHYHAR (/ RET SERX OBJW LCCON LOX)
(VL-LOAD-COM)
(SETQ SERX '())
(IF (SETQ OBJW (VLAX-CREATE-OBJECT "wbemScripting.SwbemLocator"))
(PROGN
(SETQ LCCON (VLAX-INVOKE OBJW 'CONNECTSERVER "." "\\root\\cimv2" "" ""
"" "" 128 NIL
)
)
(SETQ LOX (VLAX-INVOKE LCCON 'EXECQUERY "Select SerialNumber,Tag from Win32_PhysicalMedia"))
(VLAX-FOR ITEM LOX (SETQ SERX (CONS (LIST (VLAX-GET ITEM 'TAG)
(VLAX-GET ITEM 'SERIALNUMBER)
) SERX
)
)
)
(VLAX-RELEASE-OBJECT LOX)
(VLAX-RELEASE-OBJECT LCCON)
(VLAX-RELEASE-OBJECT OBJW)
)
)
(PRINC (REVERSE SERX))
(PRINC)
)

Answer 2

VLISP里有这样的函数，，，你找一下呢？