[讨论]：能否用vlisp取出硬盘的序列号

playboy

能否用vlisp取出硬盘的序列号

eachy

最初由 playboy 发布
[B]能否用vlisp取出硬盘的序列号 [/B]

置顶帖子中有链接

2. [php]
   
3. ;|
   
4. 函数名: VxGetDriveInfos
   
5. 功  能: 返回选择磁盘信息
   
6. Copyright:   ?001 MENZI ENGINEERING GmbH, Switzerland
   
7. 参数[类型]:
   
8.    Drv = 盘符, 如. "C" 或 "C:" [字串]
   
9. 返回值[类型]:
   
10.   磁盘信息 '(TotalSize FreeSpace DriveType FileSystem SerialNumber ShareName VolumeName) [表]
    
11. 说明:
    
12.   - TotalSize (kB) [实数] 磁盘空间或 network share.
    
13.   - FreeSpace (kB) [REAL] 空闲空间 or network share.
    
14.   - DriveType [INT]
    
15.      0 = "Unknown"
    
16.      1 = "Removable"
    
17.      2 = "Fixed"
    
18.      3 = "Network"
    
19.      4 = "CD-ROM"
    
20.      5 = "RAM Disk"
    
21.   - FileSystem [STR]  磁盘系统格式, 如. "FAT", "NTFS", "CDFS".
    
22.   - SerialNumber [INT] Returns the serial number used to uniquely identify a disk volume.
    
23.   - ShareName [STR]  Returns the network share name (UNC) for the specified drive. If it's
    
24.                      not a network drive, ShareName returns a zero-length string ("").
    
25.   - VolumeName [STR] 卷标
    
26.      0 The drive doesn't exist.
    
27.      1 The drive is not ready. For removable-media drives and CD-ROM drives,
    
28.      VxGetDriveInfos returns -1 when the appropriate media is not inserted
    
29.      or not ready for access.
    
30. 注意: 需要 ScrRun.dll.
    
31. |;
    
32. (defun VxGetDriveInfos (Drv / DrvObj FilSys RetVal)
    
33.   (setq        FilSys (vlax-create-object "Scripting.FileSystemObject")
    
34.         RetVal (cond
    
35.                  ((= (vlax-invoke FilSys "DriveExists" Drv) 0) 0)
    
36.                  ((setq DrvObj (vlax-invoke FilSys "GetDrive" Drv))
    
37.                   (cond
    
38.                     ((= (vlax-get DrvObj "IsReady") 0) -1)
    
39.                     ((list
    
40.                        (/ (vlax-get DrvObj "TotalSize") 1000.0)
    
41.                        (/ (vlax-get DrvObj "FreeSpace") 1000.0)
    
42.                        (vlax-get DrvObj "DriveType")
    
43.                        (vlax-get DrvObj "FileSystem")
    
44.                        (vlax-get DrvObj "SerialNumber")
    
45.                        (vlax-get DrvObj "ShareName")
    
46.                        (vlax-get DrvObj "VolumeName")
    
47.                      )
    
48.                     )
    
49.                   )
    
50.                  )
    
51.                )
    
52.   )
    
53.   (if DrvObj
    
54.     (vlax-release-object DrvObj)
    
55.   )
    
56.   (vlax-release-object FilSys)
    
57.   RetVal
    
58. )[/php]
    

[php]<br /> ;|<br /> 函数名: VxGetDriveInfos<br /> 功  能: 返回选择磁盘信息<br /> Copyright:   ?001 MENZI ENGINEERING GmbH, Switzerland<br /> 参数[类型]:<br />    Drv = 盘符, 如. "C" 或 "C:" [字串]<br /> 返回值[类型]:<br />   磁盘信息 '(TotalSize FreeSpace DriveType FileSystem SerialNumber ShareName VolumeName) [表]<br /> 说明:<br />   - TotalSize (kB) [实数] 磁盘空间或 network share.<br />   - FreeSpace (kB) [REAL] 空闲空间 or network share.<br />   - DriveType [INT]<br />      0 = "Unknown"<br />      1 = "Removable"<br />      2 = "Fixed"<br />      3 = "Network"<br />      4 = "CD-ROM"<br />      5 = "RAM Disk"<br />   - FileSystem [STR]  磁盘系统格式, 如. "FAT", "NTFS", "CDFS".<br />   - SerialNumber [INT] Returns the serial number used to uniquely identify a disk volume.<br />   - ShareName [STR]  Returns the network share name (UNC) for the specified drive. If it's<br />                      not a network drive, ShareName returns a zero-length string (""). <br />   - VolumeName [STR] 卷标<br />      0 The drive doesn't exist.<br />      1 The drive is not ready. For removable-media drives and CD-ROM drives,<br />      VxGetDriveInfos returns -1 when the appropriate media is not inserted<br />      or not ready for access.<br /> 注意: 需要 ScrRun.dll.<br /> |; <br /> (defun VxGetDriveInfos (Drv / DrvObj FilSys RetVal)<br />   (setq        FilSys (vlax-create-object "Scripting.FileSystemObject")<br />         RetVal (cond<br />                  ((= (vlax-invoke FilSys "DriveExists" Drv) 0) 0)<br />                  ((setq DrvObj (vlax-invoke FilSys "GetDrive" Drv))<br />                   (cond<br />                     ((= (vlax-get DrvObj "IsReady") 0) -1)<br />                     ((list<br />                        (/ (vlax-get DrvObj "TotalSize") 1000.0)<br />                        (/ (vlax-get DrvObj "FreeSpace") 1000.0)<br />                        (vlax-get DrvObj "DriveType")<br />                        (vlax-get DrvObj "FileSystem")<br />                        (vlax-get DrvObj "SerialNumber")<br />                        (vlax-get DrvObj "ShareName")<br />                        (vlax-get DrvObj "VolumeName")<br />                      )<br />                     )<br />                   )<br />                  )<br />                )<br />   )<br />   (if DrvObj<br />     (vlax-release-object DrvObj)<br />   )<br />   (vlax-release-object FilSys)<br />   RetVal<br /> )[/php]<br />

playboy

谢谢斑竹的帮助
mac地址如何取呀