Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Serial del disco duro

08/07/2004 - 05:30 por Henry Sanchez | Informe spam
Ayuda Hacer una pregunta
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
email Siga el debateRespuesta 1 respuestaRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

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


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
.

Preguntas similares

 

Busqueda sugerida :