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

Gracias como siempre Fernando.

Voy a ensayar, pero antes una duda:
Es necesario dentro de este codigo asignarles el valor
nothing a las tres variables?
Tenia entendido que una vez termine el procedimiento,
esto se hace en forma automatica.

Saludos,

Henry

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

.

No, no es necesario. Lo que pasa es que (como ya he comentado alguna otra vez), yo me he acostumbrado a "vaciar" los objetos que uso, de forma que cuando estoy redactando el código, cada vez que escribo la instrucción para crearlo, automáticamente escribo la instrucción para "vaciarlo".
Un saludo.


Fernando Arroyo
MS MVP - Excel


"Henry Sanchez" escribió en el mensaje news:15b9501c4472c$63ed0f70$
Gracias como siempre Fernando.

Voy a ensayar, pero antes una duda:
Es necesario dentro de este codigo asignarles el valor
nothing a las tres variables?
Tenia entendido que una vez termine el procedimiento,
esto se hace en forma automatica.

Saludos,

Henry