strComputer = "."

WScript.Echo "Накопители:"

set objWMI = GetObject("winmgmts:\" & strComputer & "rootcimv2")

set colDisks = objWMI.ExecQuery("select * from Win32_DiskDrive")

for each objDisk in colDisks

WScript.Echo " Заголовок: " & vbTab & objDisk.Caption

WScript.Echo " ID устройства: " & vbTab & objDisk.DeviceID

WScript.Echo " Производитель: " & vbTab & objDisk.Manufacturer

WScript.Echo " Тип носителя: " & vbTab & objDisk.MediaType

WScript.Echo " Модель: " & vbTab & objDisk.Model

WScript.Echo " Имя: " & vbTab & objDisk.Name

WScript.Echo " Разделы: " & vbTab & objDisk.Partitions

WScript.Echo " Размер: " & vbTab & objDisk.Size

WScript.Echo " Состояние: " & vbTab & objDisk.Status

WScript.Echo

next