|
本帖最后由 20011010wo 于 2016-9-2 22:37 编辑
利用VBScript,再包装了一下
,有的数据可能有点小问题。
Physical Disk Properties.exe
(329 KB, 下载次数: 855)
- 'Physical Disk Properties
- strComputer = "."
- Set objWMIService = GetObject("winmgmts:" _
- & "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")
- Set colDiskDrives = objWMIService.ExecQuery _
- ("Select * from Win32_DiskDrive")
- For each objDiskDrive in colDiskDrives
- Wscript.Echo "Caption: " & vbTab & objDiskDrive.Caption & vbCrLf & _
- "Device ID: " & vbTab & objDiskDrive.DeviceID & vbCrLf & _
- "Index: " & vbTab & objDiskDrive.Index & vbCrLf & _
- "Interface Type: " & vbTab & objDiskDrive.InterfaceType & vbCrLf & _
- "Manufacturer: " & vbTab & objDiskDrive.Manufacturer & vbCrLf & _
- "Media Loaded: " & vbTab & objDiskDrive.MediaLoaded & vbCrLf & _
- "Media Type: " & vbTab & objDiskDrive.MediaType & vbCrLf & _
- "Model: " & vbTab & objDiskDrive.Model & vbCrLf & _
- "Name: " & vbTab & objDiskDrive.Name & vbCrLf & _
- "Partitions: " & vbTab & objDiskDrive.Partitions & vbCrLf & _
- "PNP DeviceID: " & vbTab & objDiskDrive.PNPDeviceID & vbCrLf & _
- "SCSI Bus: " & vbTab & objDiskDrive.SCSIBus & vbCrLf & _
- "SCSI Logical Unit: " & vbTab & _
- objDiskDrive.SCSILogicalUnit & vbCrLf & _
- "SCSI Port: " & vbTab & objDiskDrive.SCSIPort & vbCrLf & _
- "SCSI TargetId: " & vbTab & objDiskDrive.SCSITargetId & vbCrLf & _
- "Sectors Per Track: " & vbTab & _
- objDiskDrive.SectorsPerTrack & vbCrLf & _
- "Size: " & vbTab & objDiskDrive.Size & vbCrLf & _
- "Status: " & vbTab & objDiskDrive.Status & vbCrLf & _
- "Total Cylinders: " & vbTab & _
- objDiskDrive.TotalCylinders & vbCrLf & _
- "Total Heads: " & vbTab & objDiskDrive.TotalHeads & vbCrLf & _
- "Total Sectors: " & vbTab & objDiskDrive.TotalSectors & vbCrLf & _
- "Total Tracks: " & vbTab & objDiskDrive.TotalTracks & vbCrLf & _
- "Tracks Per Cylinder: " & vbTab & _
- objDiskDrive.TracksPerCylinder
- Next
复制代码
|
|