读取电脑硬盘物理序列号的问题

wangph · 发表于 2006-11-5 14:06:00

网上有一个可以读取电脑硬盘物理序列号的函数，可当电脑同时有2个硬盘时，或当电脑插上一个移动硬盘时，就读不出来了，请问该如何修改，望高手指教。

;;在XP下测试通过
(defun phyhar (/ ret serx objw lccon lox)
(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 (reverse serx))
(princ)
)

wangph · 发表于 2006-11-10 17:56:00

求高手指点一下吧

HuaiYu · 发表于 2006-11-10 20:05:00

Please try following example:

(Defun C:TT1 (/ code code Drives lstSer StrDrive SerialNumber)
(vl-load-com)
(setq code "C")
(setq FSO    (vlax-create-object "Scripting.FileSystemObject")
Drives (vlax-get-property FSO "Drives")
)
(setq lstSer '())
;; iterator the HardDisk for the SerialNumber .
(repeat (vlax-get-property Drives "Count")
    (setq StrDrive (strcat code ":"))
    (if (and (setq Drive (vl-catch-all-apply 'vlax-get-property (list Drives "Item" StrDrive)))
      (not (vl-catch-all-error-p Drive))
      (vlax-property-available-p Drive "DriveType")
      (equal (vlax-get-property Drive "DriveType") 2)
      (vlax-property-available-p Drive "SerialNumber")
      (setq SerialNumber (vlax-get-property Drive "SerialNumber"))
)
      (setq SerialNumber (rtos SerialNumber 2 0)
     lstSer (cons (list StrDrive SerialNumber) lstSer)
      )
    )
    (setq code (chr (1+ (ascii code))))
)
;; relese object  .
(vl-catch-all-apply 'vlax-release-object (list FSO))
(vl-catch-all-apply 'vlax-release-object (list Drives))
;; return the value .
(princ(reverse lstSer))
)

nameld001 · 发表于 2006-11-10 20:25:00

好高深的问题，我还没学到那个步，什么时候用到硬盘物理序列号呢？

HuaiYu · 发表于 2006-11-10 21:18:00

这个其实也是还算相对简单的。连 Help 文档中都有，找到过了没有?

还有DBX,ADO,DAO,ODBC等东西都可以用LISP做呢...

一步一步的来，明年这个时候我就相信你能做这个东西，或者还要更早。

看得出你也是技术上的一个狂热分子！

nameld001 · 发表于 2006-11-10 21:29:00

哈哈，谢谢Huaiyu大侠的指教，你说的我只会ADO其它都没有没会，这里是真是个好地方！

wangph · 发表于 2006-11-11 09:20:00

这个程序我运行了一下，结果重复了一次，但我想要的是硬盘的物理序列号，不是逻辑盘的序列号，请再指教。

rongyifei · 发表于 2006-11-11 20:28:00

这个先在口袋,慢慢学习!

wangph · 发表于 2006-11-12 14:06:00

我试验出来了，但是DELL有批机子是读不出的，不知道是不是硬盘本身原因。

HuaiYu · 发表于 2006-11-12 16:41:00

请楼主发上来让我们学习一下??

谢谢

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