r_a_p
05 de Enero del 2004

Trabajando con el objeto fso, supuse que podía encontrar el número de serie de un disco duro.
Utilicé la sgte rutina:

Dim fso As New FileSystemObject
Dim drv As Drive

Set drv = fso.GetDrive("C:")
Label1.Caption = drv.SerialNumber

Y efectivamente obtengo un numero de serie en este caso del disco C, solo que si formateo el disco al instalar nuevamente Windows me devuelve un número diferente.

Pregunta.- ¿Existe la forma de obtener el número de serie del disco duro, es decir uno que no cambie.?¿Cómo????

GRACIAS

maiki
05 de Enero del 2004

No lo he probado, pero échale un vistazo a este link:

http://www.experts-exchange.com/Programming/Q_20698469.html?

Saludos