请老师帮我看看，关于获得硬盘序列号表的处理

wdmzslw

• (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)
• )
• 这段代码运行后获得了如下结果：
• 命令: (PHYHAR)((\\.\PHYSICALDRIVE0      WD-WXG1A71F4884) (\\.\CDROM0         HU00  222844))
• 我用(car (PHYHAR))提取不到第一个表里的字符，怎么回事？
  

newer

问题是出在那些\上，你去看下开源函数库的获取硬盘序列号的函数，怎么写的

http://bbs.xdcad.net/thread-708323-1-1.html

wdmzslw

newer 发表于 2017-4-14 23:24

newer老师，为什么是\的问题，什么原因呢？

newer

不只是\的事，你看你的结果
((\\.\PHYSICALDRIVE0      WD-WXG1A71F4884) (\\.\CDROM0         HU00  222844))

里面的值是什么类型呢？ 字符串不是字符串，数字不是数字，LISP不认的。

newer

你看看下面代码，获取原理和你的相同，加入了字符串处理的代码和排序（按照物理硬盘的顺序号）

1. (defun XD::SYSTEM:DiskSerialNumber( / wmi  svr  qry )
   
2.   (setq wmi (vlax-create-object "WbemScripting.SWbemLocator"))
   
3.   (setq svr (vlax-invoke wmi 'ConnectServer))
   
4.   (setq qry (vlax-invoke svr 'ExecQuery "SELECT SerialNumber,TAG FROM Win32_PhysicalMedia WHERE TAG LIKE '%PHYSICALDRIVE%'"))
   
5.   (setq str nil)
   
6.   (vlax-for i qry
   
7.     (setq str (cons (list (vl-string-subst "" "\\\\.\\" (vlax-get i 'TAG))(vl-string-trim " " (vlax-get i 'SerialNumber))) str))
   
8.   )
   
9.   (vlax-release-object qry)
   
10.   (vlax-release-object svr)
    
11.   (vlax-release-object wmi)   
    
12.   (vl-sort str '(lambda(x y)(< (car x)(car y))))
    
13. )
    
14. 
    

(defun XD::SYSTEM:DiskSerialNumber( / wmi  svr  qry )<br />   (setq wmi (vlax-create-object "WbemScripting.SWbemLocator"))<br />   (setq svr (vlax-invoke wmi 'ConnectServer))<br />   (setq qry (vlax-invoke svr 'ExecQuery "SELECT SerialNumber,TAG FROM Win32_PhysicalMedia WHERE TAG LIKE '%PHYSICALDRIVE%'"))<br />   (setq str nil)<br />   (vlax-for i qry<br />     (setq str (cons (list (vl-string-subst "" "\\\\.\\" (vlax-get i 'TAG))(vl-string-trim " " (vlax-get i 'SerialNumber))) str))<br />   )<br />   (vlax-release-object qry)<br />   (vlax-release-object svr)<br />   (vlax-release-object wmi)   <br />   (vl-sort str '(lambda(x y)(< (car x)(car y))))<br /> )<br /> <br />

命令: (XD::SYSTEM:DISKSERIALNUMBER)
(("PHYSICALDRIVE0" "TMA55DTF25XTGR") ("PHYSICALDRIVE1" "718167584100000"))

CD2016

好方法学习了