Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Пример отчета по ОС..docx
Скачиваний:
15
Добавлен:
03.03.2016
Размер:
2.33 Mб
Скачать

Лабораторная работа 4

ЗАДАНИЕ 1. Составить сценарий, выполняющий резервное копирование данных согласно варианту.

Dim Cmd

Dim startTime

Dim objShell

startTime = DateDoubleToTimeString(now)

Set objShell = Wscript.CreateObject("Wscript.Shell")

Cmd = "7z.exe a h:\backup\" & startTime & "\backcopy.zip c:\*y*.txt"

objShell.Run Cmd

Function DateDoubleToTimeString(dt)

sec = (dt - int(dt)) * 86400

s = sec mod 60

if s < 10 then

s = "0" & s

end if

m = sec \ 60 mod 60

if m < 10 then

m = "0" & m

end if

h = sec \ 3600

if h < 10 then

h = "0" & h

end if

DateDoubleToTimeString = h & m & s

End Function

ЗАДАНИЕ 2. Составить сценарий, удаляющий устаревшие архивы согласно варианту.

dim i

Dim Old

Old = CLng(999999)

i=0

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _

& "{impersonationLevel=impersonate}!\\" & _

strComputer & "\root\cimv2")

Set colFiles = objWMIService.ExecQuery("Select * from Win32_Directory where Path = '\\backup\\' and Drive = 'h:'")

For Each objFile in colFiles

i=i+1

Next

Wscript.Echo "Number of backup: " & i

if i<5 then

Wscript.Echo "Creating a backup"

CreateBackup

else

Wscript.Echo "Delete a backup"

DeleteFolder

Wscript.Echo "Creating a backup"

CreateBackup

end if

sub DeleteFolder

dim min

For Each objFile in colFiles

min = objFile.FileName

FindMin(min)

Next

For Each objFile in colFiles

if CLng(objFile.FileName) = Old then

objFile.Delete()

end if

Next

end sub

sub FindMin(mini)

if old>CLng(mini) then

Old = CLng(mini)

end if

end sub

sub CreateBackup

startTime = DateDoubleToTimeString(now)

Set objShell = Wscript.CreateObject("Wscript.Shell")

Cmd = "7z.exe a h:\backup\" & startTime & "\backcopy.zip c:\*y*.txt"

objShell.Run Cmd

end sub

Function DateDoubleToTimeString(dt)

sec = (dt - int(dt)) * 86400

s = sec mod 60

if s < 10 then

s = "0" & s

end if

m = sec \ 60 mod 60

if m < 10 then

m = "0" & m

end if

h = sec \ 3600

if h < 10 then

h = "0" & h

end if

DateDoubleToTimeString = h & m & s

End Function

Приложение б. Экранные формы выполнения скриптов лабораторная работа 1

ЗАДАНИЕ 1.

Рисунок 1.1 – свойства класса Win32_VideoController

ЗАДАНИЕ 2.

Рисунок 1.2 – сбор сведений о видеокарте согласно варианту

ЗАДАНИЕ 3.

Рисунок 1.3 – открытие приложение с заданными параметрами запуска

И вывод информации о свойствах и используемых потоках приложением

ЗАДАНИЕ 4.

Рисунок 1.4 – сценарий сбора информации о процессах согласно варианту

Рисунок 1.5 – сценарий сбора информации о процессах согласно варианту и итоговое значение

ЗАДАНИЕ 5А.

Рисунок 1.6 – прекращение работы процесса «notepad.exe», имеющего низкий приоритет

Рисунок 1.7 – прекращение работы процесса «notepad.exe», имеющего низкий приоритет

ЗАДАНИЕ 5Б.

Рисунок 1.8 – прекращение работы процесса запущенного с помощью Total Commander

Рисунок 1.9 – прекращение работы процесса запущенного с помощью Total Commander

Лабораторная работа 2

ЗАДАНИЕ 1.

Рисунок 2.1– время жизни процесса “osk.exe”

Рисунок 2.2– время жизни процесса “osk.exe”

ЗАДАНИЕ 2.

Рисунок 2.3– запрет запуска процесса “osk.exe”

Тут вы можете оставить комментарий к выбранному абзацу или сообщить об ошибке.

Оставленные комментарии видны всем.