Tus programas con Key de seguridad

Codigo Visual Basic

Private Sub Command1_Click()
Dim objs
Dim obj
Dim WMI
Dim strMBD

Set WMI = GetObject("WinMgmts:")
Set objs = WMI.InstancesOf("Win32_BaseBoard")
For Each obj In objs
  strMBD = "MotherBoard Number:  " & obj.SerialNumber
Next
 Label1.Caption = strMBD
End Sub