Visual Basic - Leer Etiqueta del Disco Duro???

Hola amigos,
Alguien me podría decir por favor, cual es el codigo que se necesitaria escribir en VB para que un programa X, lea el número de serie de la etiqueta del Disco Duro, pues la idea es hacer que el programa solo funcione en un disco duro en particular, para tratar de evitar copias del mismo programa.

Agradezco toda la ayuda de antemano.
Gracias.

Esto puede ayudarte

Hallar la etiqueta o label del mismo disco duro:

Escribir el siguiente código:
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 Form_Load()
Dim cad1 As String * 256
Dim cad2 As String * 256
Dim numSerie As Long
Dim longitud As Long
Dim flag As Long
unidad = "D:\"
Call GetVolumeInformation(unidad, cad1, 256, numSerie, longitud,
flag, cad2, 256)
MsgBox "Label de la unidad " & unidad & " = " & cad1
End Sub

Tomado de www.elhacker.com

Saludos

ese codigo no sirve