numero de serie de disco !!!

Mira a ver si te sirve esto, utilizado en Windows Scripting Host (WSH)

sistema = CREATEOBJECT("Scripting.FileSystemObject")
FOR EACH disco IN sistema.drives
IF disco.isready= .T.
WAIT WINDOW "Número de serie de " + disco.driveletter+ ":\ >
"+ STR(disco.serialnumber)
ENDIF
NEXT

Salu2,
Juan Carlos

"RJ" escribió en el mensaje
news:ujSmhKZ%

hola a todos, necesito saber como se puede extraer el numero de serie de
un CD, para poderlo validar en una aplicacion que solo debe estar en el
CD. es esto posible?
alguien puede ayudarme, les agradeceria bastante.

saludos y exitos

Gracias, hago pruebas y te comento

slds.

"RJ" escribió en el mensaje
news:ujSmhKZ%

hola a todos, necesito saber como se puede extraer el numero de serie de
un CD, para poderlo validar en una aplicacion que solo debe estar en el
CD. es esto posible?
alguien puede ayudarme, les agradeceria bastante.

saludos y exitos

Ok juan lo probe y me funciona. Es decir que con eso podriamos tener
seguridad para el registro del software?
saludos
"Juankhar" escribió en el mensaje
news:Ov57ntj%

Mira a ver si te sirve esto, utilizado en Windows Scripting Host (WSH)

sistema = CREATEOBJECT("Scripting.FileSystemObject")
FOR EACH disco IN sistema.drives
IF disco.isready= .T.
WAIT WINDOW "Número de serie de " + disco.driveletter+ ":\ >
"+ STR(disco.serialnumber)
ENDIF
NEXT

Salu2,
Juan Carlos

"RJ" escribió en el mensaje
news:ujSmhKZ%
> hola a todos, necesito saber como se puede extraer el numero de serie de
> un CD, para poderlo validar en una aplicacion que solo debe estar en el
> CD. es esto posible?
> alguien puede ayudarme, les agradeceria bastante.
>
> saludos y exitos
>
>
>