硬盘的序列号？

cchin

以前我在这里看见过读硬盘序列号的LISP程序，现在找不到了，麻烦各位高手帮助找一下，在下先谢谢了！

zshqd

;;;用VLISP获取硬盘系列号
;;;(GET_DRIVE_SN "c")
(defun get_drive_sn (drive / FILSYS driveobj)
(vl-load-com)
(setq FILSYS (vlax-create-object "Scripting.FileSystemObject"))
(if (/= (vlax-invoke-method FILSYS "DriveExists" drive) :vlax-false)
(progn
(setq driveobj (vlax-invoke-method FILSYS "GetDrive" drive))
(vlax-get-property driveobj "SerialNumber")
)
nil
)
)

cchin

Thanks zshqd!