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

(DEFUN PHYHAR (/ RET SERX OBJW LCCON LOX)

(SETQ SERX '())

(IF (SETQ OBJW (VLAX-CREATE-OBJECT

"))

(PROGN

(SETQ LCCON (VLAX-INVOKE OBJW 'CONNECTSERVER