FoxPro/Visual FoxPro - Leer No. de Serie del Volumen

Hola a todos, espero que esten bien, Necesito saber como leer el No. de Serie del Volumen o Disco en la cual estoy trabajando, esto para un sistema de seguridad en mi sistema en vfp7.

Gracias Anticipadas
Angel

Hola de la seccion PREGUNTAS Y RTAS. de ese site, obtuve lo siguiente, espero que te sirva

Function CaptNroSerie
** Simplemente ejecuto un comando de DOS y
** que se guarde en archivo texto.
Run Vol > Cla.Dat
** Asigno ese archivo texto a un Memo
NroSerie = MemoRead( "Cla.Dat" )
** Saco la partesita de la linea que me interesa
NroSerie = Right( AllTrim( MemoLine( NroSerie, 50, 3 )), 9 )
** La transformo a numerico y ya esta!!!
NroSerie = Transform( NroSerie, "@B" )
Run Del Cla.Dat
Return( NroSerie)

Suerte