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 | |