能用lisp获得系统中的硬盘号吗？怎么获得？

suyongyu

如题

wdb

lisp不能获得硬盘序列号,但dos-lib能获得驱动器的序列号.但格式化硬盘后,序列号就会变.

spring

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

suyongyu

好像是分区的序列号。。。。。而且获的的号码好像跟windows优化大师显示的不一样

citykunan

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=11277&replyID=46900&skin=1