Modos de proteger mi app (Licencias)

[bieres]

Hola JuaNiNNaio

Código:

Imports System.Management

Friend Shared Function LeePlaca() As Object
        Dim salida(2) As String
        Try
            Dim mos As New ManagementObjectSearcher("root\CIMV2", "SELECT * FROM Win32_BaseBoard")
            For Each mo As ManagementObject In mos.Get()
                Try
                    salida(0) = mo.GetPropertyValue("SerialNumber").ToString
                    salida(1) = mo.GetPropertyValue("Manufacturer").ToString()
                    salida(2) = mo.GetPropertyValue("Product").ToString()
                Catch
                End Try
            Next
            Return salida
        Catch ex As Exception
            Return Nothing
        End Try
    End Function