Visual Basic - numero de serie disco

como hacer ver el numero de serie de tu disco duro en un text
que funcion hay que hutilizar o que api

espero que esto te sirva...

http://www.mentalis.org/apilist/GetComputerNameEx.shtml

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

disculpame de donde saco Microsoft Scripting Runtime
Gracias

En Visual Basic
Tienes que agregar la referencia Microsoft Scripting Runtime como te indico.

Menu
Proyecto
Referencias
Microsoft Scripting Runtime

Seleccionas la referencia y aceptar, ya esta agregada

Espero te sirva la ayuda.