[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, ну, вот и славненько. Можете ещё и ряд запятых, ставших теперь лишними, убрать.