На сколько дисков разделен винчестер?

[Star Cat]

Здравствуйте!
Как узнать, на сколько дисков разделен винчестер? Проблемы возникают если винчестеров несколько. Допустим, имеется два винчестер и три диска C:\ D:\ E:\

[ANDLL]

Всем поможет wmi

[SLIM]

Всем поможет wmi

[offtopic]ANDLL уже не первый раз вижу эту замечательную аббревиатуру WMI. Не хочешь написать статью по использованию (я то как-то раз пользовался, но все же интересно почитать подробней) [/offtopic]

[alibek]

Перенес.
Первое предупреждение.

[ANDLL]

но все же интересно почитать подробней

Я сейчас занят написанием бакалаврского диплома, так что не до статей про WMI
Но даже когда у меня будет время, не понимаю к чему писать ЕЩЕ ОДНУ статью про то, про что и так написано огромное множество статей...

[awl100Alex]

Как узнать, на сколько дисков разделен винчестер?

Код: Выделить всё

Private Sub Form_Load()
Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_DiskDrive", , 48)
For Each objItem In colItems
   Print "-----------------------------------------"
   Print "InterfaceType: " & objItem.InterfaceType
   Print "Model: " & objItem.Model
   Print "Partitions: " & objItem.Partitions
Next
End Sub

[dr.MIG]

Информация о дисках и разделах.

SLIM, здесь есть с примерами и ссылками на более подробные источники.

[SLIM]

SLIM, здесь есть с примерами и ссылками на более подробные источники.

Черт возьми, толи я невнимательно читал твой блог, толи давно читал...в любом случае респект за такую нужную вещь.
З.Ы. А я то думал о чем это ANDLL имел ввиду, говоря "еще одну"

[dr.MIG]

Кстати, если не ошибаюсь, то на основном сайте тоже есть стать(я/и) по WMI.

[Star Cat]

Информация о дисках и разделах.

SLIM, здесь есть с примерами и ссылками на более подробные источники.

Спасибо, за исходник «SystemInfo»!