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

Preguntas similare

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
.

email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida