obtener el Serial del disco duro

31/05/2004 - 14:49 por Henry Sanchez | Informe spam
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
 

Leer las respuestas

#1 Fernando Arroyo
31/05/2004 - 15:24 | Informe spam
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

Preguntas similares