硬盘的序列号？

cchin · 发表于 2004-1-29 14:18:00

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

zshqd · 发表于 2004-1-29 14:26:00

;;;用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 · 发表于 2004-1-29 22:00:00

Thanks zshqd!

硬盘的序列号？

发表回复

精选推荐