MyTetra Share
Делитесь знаниями!
036. Использование серийных номеров дисков
16.03.2019
23:43
Раздел: !Закладки - VBA - Access - leadersoft.ru

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 In dc
        s = s & D.DriveLetter & ": серийный номер: " & D.SerialNumber & ";"
        Err.Clear
    Next D
    Me.myList.RowSource = s
End Sub

Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования