物理驱动器信息检测

20011010wo

利用VBScript，再包装了一下 ，有的数据可能有点小问题。
Physical Disk Properties.exe (329 KB, 下载次数: 214)

2016-9-2 20:54 上传

点击文件名下载附件

1. 'Physical Disk Properties
   
2. 
   
3. strComputer = "."
   
4. Set objWMIService = GetObject("winmgmts:" _
   
5.     & "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")
   
6. Set colDiskDrives = objWMIService.ExecQuery _   
   
7.     ("Select * from Win32_DiskDrive")
   
8. 
   
9. For each objDiskDrive in colDiskDrives
   
10.     Wscript.Echo "Caption: " & vbTab &  objDiskDrive.Caption & vbCrLf &  _
    
11.    "Device ID: " & vbTab &  objDiskDrive.DeviceID & vbCrLf &  _
    
12.    "Index: " & vbTab &  objDiskDrive.Index & vbCrLf &  _
    
13.    "Interface Type: " & vbTab & objDiskDrive.InterfaceType & vbCrLf &  _
    
14.    "Manufacturer: " & vbTab & objDiskDrive.Manufacturer & vbCrLf &  _
    
15.    "Media Loaded: " & vbTab  & objDiskDrive.MediaLoaded & vbCrLf &  _
    
16.    "Media Type: " & vbTab &  objDiskDrive.MediaType & vbCrLf &  _
    
17.    "Model: " & vbTab &  objDiskDrive.Model & vbCrLf &  _
    
18.    "Name: " & vbTab &  objDiskDrive.Name & vbCrLf &  _
    
19.    "Partitions: " & vbTab & objDiskDrive.Partitions & vbCrLf &  _
    
20.    "PNP DeviceID: " & vbTab &  objDiskDrive.PNPDeviceID & vbCrLf &  _
    
21.    "SCSI Bus: " & vbTab &  objDiskDrive.SCSIBus & vbCrLf &  _
    
22.    "SCSI Logical Unit: " & vbTab &  _
    
23.         objDiskDrive.SCSILogicalUnit & vbCrLf &  _
    
24.    "SCSI Port: " & vbTab &  objDiskDrive.SCSIPort & vbCrLf &  _
    
25.    "SCSI TargetId: " & vbTab &  objDiskDrive.SCSITargetId & vbCrLf &  _   
    
26.    "Sectors Per Track: " & vbTab &  _
    
27.         objDiskDrive.SectorsPerTrack & vbCrLf &  _              
    
28.    "Size: " & vbTab &  objDiskDrive.Size & vbCrLf &  _     
    
29.    "Status: " & vbTab &  objDiskDrive.Status & vbCrLf &  _         
    
30.    "Total Cylinders: " & vbTab &  _
    
31.         objDiskDrive.TotalCylinders & vbCrLf &  _         
    
32.    "Total Heads: " & vbTab &  objDiskDrive.TotalHeads & vbCrLf &  _   
    
33.    "Total Sectors: " & vbTab &  objDiskDrive.TotalSectors & vbCrLf &  _
    
34.    "Total Tracks: " & vbTab &  objDiskDrive.TotalTracks & vbCrLf &  _
    
35.    "Tracks Per Cylinder: " & vbTab &  _
    
36.         objDiskDrive.TracksPerCylinder  
    
37. Next

复制代码

nkc3g4

源码呢

20011010wo

nkc3g4 发表于 2016-9-2 21:11
源码呢

删了