04. У каждого компьютера в организации могут быть различные диски, имеющий свой уникальный номер. Если прочитать эту информацию, то можно создать программу, которая будет привязана к конкретному компьютеру.
' Получаем информацию о серийных номерах
'
Private Sub Form_Load()
Dim fs, dc, D, s As String
On Error Resume Next
s = ""
' Получаем информацию о файловой системе
Set fs = CreateObject("Scripting.FileSystemObject")
Set dc = fs.Drives
For Each D In dc
s = s D.DriveLetter ": серийный номер: " D.SerialNumber ";"
Err.Clear
Next D
Me.myList.RowSource = s
End Sub