Конференция VBStreets

**Santa** » 12.04.2006 (Ср) 5:14

Такая сисуация, как программно определить сколько жестких дисков в компе. Железных, а не логических.

**Sebas** » 12.04.2006 (Ср) 6:27

С помощь WMI

**Santa** » 12.04.2006 (Ср) 22:25

А можно какнибудь кодом побаловать, а то что такое WMI и как с ним работать мы не знаем. :cry:

**RayShade** » 13.04.2006 (Чт) 9:53

Код: Выделить всё: strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" _ & strComputer & "\root\cimv2") Set colSettings = objWMIService.ExecQuery _ ("Select * from Win32_DiskDrive") For Each objDiskDrive in colSettings i=i+1 Next WScript.Echo "There are " & i & "hard disk drives in system"

Если найдешь в MSDN описание класса Win32_DiskDrive, то сможешь также почерпнуть очень много полезной инфы про эти самые диски.

**Santa** » 20.04.2006 (Чт) 20:29

Благадарю за код, в 2k и XP работает, а в 98 нет. А желательно чтобы тоже работал, если можно. :cry:

**GSerg** » 21.04.2006 (Пт) 3:29

Качаешь WMI-клиента для 98, ставишь...

Hard Disk