' СОРС ЗА ФОРМАТА

' При въвеждане на формата

Private Sub Form_Load()

Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2") ' Създаваме обект, който отваря базата с данни съхраняваща информация за конфигурацията и системата

Set oss = objWMIService.ExecQuery("Select * from Win32_OperatingSystem") ' Чрез заявка извличаме информацията за операционната система

Set dtmConvertedDate = CreateObject("WbemScripting.SWbemDateTime") ' Скриптов обект за конвертиране на дати

' За всеки елемент открит като операционна система извличаме следната информация и я визуализираме в Text1

For Each os In oss

dtmConvertedDate.Value = os.InstallDate 'Присвояваме на скриптовия обект за конвертиране на дати, датата на инсталация

dtmInstallDate = dtmConvertedDate.GetVarDate ' конвертираме с метода GetVarDate подадената дата, за да стане четима и разбираема

' Визуализираме информацията в текстовото поле Text1

Text1.Text = Text1.Text & "Дата на инсталация: " & dtmInstallDate & vbCrLf

Text1.Text = Text1.Text & os.Caption & vbCrLf

Text1.Text = Text1.Text & "Версия: " & os.Version

Next

End Sub