Visual Basic - Como evitar que me pirateen un sistema

Necesito saber como obtengo el numero de disco duro o del bios por medio de una rutina el Vb..........porfavor alguien que me ayude.....

GRacias.......

Lo siguiente te permite conocer el numero del Disco Duro.

Primero agrega alos componentes el "Microsoft SySinfo Control 6.0

luego en tu aplicacion inserta el ssiguiente codigo:

Dim fs, d, dc,varcadena

Set fs = CreateObject("Scripting.FileSystemObject")
Set dc = fs.Drives
For Each d In dc
If d.drivetype = 2 Then
varcadena = d.serialnumber
Exit For
End If
Next

El numero 2 identifica un Disco Duro.

Espero que te sirva.