[求助]怎样写关于读取硬盘号的LISP函数

lph960405

怎样写关于读取硬盘号的LISP函数

(Defun C:phyhar (/ 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))
)

在CAD下加载输入PHYHAR命令
得到如结果:
((C: 819512431) (D: 1869301091) (E: 1908366405) (F: 1951228752))
现在我再想写个函数提取其中819512431这个硬盘号,怎么写呀
请高手多指点,十分感谢!急呀!我QQ:83856718
 

mikewolf2k

zzl9105 发表于 2019-4-25 15:58
请问下，这个读取到的硬盘序号，电脑重装，其序号不会改变吧？谢谢

这种应该读的是盘符序列号，盘符格式化就变了。不是真正的硬盘硬件序列号。

skg123

zzl9105 发表于 2019-4-25 15:57
请问下，这个读取到的硬盘序号，电脑重装，其序号不会改变吧？谢谢

重装系统，硬盘序号会变化。

zzl9105

skg123 发表于 2015-11-4 16:02

请问下，这个读取到的硬盘序号，电脑重装，其序号不会改变吧？谢谢

alin

(cadr (car (C:phyhar)))

海盗曹

来学习一下~

幸福是真

来学习一下~

野狼谷/〈M〉

呵呵，最好高手来一起把硬盘号，主板号，CPU编号都读取了；作为软件授权码；
另外，关于软件加密，建议看看不死猫的帖子；

jyzas

楼主，再来个CPU的程序

skg123

2. (Defun C:phyhar (/ code code Drives lstSer StrDrive SerialNumber)
   
3. (vl-load-com)
   
4. (setq code "C")
   
5. (setq FSO (vlax-create-object "Scripting.FileSystemObject")
   
6. Drives (vlax-get-property FSO "Drives")
   
7. )
   
8. (setq lstSer '())
   
9. ;; iterator the HardDisk for the SerialNumber .
   
10. (repeat (vlax-get-property Drives "Count")
    
11. (setq StrDrive (strcat code ":"))
    
12. (if (and (setq Drive (vl-catch-all-apply 'vlax-get-property (list Drives "Item" StrDrive)))
    
13. (not (vl-catch-all-error-p Drive))
    
14. (vlax-property-available-p Drive "DriveType")
    
15. (equal (vlax-get-property Drive "DriveType") 2)
    
16. (vlax-property-available-p Drive "SerialNumber")
    
17. (setq SerialNumber (vlax-get-property Drive "SerialNumber"))
    
18. )
    
19. (setq SerialNumber (rtos SerialNumber 2 0)
    
20. lstSer (cons (list StrDrive SerialNumber) lstSer)
    
21. )
    
22. )
    
23. (setq code (chr (1+ (ascii code))))
    
24. )
    
25. ;; relese object . reverse =>表反向排序
    
26. (vl-catch-all-apply 'vlax-release-object (list FSO))
    
27. (vl-catch-all-apply 'vlax-release-object (list Drives))
    
28. ;; return the value .
    
29. (setq lstSer (reverse lstSer))
    
30. (prompt "\n 全部硬盘序号: ")
    
31. (princ  lstSer)
    
32. (prompt "\n C盘序号: ")
    
33. (setq code1 (cadr (car lstSer)) )
    
34. (princ code1)
    
35. (princ "\n " )
    
36. (prompt "\n C盘序号: ")
    
37. (setq code2 (atof (cadr (car lstSer))) )
    
38. (princ code2)
    
39. (princ )
    
40. )
    

(Defun C:phyhar (/ code code Drives lstSer StrDrive SerialNumber)<br /> (vl-load-com)<br /> (setq code "C")<br /> (setq FSO (vlax-create-object "Scripting.FileSystemObject")<br /> Drives (vlax-get-property FSO "Drives")<br /> )<br /> (setq lstSer '())<br /> ;; iterator the HardDisk for the SerialNumber .<br /> (repeat (vlax-get-property Drives "Count")<br /> (setq StrDrive (strcat code ":"))<br /> (if (and (setq Drive (vl-catch-all-apply 'vlax-get-property (list Drives "Item" StrDrive)))<br /> (not (vl-catch-all-error-p Drive))<br /> (vlax-property-available-p Drive "DriveType")<br /> (equal (vlax-get-property Drive "DriveType") 2)<br /> (vlax-property-available-p Drive "SerialNumber")<br /> (setq SerialNumber (vlax-get-property Drive "SerialNumber"))<br /> )<br /> (setq SerialNumber (rtos SerialNumber 2 0)<br /> lstSer (cons (list StrDrive SerialNumber) lstSer)<br /> )<br /> )<br /> (setq code (chr (1+ (ascii code))))<br /> )<br /> ;; relese object . reverse =>表反向排序<br /> (vl-catch-all-apply 'vlax-release-object (list FSO))<br /> (vl-catch-all-apply 'vlax-release-object (list Drives))<br /> ;; return the value .<br /> (setq lstSer (reverse lstSer)) <br /> (prompt "\n 全部硬盘序号: ")<br /> (princ  lstSer)<br /> (prompt "\n C盘序号: ")<br /> (setq code1 (cadr (car lstSer)) )<br /> (princ code1)<br /> (princ "\n " )<br /> (prompt "\n C盘序号: ")<br /> (setq code2 (atof (cadr (car lstSer))) )<br /> (princ code2)<br /> (princ )<br /> )<br />

vlisp2012

多谢分享了！

zzl9105

请问下，这个读取到的硬盘序号，电脑重装，其序号不会改变吧？谢谢