2024年4月13日发(作者：)

获取计算机各类软硬件信息的VBS代码集合

是VBS脚本，按键使用注意哟。。。

自己不需要属性就删除吧。。可以读取所有物理硬盘！！

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _

& "{impersonationLevel=impersonate}!" & strComputer _

& "rootcimv2")

Set colDiskDrives = ery _

("Select * from Win32_DiskDrive")

For each objDiskDrive in colDiskDrives

"Bytes Per Sector: " & vbTab & _

erSector

For i = Lbound(lities) to _

Ubound(lities)

"Capabilities: " & vbTab & _

lities(i)

Next

"Caption: " & vbTab & n

"Device ID: " & vbTab & ID

"Index: " & vbTab &

"Interface Type: " & vbTab & aceType

"Manufacturer: " & vbTab & cturer

"Media Loaded: " & vbTab & oaded

"Media Type: " & vbTab & ype

"Model: " & vbTab &

"Name: " & vbTab &