Una posibilidad es usar "diskpart" (C:\windows\system32\diskpart.exe), con el siguiente code solo pedis infomación del disco "cero" del sistema (generalmente es el que butea), pero cuidado ya que con diskpart podes desde asignar letra a una particion hasta borrarla.
Option Explicit
Private Sub Form_Load()
Me.Width = 5445
Me.Height = 5955
Text1.Width = Me.Width
Text1.Height = Me.Height
Text1.Left = 0
Text1.Top = 0
Text1 = "Esperá 5 segundos"
'Text1.MultiLine = True ' EN DISEÑO
Timer1.Interval = 500
End Sub
Private Sub Timer1_Timer()
Timer1.Enabled = False
Dim x As Long: Dim cadena As String
Open "C:\comamdos.txt" For Output As #1
Print #1, "List disk"
Print #1, "select disk=0"
Print #1, "List part"
Print #1, "exit"
Close #1
Open "C:\bat.bat" For Output As #1
Print #1, "Diskpart/s C:\comamdos.txt" & ">" & " " & "C:\Respuesta.txt"
Print #1, "exit"
Close #1
Shell "C:\bat.bat", vbHide
x = Round(Timer): While Round(Timer) < x + 5: DoEvents: Wend
Open "C:\Respuesta.txt" For Input As #1
Text1 = Input(LOF(1), #1)
Close #1
Text1 = Replace(Text1, Chr(10), vbNewLine)
Me.MousePointer = 0
x = Round(Timer): While Round(Timer) < x + 2: DoEvents: Wend
Kill ("C:\bat.bat"): Kill ("C:\Respuesta.txt"): Kill ("C:\comamdos.txt")
End Sub
PD: Si no tenes experencia en el uso de particiones te aconsejo que vayas de a poco. saludos