Serial disco duro VB:NET

Question

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.

Answer 1

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 "=".

Answer 2

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.