FoxPro/Visual FoxPro - Deseo conseguir el # de serie de un disco duro

Hola amigos, favor indicarme como puedo leer y capturar el numero de serie de un disco duro.
Gracias.

recuerda que para mi NS=Número de serie (se me ocurrio para este ejercicio)

1.Crea una tabla llamada NS
con un campo llamado NS tico caracter de 50 de longitud

2. pon esto en un PRG llamado NS y escribe o copia lo siguiente:
**************
close all
set stat off
set talk off
set safe off

run dir *.x /p >ns.idx

use ns exclu
zap
append from ns.idx type sdf for '-'$ns
xns=subs(ns,at('-',ns)-4,9)
repl ns with xns
index on ns to ns.idx
brows noapp noedit nodele
close all
set stat on
set safe on
set talk on

****************
la ultima instruccion de indexar es para no dejar rastro de la obtencion del numero de serie... espero me escribas para que me platiques como te fue... saludos (Mexico, D.F.)

Hola amigo Victor, gracias por tu valiosa ayuda; efectivamente con esa rutina se consigue el numero de serie del volumen del disco duro, pero yo en realidad me referia al numero de serie de fabricacion del disco duro, dado que el numero de serie del volumen se puede cambiar al gusto con un utilitario que se obtiene gratis de la internet.
No se si lo que estoy solicitando es factible conseguir, por favor informame si sabes algo.
Saludos
(PERU)

Con la funciona API GetVolumeSerialNumber, aqui puedes ver un ejemplo:

http://www.experts-exchange.com/Programming/Q_20698469.html