Ottenere il numero di serie di un’unità disco
La libreria Microsoft Scripting Runtime Library ci permette, attraverso FileSystemObject, di ottenere diverse informazioni su unità disco installate nel computer. Per conoscere ad esempio il numero seriale di un disco, possiamo usare il codice seguente:
Private Sub NumeroSeriale
Dim fso As New Scripting.FileSystemObject
Dim c As Scripting.Drive
Set c = fso.GetDrive(“C”)
Print Hex$(c.SerialNumber)
End Sub



