获得硬盘序列号

Lisphk

1. (defun HDSerial ( drive / fso drv ser )
   
2.   (vl-catch-all-apply
   
3.     (function
   
4.       (lambda nil
   
5.         (setq fso (vlax-create-object "Scripting.FileSystemObject")
   
6.               drv (vlax-invoke-method fso 'getdrive drive)
   
7.               ser (vlax-get-property drv 'serialnumber)
   
8.         )
   
9.       )
   
10.     )
    
11.   )
    
12.   (if drv (vlax-release-object drv))
    
13.   (if fso (vlax-release-object fso))
    
14.   ser
    
15. )
    

(defun HDSerial ( drive / fso drv ser )<br />   (vl-catch-all-apply<br />     (function<br />       (lambda nil<br />         (setq fso (vlax-create-object "Scripting.FileSystemObject")<br />               drv (vlax-invoke-method fso 'getdrive drive)<br />               ser (vlax-get-property drv 'serialnumber)<br />         )<br />       )<br />     )<br />   )<br />   (if drv (vlax-release-object drv))<br />   (if fso (vlax-release-object fso))<br />   ser<br /> )<br />

另外一个：

1. (defun HDSerial ( / wmi srv drv ser )
   
2.   (vl-catch-all-apply
   
3.     (function
   
4.       (lambda ( )
   
5.         (if
   
6.           (setq wmi (vlax-create-object "WbemScripting.SWbemLocator")
   
7.                 srv (vlax-invoke wmi 'connectserver nil nil nil nil nil nil nil nil)
   
8.                 drv (vlax-invoke srv 'execquery "Select SerialNumber from Win32_DiskDrive")
   
9.           )
   
10.           (vlax-for item drv
    
11.             (vlax-for prop (vlax-get item 'Properties_)
    
12.               (if (eq "SERIALNUMBER" (strcase (vlax-get prop 'name)))
    
13.                 (setq ser (vl-string-trim " " (vlax-get prop 'value)))
    
14.               )
    
15.             )
    
16.           )
    
17.         )
    
18.       )
    
19.     )
    
20.   )
    
21.   (if drv (vlax-release-object drv))
    
22.   (if srv (vlax-release-object srv))
    
23.   (if wmi (vlax-release-object wmi))
    
24.   ser
    
25. )
    

(defun HDSerial ( / wmi srv drv ser )<br />   (vl-catch-all-apply<br />     (function<br />       (lambda ( )<br />         (if<br />           (setq wmi (vlax-create-object "WbemScripting.SWbemLocator")<br />                 srv (vlax-invoke wmi 'connectserver nil nil nil nil nil nil nil nil)<br />                 drv (vlax-invoke srv 'execquery "Select SerialNumber from Win32_DiskDrive")<br />           )<br />           (vlax-for item drv<br />             (vlax-for prop (vlax-get item 'Properties_)<br />               (if (eq "SERIALNUMBER" (strcase (vlax-get prop 'name)))<br />                 (setq ser (vl-string-trim " " (vlax-get prop 'value)))<br />               )<br />             )<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (if drv (vlax-release-object drv))<br />   (if srv (vlax-release-object srv))<br />   (if wmi (vlax-release-object wmi))<br />   ser<br /> )<br />

huangpc27

这个非常不错！