ну а "неуникальный"?,
например тот, который использует Windows для создания установочного кода (вместе с уникальным серийным номером)?

Dim diskClass As New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive"
Dim disk As System.Management.ManagementObject
Dim s As String
For Each disk In diskClass.Get()
   s &= (disk("eviceID" &  ControlChars.CrLf)
Next disk
        MsgBox(s)

class Win32_BIOS : CIM_BIOSElement
{
  uint16 BiosCharacteristics[];
  string BIOSVersion[];
  string BuildNumber;
  string Caption;
  string CodeSet;
  string CurrentLanguage;
  string Description;
  string IdentificationCode;
  uint16 InstallableLanguages;
  datetime InstallDate;
  string LanguageEdition;
  String ListOfLanguages[];
  string Manufacturer;
  string Name;
  string OtherTargetOS;
  boolean PrimaryBIOS;
  datetime ReleaseDate;
  string SerialNumber;
  string SMBIOSBIOSVersion;
  uint16 SMBIOSMajorVersion;
  uint16 SMBIOSMinorVersion;
  boolean SMBIOSPresent;
  string SoftwareElementID;
  uint16 SoftwareElementState;
  string Status;
  uint16 TargetOperatingSystem;
  string Version;
};


class Win32_DiskDrive : CIM_DiskDrive
{
  uint16 Availability;
  uint32 BytesPerSector;
  uint16 Capabilities[];
  string CapabilityDescriptions[];
  string Caption;
  string CompressionMethod;
  uint32 ConfigManagerErrorCode;
  boolean ConfigManagerUserConfig;
  string CreationClassName;
  uint64 DefaultBlockSize;
  string Description;
  string DeviceID;
  boolean ErrorCleared;
  string ErrorDescription;
  string ErrorMethodology;
  uint32 Index;
  datetime InstallDate;
  string InterfaceType;
  uint32 LastErrorCode;
  string Manufacturer;
  uint64 MaxBlockSize;
  uint64 MaxMediaSize;
  boolean MediaLoaded;
  string MediaType;
  uint64 MinBlockSize;
  string Model;
  string Name;
  boolean NeedsCleaning;
  uint32 NumberOfMediaSupported;
  uint32 Partitions;
  string PNPDeviceID;
  uint16 PowerManagementCapabilities[];
  boolean PowerManagementSupported;
  uint32 SCSIBus;
  uint16 SCSILogicalUnit;
  uint16 SCSIPort;
  uint16 SCSITargetId;
  uint32 SectorsPerTrack;
  uint32 Signature;
  uint64 Size;
  string Status;
  uint16 StatusInfo;
  string SystemCreationClassName;
  string SystemName;
  uint64 TotalCylinders;
  uint32 TotalHeads;
  uint64 TotalSectors;
  uint64 TotalTracks;
  uint32 TracksPerCylinder;
};

class  Win32_Processor : CIM_Processor
{
  uint16 AddressWidth;
  uint16 Architecture;
  uint16 Availability;
  string Caption;
  uint32 ConfigManagerErrorCode;
  boolean ConfigManagerUserConfig;
  uint16 CpuStatus;
  string CreationClassName;
  uint32 CurrentClockSpeed;
  uint16 CurrentVoltage;
  uint16 DataWidth;
  string Description;
  string DeviceID;
  boolean ErrorCleared;
  string ErrorDescription;
  uint32 ExtClock;
  uint16 Family;
  datetime InstallDate;
  uint32 L2CacheSize;
  uint32 L2CacheSpeed;
  uint32 LastErrorCode;
  uint16 Level;
  uint16 LoadPercentage;
  string Manufacturer;
  uint32 MaxClockSpeed;
  string Name;
  string OtherFamilyDescription;
  string PNPDeviceID;
  uint16 PowerManagementCapabilities[];
  boolean PowerManagementSupported;
  string ProcessorId;
  uint16 ProcessorType;
  uint16 Revision;
  string Role;
  string SocketDesignation;
  string Status;
  uint16 StatusInfo;
  string Stepping;
  string SystemCreationClassName;
  string SystemName;
  string UniqueId;
  uint16 UpgradeMethod;
  string Version;
  uint32 VoltageCaps;
};

А чем мои предложения плохи?