036. Использование серийных номеров дисков

MyTetra Share

Делитесь знаниями!

Ссылка на оригинал

Время создания: 16.03.2019 23:43

Раздел: Разные закладки - VBA - Access - leadersoft.ru

Запись: xintrea/mytetra_db_adgaver_new/master/base/15313706766bx5ivlp4f/text.html на raw.githubusercontent.com

04. У каждого компьютера в организации могут быть различные диски, имеющий свой уникальный номер. Если прочитать эту информацию, то можно создать программу, которая будет привязана к конкретному компьютеру.

Все примеры Microsoft Access

'  Получаем информацию о серийных номерах
'
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

Так же в этом разделе:

MyTetra Share v.0.65