Como Puedo Obtener el numero de serie de un disco

Me parece que el problema es el STR( ,9) porque haces eso ???''

Mejor utiliza Transform y sin ningun parametro adicional ...

oFS=CreateObject('scripting.filesystemobject')
cadena = Transform(oFS.Drives('c').SerialNumber)
release ofs

David Amador Tapia
Webmaster de "La Web de Davphantom"
www.davphantom.cjb.net
Cartagena. Colombia
Tel (5) 6621502 - 6581523


"Millenko" escribió en el mensaje
news:#cNv#
> Hola Amigos
>
> He estado utilizando el siguiente codigo en Visual foxpro instalado en

> plataforma Win98
>
> oFS=CreateObject('scripting.filesystemobject')
> cadena=str(oFS.Drives('c').SerialNumber,9)
> release ofs
>
> pero ahora tengo una maquina con win-XP y ya no resulta, o al menos me
trae
> caracteres como "***".
>
> me podrian ayudar.
>
> gracias de antemano
>
>