RESPONDER UNA PREGUNTA

Si para responder la pregunta, crees necesario enviar un archivo adjunto, puedes hacerlo a traves del correo [email protected]

    Pregunta:  62055 - SERIAL DE FABRICA DISCO DURO
Autor:  Carlos Molina
Saludos foristas. Tengo un programa hecho en visual basic 6.0 que lee el serial de fabrica del disco duro:
Dim wmi As Object
Dim mos As Object
Dim mo As Object
Set wmi = GetObject("winmgmts:\. ootcimv2")

cCadWMI = "Select * from Win32_PhysicalMedia"

Set oSistema = wmi.ExecQuery(cCadWMI)

For Each disco In oSistema
Text1.Text = Text1.Text & Chr(13) & " Serial de fabrica :" + disco.Serialnumber
Next

Me funciona de maravilla, pero ahora tengo una maquina con 3 disco duros y necesito saber cual es la letra del disco que le corresponde el serial. Ayuda por favor, como hago ya provee colocando driveletter, path, name, etc. y ninguna me funciona. Que estoy haciendo mal?...


Nombre
Apellidos
Correo
Comentarios