Visual Basic - System Serial Number Please

Como puedo, mediante algun tipo de codigo, ir a Start, Control Panel, System y coger el numero de el sistema. Y si este numero no es el mismo en otro ordenador que la forma no corra?

Por favor ayuda

En la registry: HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion

el valor ProductID, con las API's de la registry lo obtenes:

Public Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long

Public Declare Function RegQueryInfoKey Lib "advapi32.dll" Alias "RegQueryInfoKeyA" (ByVal hKey As Long, ByVal lpClass As String, lpcbClass As Long, ByVal lpReserved As Long, lpcSubKeys As Long, lpcbMaxSubKeyLen As Long, lpcbMaxClassLen As Long, lpcValues As Long, lpcbMaxValueNameLen As Long, lpcbMaxValueLen As Long, lpcbSecurityDescriptor As Long, lpftLastWriteTime As FILETIME) As Long

Public Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long

la info que necesitas se encuentra en el registro del sistema, dentro de la clave
es un proceso un poquitin complicado (al menos para mi,ya que no se mucho de VB). antes de continuar te aconsejo HACERLE UNA COPIA DE SEGURIDAD AL REGISTRO. (aunque solamente vas a leer un dato, nunca esta demas hacerlo cuando se trabaja con el registro. ahorra muchos dolores de cabeza)

HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion.

aca dentro tenes unas cuantas opciones para ver. y utiles por cierto

RegisteredOwner"="Diego" ## nombre del dueño de la licencia
RegisteredOrganization"="" ##empresa "" "" " " "" ""
ProductId"="53336-000-0295741-14511" ##ACA!! ESTA ES !!
"LicensingInfo"=""
"SubVersionNumber"=" "
"SystemRoot"="C:\\WINDOWS"
"ProductName"="Microsoft Windows ME"
"RegDone"=""
"FirstInstallDateTime"=hex:61,47,7b,2e
"Version"="Windows Millennium Edition"