FoxPro/Visual FoxPro - Serial disco duro

Buenas tardes:

Necesito saber como puedo obtener el serial del disco duro de una estacion de trabajo a travez de visual fox pro 6.0, cual quier informacion que me puedan brindar les quedare muy agradecido.

Un ejemplo:

oFS=CreateObject("scripting.filesystemobject")
PUBLIC serial,demo1
serial=oFS.Drives("c").SerialNumber

************************************FIN

Aquí lo acomodé para que funcione solo en la pc de instalación:

SELECT 1
USE serie
IF serie.serie=9
demo1=2
replace serie WITH serial
replace demo WITH demo1
WAIT WINDOW "Registrando Software, Espere un Momento..." TIMEOUT 2
WAIT WINDOW "Terminó con éxito el Registro del Software..." TIMEOUT 1.2

else
IF serie.serie=serial
else
MESSAGEBOX("Este Software es una Version no Autorizada",0+48,"Seguridad Software")
demo1=1
replace demo WITH demo1
ENDIF

CLOSE DATABASES all
ENDIF

************************************

Suerte►