obtener el Serial del disco duro

Con el siguiente código puedes averiguar los números de serie del (o de los) disco/s:

Sub AveriguarNúmeroDeSerieDeDiscos()
Dim oWMI As Object, Discos As Object, Disco As Object
Set oWMI = GetObject("WINMGMTS:")
Set Discos = oWMI.instancesof("Win32_PhysicalMedia")

For Each Disco In Discos
MsgBox "Serie: " & Disco.serialnumber
Next

Set Disco = Nothing
Set Discos = Nothing
Set oWMI = Nothing
End Sub


Un saludo.


Fernando Arroyo
MS MVP - Excel


"Henry Sanchez" escribió en el mensaje news:15cb401c4470d$c1910470$

Hola Grupo,
Alguno de uds sabe como obtener el No serial del disco
duro desde VBA (el numero que identifica a cada disco).

Tambien estaria interesado en obtener de igual manera los
seriales, en caso de que existan de los demas perifericos:
Ram, unidad CD, Windows (este no es un periferico, pero
supongamos que lo fuera), monitor, etc.

Mi idea es verificar que una aplicacion solo funcione en
un computador determinado.

Saludos,

Henry