Лаба 5 Написание сценаиев

Министерство образования Республики Беларусь

Учреждение образования

«Белорусский государственный университет информатики и радиоэлектроники»

Кафедра информационных интеллектуальных технологий

Лабораторная работа №5

по предмету:

«Средства и методы обеспечения информационной безопасности»

на тему:

«Написание сценариев»

Выполнил:	ст. гр. 821701 Омельченко Ю. М.
Принял:	Захаров В. В.

Минск 2010

Задание:

• Получить практические навыки создания и работы со сценариями.

• Создать свой сценарий изменяющий параметры пользователя:

  • Определить ключ в реестре

• Оформить отчёт и описать работу скрипта.

Ход работы:

1. После авторизации от пользователя Tutor (iDash) я зашёл в редактор реестра:

2. Изучив всю его структуру, я решил взять следующее задание: Написать сценарий изменения имени Корзины в системе. Именно в системе, т.к. после моего поиска по реестру записей, отвечающих за него, я нашёл, что по умолчанию имя хранится в некотором системном файле, из которого и берется название. Моей целью было найти где указывается этот файл. Результат был наёден здесь: (в поле LocalizedString)

3. Я начал изучив базисный чинтекс языка VB Script принялся за написание сценария меняющего эту запись в реестре: (Далее привожу мой исходный код с комментариями)

' VBScript source code

' Омельченко Юрий гр. 821701

' Этот скрипт изменяет имя корзины в реестре системы

' Декларация функции вызова окна предупреждения

Call Att()

'Декларируем переменные

Dim WSHShell, RegKey, LocalizedString, Result

'Получаем доступ к реестру

Set WSHShell = CreateObject("WScript.Shell")

'Задаём путь к кусту:

RegKey = "HKEY_CLASSES_ROOT\CLSID\{645FF040-5081-101B-9F08-00AA002F954E}\"

'Считываем текущее значение переменной

LocalizedString = WSHShell.RegRead(RegKey &"LocalizedString")

Result = MsgBox("Текущее имя корзины: " + LocalizedString + vbNewLine + "Желаете переименовать?", vbOKCancel + vbInformation, "Внимание")

'Если нажали кнопку OK

If Result = vbOK Then

' Окно ввода нового имени

LocalizedString = inputbox ("Укажите новое имя корзины", "Переименование корзины", "Recycle Bin")

'Присваиваем значению переменной новое имя

WSHShell.RegWrite RegKey & "LocalizedString", LocalizedString

End If

'Передаём фокус на рабочий стол

WSHShell.AppActivate "Program Manager"

'Обновляем

WSHShell.SendKeys "{F5}"

Wscript.Quit

'Выводим окошко подтверждения на изменение реестра.

Sub Att()

Dim intDoIt

intDoIt = MsgBox("Это изменит имя корзины", vbOKCancel + vbInformation, "Подтверждение запуска сценария")

If intDoIt = vbCancel Then

Wscript.Quit

End If

End Sub

4. Писал в блокноте. Сохранил изменения в файле “RB.vbs”

5. Пошагово опишу работу программы:

• При запуске пользователь оповещается, что сценарий запущен

• Ему предлагается изменить имя корзины:

• При согласии выводится окно ввода нового имени (по умолчанию Recycle Bin):

• Для примера я ввёл имя “Trash”:

• Но нас интересует самое главное – реестр:

Вывод:

В данной лабораторной работе были изучены многие параметры настройки реестра системы, на примере ОС Windows XP. Были изучены основные разделы реестра, функции за которые они отвечают и способы их изменения.

Просмотрев многие разделы (реестра собственной системы), сделал вывод, что здесь «кладбище многих программ». К сожалению, производители зачастую не беспокоятся о «чистом» удалении.

Изучил базовые парадигмы VB Script, написал собственный пример программы.

Также убедился, что можно накладывать ограничения на изменение разделов реестра.

Наблюдал взаимосвязь групповой политики и состоянием реестра.