久久精-久久经典视频-久久加久久-久久极品视频-一区二区福利视频-一区二区不卡在线观看

　　Physical Disk Properties這工具能夠快速檢測(cè)顯示你的物理驅(qū)動(dòng)器信息，物理驅(qū)動(dòng)器指實(shí)際安裝的驅(qū)動(dòng)器，你的電腦里的硬盤(pán)就是一個(gè)典型的物理驅(qū)動(dòng)器。同時(shí)這個(gè)工具還可以檢測(cè)你的光驅(qū)以及軟驅(qū)。

【使用說(shuō)明】

　　1、運(yùn)行后即可檢測(cè)顯示信息，包括容量大小，磁盤(pán)類(lèi)型等

【代碼分享】

　　'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