Visual Basic - sistemas

Necesito una ayuda, estoy empezando en esto del Visual Basic y deseo saber como puedo obtener el numero de serie del disco duro de la computadora donde instalo mi programa para luego poder validar que solo corra en este disco. Gracias

Primero agrega la referencia "Microsoft Scripting Runtime"

Dim fso As New FileSystemObject, drv As Drive, s As String
Set drv = fso.GetDrive(fso.GetDriveName("c:"))
s = drv.SerialNumber