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 hard-disk sono univoci, per cui non è possibile trovare due ID identici (per lo meno quelli installati all'interno del pc, ma 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 sceglie il primo presente:
 Print listaID[0]
 
End