Serial del disco duro

08/07/2004 - 05:30 por Henry Sanchez | Informe spam

Hola Grupo,
Como resultado de la respuesta que Fernando me dio hace
unos dias sobre como averiguar el serial de un disco
duro, acabo de crear la siguiente Funcion:

Public Function SerialDisco() As String
Dim OWMI As Object
Dim Discos As Object

Set OWMI = GetObject("WINMGMTS:")
Set Discos = OWMI.instancesof("Win32_physicalMedia")
SerialDisco = Discos(1).serialnumber
End Function

la cual deberia devolverme el serial del disco duro de mi
computador. El problema es que en vez de devolverme este
valor, me genera un error (Error generico dice el
depurador) en la instruccion SerialDisco = Discos
(1).serialnumber

La verdad es que no entiendo muy bien este codigo y me
estoy limitando solamente a seguir las instrucciones,
pero me conformaria solamente con que funcione.

Saludos,

Henry

Siga el debate

1 respuesta

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Henry Sanchez

09/07/2004 - 01:18 | Informe spam

Hola Grupo,

Mientras me llega la respuesta (Estuve esperando todo el
dia que apareciera Fernando, pero debe estar muy
ocupado). Logre que este adefecio de codigo funcione:

Public Function SerialDisco() As String
Dim OWMI As Object
Dim Disco As Object
Dim Discos As Object

Set OWMI = GetObject("WINMGMTS:")
Set Discos = OWMI.instancesof("Win32_physicalMedia")
For Each Disco In Discos
SerialDisco = Disco.serialnumber
Exit For
Next Disco

Tuve que reeplazar la instruccion
SerialDisco = Discos(1).serialnumber
por el bucle For Each, que por lo menos me funciona.

Saludos,

Henry

Hola Grupo,
Como resultado de la respuesta que Fernando me dio hace
unos dias sobre como averiguar el serial de un disco
duro, acabo de crear la siguiente Funcion:

Public Function SerialDisco() As String
Dim OWMI As Object
Dim Discos As Object

Set OWMI = GetObject("WINMGMTS:")
Set Discos = OWMI.instancesof("Win32_physicalMedia")
SerialDisco = Discos(1).serialnumber
End Function

la cual deberia devolverme el serial del disco duro de

computador. El problema es que en vez de devolverme este
valor, me genera un error (Error generico dice el
depurador) en la instruccion SerialDisco = Discos
(1).serialnumber

La verdad es que no entiendo muy bien este codigo y me
estoy limitando solamente a seguir las instrucciones,
pero me conformaria solamente con que funcione.

Saludos,

Henry
.

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida