[решено] Узнать MBR или GPT

[Iska]

Даже не знаю, что и сказать... Если есть мысли - можно попробовать/по тестировать! »
\\.\PHYSICALDRIVE0, IDE\DISKSAMSUNG_SP1614N_________________________TM100-24\30533631314A5830333432363230202020202020, 160039272960
Disk #0, Partition #0, Installable File System, 16121516544
C:, NTFS, , 74E7D3A1, 16121516032
For Each objSWbemObjectEx_Win32_DiskDrive In .ExecQuery("SELECT * FROM Win32_DiskDrive")
With objSWbemObjectEx_Win32_DiskDrive
strContent = strContent & .DeviceID & ", " & .PNPDeviceID & ", " & .Size & vbCrLf
End With

For Each objSWbemObjectEx_Win32_DiskPartition In objSWbemObjectEx_Win32_DiskDrive.Associators_(, "Win32_DiskPartition")
With objSWbemObjectEx_Win32_DiskPartition
strContent = strContent & vbTab & .DeviceID & ", " & .Type & ", " & .Size & vbCrLf
End With

For Each objSWbemObjectEx_Win32_LogicalDisk In objSWbemObjectEx_Win32_DiskPartition.Associators_(, "Win32_LogicalDisk")
With objSWbemObjectEx_Win32_LogicalDisk
strContent = strContent & vbTab & vbTab & .DeviceID & ", " & .FileSystem & ", " & .VolumeName & ", " & .VolumeSerialNumber & ", " & .Size & vbCrLf
End With
Next
Next
Next

Ну проверить или предложить, я к сожалению - не могу/не знаю.... »
Ну, тут уже я знаю, можете не проверять.

P.S. под спойлером с GPT (в предыдущем сообщении) - Два системных скрытых и три не скрытых раздела!!!
Это, чтобы не вводило в заблуждения! »
Не вводит. Это примерно понятно по отсутствию подключённых логических дисков к некоторым разделам.

[KaSpieC 666]

Iska,
Спасибо, подкорректировал!
Теперь, после Disk #0, Partition #0, Installable File System, не пишет размер, так как, ниже оно его тоже пишет!
И здесь убрал C:, NTFS, , 74E7D3A1, 16121516032, не считаю нужным (для себя)
Теперь выглядит так:
C:, NTFS, , 16121516032
Пример:
\\.\PHYSICALDRIVE0, IDE\DISKSAMSUNG_SP1614N_________________________TM100-24\30533631314A5830333432363230202020202020, 160039272960
Disk #0, Partition #0, Installable File System,
C:, NTFS, , 16121516032
Disk #0, Partition #1, Extended w/Extended Int 13,
D:, NTFS, , 100488208384
E:, NTFS, , 43429445632
Теперь, только нужное, остальное не вижу смысла корректировать!
Спасибо Вам огромное.

[Iska]

KaSpieC 666, ну, вот и славненько. Можете ещё и ряд запятых, ставших теперь лишними, убрать.