- •Содержание
- •Лабораторная работа № 1 Основы технологии Windows Management Instrumentation. Работа с процессами и потоками в wmi
- •Ход работы
- •Варианты заданий
- •Варианты заданий для запуска процесса
- •Лабораторная работа № 3 Сбор информации о памяти и планирование заданий. Работа с файловой системой
- •Ход работы
- •Варианты заданий
- •Лабораторная работа № 4 Организация резервного копирования данных с использованием wmi и vbScript
- •Лабораторная работа 2
- •Лабораторная работа 3
- •Лабораторная работа 4
- •Приложение б. Экранные формы выполнения скриптов лабораторная работа 1
- •И вывод информации о свойствах и используемых потоках приложением
- •Лабораторная работа 2
- •Лабораторная работа 3
- •Лабораторная работа 4
Лабораторная работа 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”