为何提取不了硬盘序列号

wsong223 · 发表于 2011-9-23 13:51:09

(defun c:ss (/ OBJW iccon col n sber)
  (vl-load-com)
  (SETQ OBJW (VLAX-CREATE-OBJECT "wbemScripting.SwbemLocator"))
  ;(SETQ iccon (VLAX-INVOKE OBJW 'ConnectServer "." ""))
  (SETQ iccon (VLAX-INVOKE    OBJW    'ConnectServer    "."    "\\root\\cimv2" ""    ""    ""       "" 128    nil    )    )
  (setq col (vlax-invoke iccon 'ExecQuery "Select * from Win32_PhysicalMedia"));;对象集合
  (vlax-dump-object col T)
  (vlax-for n Col (setq sber (vlax-get n 'SerialNumber)))
  (vlax-release-object col)
  (vlax-release-object iccon)
  (vlax-release-object objW)
  (print sber)
)
；；在有的电脑上能提取序列号，有的电脑不能，为什么，望指点

zoubo604 · 发表于 2011-9-23 17:48:27

我用VBA成功提取了的,LISP不会

wsong223 · 发表于 2011-9-29 15:49:35

有没有高手啊

whonggg · 发表于 2012-11-21 20:27:12

VBA是怎么提取的，给个代码嘛

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