none
Serial disco duro VB:NET RRS feed

  • Pregunta

  • Hola, soy nuevo por aquí, muchas gracias por compartir tanto vuestros conocimientos, estoy empezando en la programación y me estáis siendo de muchísima ayuda. Bueno, vamos al lio.

    Estoy haciendo un programa y quiero poner una condicional sobre el  número de serie del disco duro. 

    Lo leo con el siguiente código y me lo muestra bien en el textbox:

    Dim disco As New System.Management.ManagementObject("Win32_PhysicalMedia='\\.\PHYSICALDRIVE0'")
            LBSERIAL1.Text = disco.Properties("SerialNumber").Value.ToString

    Lo que necesito es ponerle una condicional para que si el número del disco duro no es, no ejecute el programa, no se lo que hago mal, pero el MsgBox, siempre me muestra que el disco duro no es el correcto:

     If disco.Properties("SerialNumber") Is  "5WR1CEB8" Then 

       MsgBox("numero serie correcto")

            Else

                MsgBox("numero NO correcto")

    End if

    Si me podéis ayudar....

    Muchas gracias.

    sábado, 26 de mayo de 2018 17:14

Respuestas

  • Muy simple: Tienes que poner un símbolo "=" en lugar de la palabra "IS".

    El "IS" se usa para comparar tipos de clase. Para comparar cadenas de texto tienes que usar "=".

    • Marcado como respuesta Anekar domingo, 27 de mayo de 2018 17:50
    domingo, 27 de mayo de 2018 8:33

Todas las respuestas

  • Muy simple: Tienes que poner un símbolo "=" en lugar de la palabra "IS".

    El "IS" se usa para comparar tipos de clase. Para comparar cadenas de texto tienes que usar "=".

    • Marcado como respuesta Anekar domingo, 27 de mayo de 2018 17:50
    domingo, 27 de mayo de 2018 8:33
  • Muchas gracias era eso, también faltaba algo más en mi codigo:

     If disco.Properties("SerialNumber").Value.ToString = "numero serie disco duro 1 " OrElse
                disco.Properties("SerialNumber").Value.ToString = "número de serie disco duro 2" Then
                MsgBox("numero serie correcto")
            Else
                MsgBox("numero NO correcto")
            End If

    También he agregado, para que lea el  número de serie de un disco duro de un ordenador o de otro.

    domingo, 27 de mayo de 2018 17:52