Identificare univocamente un computer

Per identificare univocamente un computer si potrà adottare la soluzione di leggere il codiice identificativo dell'HDD. Infatti gli ID degli harddisk sono univoci, per cui non è possibile trovare due ID identici (perlomento quelli installati all'interno del pc e non quelli esterni usb, che vengono gestiti da un proprio hardware).
Si leggerà, dunque, il primo file-device presente nella cartella di sistema "/dev/disk/by-id".

Vediamo un semplicissimo esempio pratico:

Public Sub Main()
 
 Dim listaID as String[]
 Dim id As String
 
 listaID = Dir("/dev/disk/by-id").Sort(gb.Ascent)
 
' Avendo ottenuto la lista degli HDD in modo ordinato, si scegli il primo presente:
 Print listaID[0]
 
End