FoxPro/Visual FoxPro - NUMERO DE SERIE DEL HD

hola AMIGOS como estan, estoy haciendo un sistemita de correos y quisiera ponerle seguridad anticopias, y lo unico que se me ocurre es capturando el numero de serie del disco duro, saben como puedo obtener ese dato usando los comandos del VFP ????

Prueba el siguiente codigo

oFS=CreateObject('scripting.filesystemobject')
nroser = oFS.Drives('d').SerialNumber
cSerie =str(nroser,20)
?'Numero de Serie: '+ (cSerie)


Suerte