Visual Basic.NET - ID del disco rigido

como puedo hacer para leer el nº de serie del disco rigido. Solo se esto pero solo da el nº de serie logico de la particion, si formateo el nº cambia

Dim disco As New System.Management.ManagementObject_("Win32_LogicalDisk.DeviceId='C:'")
str_IdDisk = Trim(str_IdDisk)
str_IdDisk = disco("VolumeSerialNumber").ToString()
despues ahi otro codigo que encontre pero no lo puedo hacer andar

Dim fso As New FileSystemObject()
ó
fso = CreateObject("Scripting.FileSystemObject")

Dim i As Scripting.Drive
Label1.Text = i.SerialNumber

si alguien me puede decir mi error o conoce otro codigo para vb.net se lo agradeseria

No cero que tengas alguna clase en .NET que te permita hacer lo que quiere, de todas maneras chequea System.IO.
Con respecto a FileSystemObject esta es una biblioetca COM que la puedes usar en .NET agregandola como una referencia a tu proyecto