物理驱动器信息检测
本帖最后由 20011010wo 于 2016-9-2 22:37 编辑利用VBScript，再包装了一下，有的数据可能有点小问题。
'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
源码呢
删了
页:
[1]