FoxPro/Visual FoxPro - Serial del disco duro 2

Saludos.

Hace me dijeron que en una pagina de programacion salian instrucciones para averiguar el serial del disco duro pero cuando lo intento correr no funciona. Probe haciendo adaptaciones para correr la rutina dentro de un objeto boton pero nada. Probe como una funcion y nada.

Hay alguna alternativa ?? Gracias por tu valiosa ayuda

AKIKO

Yo uso éste:

oFS=CreateObject("scripting.filesystemobject")
LOCAL serial
?=oFS.Drives("c").SerialNumber

Es muy practico ya que no necesita tanto codigo. Por lo general lo tengo en un programa.prg, despues de que tengo la serie del disco duro lo paso a una tabla.
Todo esto lo hago al iniciar el Programa principal.prg que se ejecuta justo antes de abrir un formulario o menu.

Suerte►

Saludos

Gracias por tu ayuda pero el código me regresa un valor negativo grande y sin decimales. No entiendo ese valor retornado. Dime por favor que significa

Gracias por tu respuesta

AKIKO