Access - Necesito un numero unico de mi pc!!!

Hola!
Necesito una funcion para obtener un codigo unico de una pc ya sea del board, la bios , system model or procesador, es para evitar que copien mi aplicacion cuando la instale en una maquina.

mil gracias!!!

Puedes probar con el numero de serie del disco duro, porque CREO que cada disco tiene un numero diferente
.
Esta subrutina me funciona en VB para Excel, pero seguro que hay algo parecido en cualquier versión de Visual Basic.

Debes llamarla poniendo la letra de la unidad en el parametro "Ruta", por ejemplo:

...
InfoDisco("C:")
...

Sub InfoDisco(Ruta as String)
Dim SistArch, Disco, Msj, Tipo
Set SistArch = CreateObject("Scripting.FileSystemObject")
Set Disco = SistArch.GetDrive(SistArch.GetDriveName _
(SistArch.GetAbsolutePathName(Ruta)))
Select Case Disco.DriveType
Case 0: Tipo = "Desconocido"
Case 1: Tipo = "Extraible"
Case 2: Tipo = "Fijo"
Case 3: Tipo = "Unidad de red"
Case 4: Tipo = "CD-ROM"
Case 5: Tipo = "Disco RAM "
End Select
Msj = "Unidad " & Disco.DriveLetter & ": - " & "Tipo: " & Tipo
Msj = Msj & vbCrLf & "Num. Serie: " & Disco.SerialNumber
MsgBox Msj
End Sub

Puedes usar la propiedad DriveType haciendo un While-Loop hasta encontrar la letra de unidad del disco duro y quedarte con el numero de serie.

Suerte
Josetxu