В этой статье показано как получить информацию об установленной операционной системе, а именно данные о названии, версии, дате установки, лицензионном ключе и тому подобном.
Код написан на VBScript и для компиляции необходимо сохранить код в файл и при помощи командной строки скомпилировать вот так:
|
1 |
wscript "Путь_к_файлу" |
Программный код с комментариями ниже:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 |
' Сайт автора - http://ProgTask.ru Option Explicit Dim oData ' Инициализация переменных Dim sInfo Set oData = GetObject("winmgmts:").InstancesOf("Win32_OperatingSystem") ' Получаем данные For Each sInfo in oData MsgBox( _ "ОС - " & sInfo.Caption & vbCrLf & _ "Service Pack - " & sInfo.CSDVersion & vbCrLf & _ "Версия - " & sInfo.Version & vbCrLf & _ "Дата установки - " & GetDate(sInfo.InstallDate) & vbCrLf & _ "Лицензионный ключ - " & sInfo.SerialNumber & vbCrLf & _ "Зарегистрирована на - " & sInfo.RegisteredUser & vbCrLf & _ "Имя компьютера - " & sInfo.CSName & vbCrLf & _ "Время последней загрузки системы - " & GetDate(sInfo.LastBootUpTime) _ ) ' Т.к. в VBS нельзя комментировать строки которые переносятся, то привожу комментарии ниже с указанием номера строки. ' 11 - Используем диалоговое окно для вывода информации ' 12 - Выводим название операционной системы ' 13 - Узнаём какой Service Pack установлен ' 14 - Информация о версии ОС ' 15 - Выводим дату и время установки ' 16 - Выводим лицензионный ключ, который был привязан к системе ' 17 - Имя пользователя, на кого активирована операционная система ' 18 - Вывод имени компьютера ' 19 - Дата и время последней загрузки ОС Next Function GetDate(sDate) ' Функция, преобразовывающую приходящую дату в одну строку в читаемый вид Dim dDate dDate = CDate(Left(sDate, 4) & "-" & Mid(sDate, 5, 2) & "-" & Mid(sDate, 7, 2) & " " & Mid(sDate, 9, 2) & ":" & Mid(sDate, 11, 2) & ":" & Mid(sDate, 13, 2)) GetDate = dDate End Function |
Результат работы:
Если есть вопросы, задавайте их в комментарии под статьёй.
Загрузка...