Adrian
30 de Enero del 2004

Necesito extraer el numero o el codigo del disco duro es para poner seguridad a los programas.

gracias de antemano por su ayuda

en?
30 de Enero del 2004

a ver si es esto lo que quieres:

si necesitas capturar el número de serie de, por ejemplo, tu disco duro "C", una manera sería así:

Dim Fs As Object
Dim Unidad As Object

Set Fs = CreateObject("Scripting.FileSystemObject")
Set Unidad = Fs.GetDrive("c")

MsgBox "Número de serie de la unidad 'C': " & Unidad.SerialNumber


saludos