' СОРС ЗА ФОРМАТА
' При въвеждане на формата
Private Sub Form_Load()
Set objWMIService
= GetObject("winmgmts:\\.\root\CIMV2") '
Създаваме обект, който отваря базата с данни съхраняваща информация за
конфигурацията
Set colItems =
objWMIService.ExecQuery("SELECT * FROM Win32_DiskDrive", , 48) 'Заявка за извличане на информация за дисковете
'Визуализация на извлечената информация за всеки намерен
елемент
For Each objItem
In colItems
j = j + 1
Text1.Text = Text1.Text & "ДИСК -
" & j & ":" & vbCrLf
Text1.Text =
Text1.Text & "Сериен номер: " & Replace(objItem.SerialNumber,
" ", "") & vbCrLf
Text1.Text =
Text1.Text & "Модел: " & objItem.Model & vbCrLf &
vbCrLf
Next
End Sub