（XD::SYSTEM:DiskSerialNumber）获取所有硬盘序列号

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 FROM Win32_DiskDrive"))
   
5.   (setq str nil)
   
6.   (vlax-for i qry
   
7.     (setq str (cons (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.   (reverse str)
    
13. )
    

(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 FROM Win32_DiskDrive"))<br />   (setq str nil)<br />   (vlax-for i qry<br />     (setq str (cons (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 />   (reverse str)<br /> )<br />

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