Basic - Capturar el Serial de HD

Hola, necesito algun ejemplo en basic para capturar el serial de disco duro y enviarlo a un archivo.

Un saludo.

___el serial del fabriqante que es ùniqo en qada disqo no lo qonozqo aunque me gustarìa saberlo, pero el serial del Volumen que tiene qada particion que ce mira en Ms-Dos qon el qomando DIR es facil ponerlo en un archivo utilizando el Shell, esqribirìas

SHELL "Vol > teqsto.txt"

___y ya quedarìa en el archivo Teqsto.txt