[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 (в предыдущем сообщении) - Два системных скрытых и три не скрытых раздела!!! Это, чтобы не вводило в заблуждения! »

Не вводит. Это примерно понятно по отсутствию подключённых логических дисков к некоторым разделам.