Ver Mensaje Individual
  #11 (permalink)  
Antiguo 19/03/2011, 09:49
Avatar de bieres
bieres
 
Fecha de Ingreso: marzo-2011
Mensajes: 63
Antigüedad: 8 años, 8 meses
Puntos: 5
Respuesta: Modos de proteger mi app (Licencias)

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