物理驱动器信息检测

20011010wo · 发表于 2016-9-2 20:54:27

本帖最后由 20011010wo 于 2016-9-2 22:37 编辑

利用VBScript，再包装了一下

，有的数据可能有点小问题。
Physical Disk Properties.exe

'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

nkc3g4 · 发表于 2016-9-2 21:11:39

源码呢

20011010wo · 发表于 2016-9-2 22:07:32

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

删了