Visual Basic - extaer serial del disco duro

hola, necesito saber como extraer la serial o nombre del disco duro con codigos visual basic, por favor ayudar con urgencia.

gonzalo ulloa

Primero agrega la referencia "Microsoft Scripting Runtime"

Dim fso As New FileSystemObject, drv As Drive, s As String
Set drv = fso.GetDrive(fso.GetDriveName("c:"))
s = drv.SerialNumber

Hola cecilia sabes ejecute tu codigo y me arroja un numero serial, lo que pasa es que me fije en msdos para obtener la serial del disco y me da otro.

pregunta: con tu codigo que es lo que se obtiene.

Es exactamente lo mismo, solo que el método SerialNumber devuelve la representación decimal y en la ventana de comandos se muestra en hexadecimal. Es solo la representación numérica el valor es el mismo.

hola, ando buscando como extraer el numero de serie del HD o de office en una celda de una hoja de calculo de excel para poder protegerla y solo funciones en la computadora donde se instalo, pero no logro integrarlo y la verdad no se como hacerlo ya ue no programacion, espero tengas tiempo para poder ayudarme, saludos. Ya he buscado en internet algo parecido para poder proteger mi archivo pero no logro encontrar ninguna ayuda. De antemano muchas gracias.

pero este codigo te sirve pero si lo qeu quieres proteger un exe, pero si es un office es complicado que puedas protegerlo xq te lo podrian abrir ...