[LISP程序]：获得硬盘序列号

apollone · 发表于 2005-10-14 06:15:02

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

;;; 这段代码XP下可用,2000不行,不知为何
;;; 获得硬盘序列号
(defun c:phyhar(/ ret serx objw lccon lox)
  (defun TrimSpace (serx1)
(while (= (substr serx1 1 1) " ")
   (setq serx1 (substr serx1 2))
)
(while (= (substr serx1 (strlen serx1)) " ")
   (setq serx1 (substr serx1 1 (1- (strlen serx1))))
)
serx1
  )

  (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 serx)
  (princ)
)

eachy · 发表于 2005-10-14 06:58:35

安装WMI且要管理员权限，可以查看Microsoft MSDN网站的相关资料

whfdchst · 发表于 2005-10-14 11:59:29

没想到LISP还能干这事,配服.

aichong · 发表于 2005-10-14 12:11:39

获得硬盘序列号有什么用？

winabcd · 发表于 2005-10-14 17:01:31

什么硬盘序列号，偶不感冒，
TrimSpace函数很好，有用，我很感冒
谢谢！

cqxt00 · 发表于 2005-10-18 20:44:59

我也是遇到了同一问题没能解决

WHGF · 发表于 2005-10-19 16:26:28

是否可用于所有CAD版本，2000以上?

小菜 · 发表于 2005-10-20 12:05:09

我的WIN2000+CAD2002，也不能用，WIN2K里面本来就有WMI的呀

账号		自动登录	找回密码
密码			立即注册

[LISP程序]：获得硬盘序列号

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

浏览过的版块