Visual Basic - Obtener el numero de serie

De antemano le agradezco mucho a la persona quien me ayude en solucionar este problema. Lo que necesito es obtener el número de serie del disco duro o de la tarjeta madre

hola eso solo lo podras obternet con las API de Windows incristalas en tu codigo de vb

Obtener label del HD:

Private Declare Function GetVolumeInformation& Lib "kernel32" Alias
"GetVolumeInformationA" (ByVal lpRootPathName As String,
ByVal pVolumeNameBuffer As String, ByVal nVolumeNameSize As Long,
lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long,
lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String,
ByVal nFileSystemNameSize As Long)

Private Sub ObtenerLabel()
Dim sCad1 As String * 256
Dim sCad2 As String * 256
Dim nSerie As Long
Dim nLen As Long
Dim nFlag As Long
Dim sUni as string
sUni = "C:\"
Call GetVolumeInformation(sUni, sCad1, 256, nSerie, nLen,nFlag, sCad2, 256)
MsgBox "El label de la unidad " & sUni & " es " & cad1
End Sub

Muchas gracias por ayudarme