Другой вариант - получить MAC-адрес одной из сетевых карт в вашей системе. Это уникальный номер. Следующая процедура получает mac-адрес первой сетевой карты, а затем добавляет байты в адресе в уникальный ulong (извините за C # вместо VB.NET):
using System.Net.NetworkInformation;
NetworkInterface[] nics = NetworkInterface.GetAllNetworkInterfaces();
if (nics.Length != 0)
{
byte[] addressBytes = nics[0].GetPhysicalAddress().GetAddressBytes();
if (addressBytes.Length > 6)
throw new ApplicationException("Unexpected length for MAC address");
ulong address = 0;
foreach (byte b in addressBytes)
{
address