ПРИЛОЖЕНИЕ А. ЛИСТИНГИ ФАЙЛОВ СКРИПТОВ К ЛАБ. РАБОТАМ

ЛАБОРАТОРНАЯ РАБОТА 1

ЗАДАНИЕ 1. Составить сценарий получения списка свойств для заданного класса (табл. 1).

dim objService, colNetworkAdapters, objItem

dim VideoInfo, objClassProperty

dim FSO, TempPath, TxtFile

Set objService = GetObject("WinMgmts:\\.\Root\CIMV2")

Set colNetworkAdapters = objService.ExecQuery("SELECT * FROM Win32_VideoController")

VideoInfo = "Video Controller Info" & vbCrLf & vbCrLf

' Начинаем перебор коллекции

For Each objItem in colNetworkAdapters

' Начинаем перебор всех свойств для текущего экземпляра класса WMI

For Each objClassProperty In objItem.Properties_

' Если значение больше 0

If Len(objClassProperty.value)>0 Then

VideoInfo = VideoInfo & objClassProperty.Name &"= " & objClassProperty.value &vbCrLf

End If

Next

VideoInfo = VideoInfo & "----------------------------------------------" &vbCrLf &vbCrLf

Next

ShowInNotepad(VideoInfo)

'Процедура для открытия файла с данными класса Win32_Process

Sub ShowInNotepad(StrToFile)

dim temp_file, txt_file, FSO, WshShell

'Ссылка на объект FileSystemObject

set FSO = WScript.CreateObject("Scripting.FileSystemObject")

' 'Ссылка на объект WScript.Shell

set WshShell = WScript.CreateObject("WScript.Shell")

temp_file = WshShell.ExpandEnvironmentStrings("%TEMP%") & "\" & FSO.GetTempName

Set txt_file = FSO.CreateTextFile(temp_file)

txt_file.WriteLine(StrToFile)

txt_file.Close

WshShell.Run "notepad.exe " & temp_file

End Sub

ЗАДАНИЕ 2. Составить сценарий сбора сведений о подключенных устройствах, согласно варианту (табл. 1).

On Error Resume Next

Set objService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2")

If Err.Number <> 0 Then

WScript.Echo Err.Number & ": " & Err.Description

WScript.Quit

End If

For Each objVideo In objService.ExecQuery("SELECT * FROM Win32_VideoController")

res = res & "Current Number Of Colors: " &objVideo.CurrentNumberOfColors & vbCrLf

res = res & "Current Refresh Rate, Hz: " &objVideo.CurrentRefreshRate & vbCrLf

res = res & "Adapter DAC Type: " &objVideo.AdapterDACType & vbCrLf

Next

ShowInNotepad(res)

'Процедура для открытия файла с данными класса Win32_Process

Sub ShowInNotepad(StrToFile)

dim temp_file, txt_file, FSO, WshShell

'Ссылка на объект FileSystemObject

set FSO = WScript.CreateObject("Scripting.FileSystemObject")

' 'Ссылка на объект WScript.Shell

set WshShell = WScript.CreateObject("WScript.Shell")

temp_file = WshShell.ExpandEnvironmentStrings("%TEMP%") & "\" & FSO.GetTempName

Set txt_file = FSO.CreateTextFile(temp_file)

txt_file.WriteLine(StrToFile)

txt_file.Close

WshShell.Run "notepad.exe " & temp_file

End Sub

ЗАДАНИЕ 3. Составить сценарий запуска процесса согласно варианту

const HIGH = 128

dim objClass, objService, objStartup, objConfig, objProcess, objThread

dim colProcesses, colThreads

dim res, op

On Error Resume Next

Set objClass = GetObject("winmgmts:Win32_Process")

If Err.Number <> 0 Then

res = res & Err.Number & ": " & Err.Description

WScript.Quit

End If

Set objService = GetObject("winmgmts:" _

& "{impersonationLevel=impersonate}!\\.\root\CIMV2")

If Err.Number <> 0 Then

res = res & Err.Number & ": " & Err.Description

WScript.Quit

End If

Set objStartup = objService.Get("Win32_ProcessStartup")

Set objConfig = objStartup.SpawnInstance_

objConfig.ShowWindow = 1

objConfig.PriorityClass = HIGH

dim crtime

Res = objClass.Create("C:\Program Files (x86)\Microsoft Office\Office14\WINWORD.exe", Null, objConfig, PID)

crtime = now()

If Res <> 0 Then

res = res & "Код ошибки: " & Res

End If

Set colProcesses = objService.ExecQuery (_

"SELECT * FROM Win32_Process WHERE Name = 'WINWORD.exe'")

For Each objProcess In colProcesses

res = res & "Path: " & objProcess.ExecutablePath & vbCrLf

dtmCreationDate = objProcess.CreationDate

strReturn = WMIDateStringToDate(dtmCreationDate)

res = res & "Creation Date: " & strReturn & vbCrLf

op = objProcess.Priority

if op >= 13 & op < 16 then

op = "HIGH"

end if

res = res & "Priority: " & op & vbCrLf

res = res & "ProcessID: " & objProcess.ProcessID & vbCrLf

res = res & "Thread Count: " & objProcess.ThreadCount & vbCrLf

res = res & vbCrLf & vbCrLf & "======Threads======" & vbCrLf & vbCrLf

Set colThreads = objService.ExecQuery (_

"SELECT * FROM Win32_Thread")

For Each objThread In colThreads

if objThread.ProcessHandle = objProcess.Handle Then

res = res & "Process Handle: " & objThread.ProcessHandle & vbCrLf

op = objThread.Priority

if op >= 13 & op < 16 then

op = "HIGH"

end if

res = res & "Priority: " & op & vbCrLf

res = res & "Base Priority: " & objThread.PriorityBase & vbCrLf

res = res & "Elapsed Time: " & objThread.ElapsedTime & vbCrLf

res = res & "Thread State: " & objThread.ThreadState & vbCrLf

res = res & vbCrLf & vbCrLf

end if

Next

Next

ShowInNotepad(res)

Function WMIDateStringToDate(dtmCreationDate)

WMIDateStringToDate = CDate(Mid(dtmCreationDate, 5, 2) & "/" & _

Mid(dtmCreationDate, 7, 2) & "/" & Left(dtmCreationDate, 4) _

& " " & Mid (dtmCreationDate, 9, 2) & ":" & _

Mid(dtmCreationDate, 11, 2) & ":" & Mid(dtmCreationDate, _

13, 2))

End Function

Sub ShowInNotepad(StrToFile)

dim temp_file, txt_file, FSO, WshShell

'Ссылка на объект FileSystemObject

set FSO = WScript.CreateObject("Scripting.FileSystemObject")

' 'Ссылка на объект WScript.Shell

set WshShell = WScript.CreateObject("WScript.Shell")

temp_file = WshShell.ExpandEnvironmentStrings("%TEMP%") & "\" & FSO.GetTempName

Set txt_file = FSO.CreateTextFile(temp_file)

txt_file.WriteLine(StrToFile)

txt_file.Close

WshShell.Run "notepad.exe " & temp_file

End Sub

ЗАДАНИЕ 4. Составить сценарий сбора информации о процессах согласно варианту

dim objClass, objService, objStartup, objConfig, objProcess, objThread

dim colProcesses, colThreads

dim res, op, name, temps, nMax

nMax = CLng(0)

On Error Resume Next

Set objClass = GetObject("winmgmts:Win32_Process")

If Err.Number <> 0 Then

res = res & Err.Number & ": " & Err.Description

WScript.Quit

End If

Set objService = GetObject("winmgmts:" _

& "{impersonationLevel=impersonate}!\\.\root\CIMV2")

If Err.Number <> 0 Then

res = res & Err.Number & ": " & Err.Description

WScript.Quit

End If

Set colProc = objService.ExecQuery (_

"SELECT * FROM Win32_Process")

For Each objProc In colProc

res = res & "Process Name: " & objProc.Name

res = res & " | Virtual Size: " & CLng(objProc.VirtualSize) & vbCrLf & vbCrLf

res = res & "============================================" & vbCrLf & vbCrLf

op = CLng(objProc.VirtualSize)

If op >= max Then

max = op

name = objProc.Name

end if

Next

res = res & vbCrLf & "=================Solution====================" & vbCrLf &vbCrLf

res = res & "Process Name: " & name &vbCrLf

res = res & "The highest amount of used Virtual Size: " & max & vbCrLf

ShowInNotepad(res)

Sub ShowInNotepad(StrToFile)

Dim temp_file, txt_file, FSO, WshShell

'Ссылка на объект FileSystemObject

Set FSO = WScript.CreateObject("Scripting.FileSystemObject")

' 'Ссылка на объект WScript.Shell

Set WshShell = WScript.CreateObject("WScript.Shell")

temp_file = WshShell.ExpandEnvironmentStrings("%TEMP%") & "\" & FSO.GetTempName

Set txt_file = FSO.CreateTextFile(temp_file)

txt_file.WriteLine(StrToFile)

txt_file.Close

WshShell.Run "notepad.exe " & temp_file

End Sub

ЗАДАНИЕ 5. Составить сценарий завершающий все процессы “notepad.exe” имеющие низкий приоритет (Idle).

dim WMI

set WMI = GetObject("WinMgmts:")

set colProc = WMI.ExecQuery _

("SELECT * FROM Win32_Process " & _

"WHERE Name = 'notepad.exe'")

for each objProc in colProc

if objProc.Priority = 4 Then

objProc.Terminate()

Wscript.Echo "Process was killed!"

end if

next

ЗАДАНИЕ 6. Составить сценарий завершающий работу всех программ, запущенных пользователем из Windows Commander (Total Commander).

Dim ID1, ID2

Dim objProc, objService, objClass

Dim colProc

On Error Resume Next

Set objClass = GetObject("winmgmts:Win32_Process")

If Err.Number <> 0 Then

res = res & Err.Number & ": " & Err.Description

WScript.Quit

End If

Set objService = GetObject("winmgmts:" _

& "{impersonationLevel=impersonate}!\\.\root\CIMV2")

If Err.Number <> 0 Then

res = res & Err.Number & ": " & Err.Description

WScript.Quit

End If

Set colProc = objService.ExecQuery (_

"SELECT * FROM Win32_Process")

For Each objProc In colProc

If objProc.Name = "TOTALCMD.EXE" Then

ID1 = objProc.ProcessID

End If

If objProc.Name = "TOTALCMD64.EXE" Then

ID2 = objProc.ProcessID

End If

If objProc.ParentProcessId = ID1 Or objProc.ParentProcessId = ID2 Then

objProc.Terminate()

Wscript.Echo "Process was just killed!"

End If

Next

ЛАБОРАТОРНАЯ РАБОТА 2

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

startTime = Now

Set WMI = GetObject("winmgmts:")

Set colMonitorProcess = WMI.ExecNotificationQuery("SELECT * FROM __InstanceOperationEvent WITHIN 1 WHERE TargetInstance ISA 'Win32_Process' AND TargetInstance.Name='osk.exe'")

Set objClass = GetObject("winmgmts:Win32_Process")

res = objClass.Create("C:\Windows\System32\osk.exe", null, null, PID)

Do

Set objLatestEvent = colMonitorProcess.NextEvent

if objLatestEvent.Path_.Class = "__InstanceDeletionEvent" then

EndTime = Now

Wscript.Echo "Start Time: " & DateDoubleToTimeString(startTime)

Wscript.Echo "Closing Time: " & DateDoubleToTimeString(endTime)

Wscript.Echo "Time of life: " & DateDoubleToTimeString(endTime - startTime)

WScript.Quit

end if

loop

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. Составить сценарий запрещающий запуск определенного приложения. При попытке запуска данного приложения, его работа должна быть завершена, и на экран должно быть выведено сообщение о попытке запуска. Если количество разрешенных копий больше 0, то запрещать запуск необходимо только экземпляры приложения, превышающие указанное число.

Set WMI = GetObject("winmgmts:")

Set Processes = WMI.InstancesOf("Win32_Process")

max = 1

n = 0

for each proc in Processes

if proc.Name = "osk.exe" then

n = n + 1

end if

next

strProcName = "osk.exe"

Set colMonitorProcess = WMI.ExecNotificationQuery("SELECT * FROM __InstanceCreationEvent WITHIN 1 WHERE TargetInstance ISA 'Win32_Process' AND TargetInstance.Name='" & strProcName & "'")

WScript.Echo "Wainting for event..."

Do

Set objLatestEvent = colMonitorProcess.NextEvent

if objLatestEvent.Path_.Class = "__InstanceDeletionEvent" then

n = n - 1

end if

if objLatestEvent.Path_.Class = "__InstanceCreationEvent" then

n = n + 1

if n > max then

objLatestEvent.TargetInstance.Terminate()

res = MsgBox("Launch try" & vbCrLf & "denied", vbOKOnly or vbCritical)

end if

end if

Loop

ЛАБОРАТОРНАЯ РАБОТА 3

ЗАДАНИЕ 1. Составить сценарий определения объемов памяти (табл. 3.3). В сценарии необходимо реализовать запись данных в текстовый файл. Каждый запуск сценария дописывает данные в файл, а не создает новый.

strComputer = "."

Dim nTotalPhysicalMemory

nTotalPhysicalMemory = 0

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")

Set colItems = objWMIService.ExecQuery(_

"SELECT * FROM Win32_PhysicalMemory",,48)

For Each objItem in colItems

nTotalPhysicalMemory = nTotalPhysicalMemory + objItem.Capacity

Next

res = res & "-----------------------------------" & vbCrLf _

& "Win32_PhysicalMemory instance" & vbCrLf _

&"-----------------------------------" & vbCrLf _

& "Capacity: " & nTotalPhysicalMemory/1024/1024 & " MB"

Set colItems = objWMIService.ExecQuery(_

"SELECT * FROM Win32_OperatingSystem",,48)

For Each objItem in colItems

res = res & "-----------------------------------" & vbCrLf _

& "Win32_OperatingSystem instance" & vbCrLf _

& "-----------------------------------" & vbCrLf _

& "FreePhysicalMemory: " & objItem.FreePhysicalMemory/1024 & " MB" & vbCrLf

Next

SaveToFile(res)

Sub SaveToFile(StrToFile)

Set fs = CreateObject("Scripting.FileSystemObject")

Set a = fs.OpenTextFile("H:\temp.txt", 8,true, 0)

a.WriteLine(StrToFile)

a.Close

End Sub

ЗАДАНИЕ 2. Составить сценарий создающий запланированное задание (Scheduled Task), осуществляющее запуск сценария п.1.

Set objWMIService = GetObject("winmgmts:")

Set objNewJob = objWMIService.Get("Win32_ScheduledJob")

errJobCreated = objNewJob.Create(_

"\MemoryInfo.vbs", "********131000.000000+120", True,, 32 or 8192 or 1048576 or 134217728, True,JobId)

If errJobCreated <> 0 Then

Wscript.Echo "Error on task creation" & errJobCreated

Else

Wscript.Echo "New Job ID: " & JobID

End If

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

strComputer = "."

dim Input

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")

Set colItems = objWMIService.ExecQuery(_

"SELECT * FROM Win32_ScheduledJob",,48)

For Each objItem in colItems

Wscript.Echo "-----------------------------------" & vbCrLf

Wscript.Echo "Win32_ScheduledJob instance" & vbCrLf

Wscript.Echo "-----------------------------------" & vbCrLf

Wscript.Echo "Command: " & objItem.Command & vbCrLf

Wscript.Echo "JobId: " & objItem.JobId & vbCrLf

Next

Set colItems = objWMIService.ExecQuery(_

"SELECT * FROM Win32_ScheduledJob",,48)

Wscript.Echo "What task should be deleted?"

Input = 0

Input = Input + WScript.StdIn.ReadLine

WScript.Echo Input

For Each objItem in colItems

if (objItem.JobId = Input) then

errJobDelete=objItem.Delete()

end if

Next

WScript.Echo errJobDelete

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

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")

Set colItems = objWMIService.ExecQuery(_

"SELECT * FROM Win32_LogicalDisk",,48)

For Each objItem in colItems

Wscript.Echo "-----------------------------------" & vbCrLf _

& "Win32_LogicalDisk instance" & vbCrLf _

& "-----------------------------------" & vbCrLf _

& "Caption: " & objItem.Caption & vbCrLf _

& "DeviceID: " & objItem.DeviceID & vbCrLf _

& "FileSystem: " & objItem.FileSystem & vbCrLf _

& "FreeSpace: " & objItem.FreeSpace & vbCrLf _

& "VolumeSerialNumber: " & objItem.VolumeSerialNumber & vbCrLf

Next

ЗАДАНИЕ 5. Составить сценарий формирования списка файлов по заданному условию.

Dim strComputer

Dim objService

Dim strResult

Dim colFiles

Dim objFile

Dim WshShell

Const ForWriting = 2

Const TristateUseDefault = 2

Sub TextOut (Text, File)

Dim objFSO, FOut

Set objFSO=WScript.CreateObject("Scripting.FileSystemObject")

Set FOut = objFSO.OpenTextFile (File, ForWriting, TristateUseDefault)

FOut.WriteLine Text

FOut.Close

End Sub

strComputer = "."

strResult = "All doc files on C: " & vbCrLf & vbCrLf

Set objService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")

Set colFiles = objService.ExecQuery(_

"SELECT * FROM CIM_DataFile WHERE Drive = 'C:' AND Extension = 'doc'")

For Each objFile in colFiles

strResult = strResult & objFile.Name & vbCrLf

Next

TextOut strResult, "H:\Files.txt"

Set WshShell = WScript.CreateObject("WScript.Shell")

ЗАДАНИЕ 6. Составить сценарий, копирующий свой файл в папку “C:\tmp”, а затем переименовать его.

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _

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

strComputer & "\root\cimv2")

Set colFiles = objWMIService.ExecQuery("Select * from CIM_DataFile where FileName = 'FileCopyAndRename' AND Extension = 'vbs'")

For Each objFile in colFiles

objFile.Copy("c:\tmp\"& objFile.FileName & "." & objFile.Extension)

Next

Set colFiles = objWMIService.ExecQuery("Select * from CIM_DataFile where FileName = 'FileCopyAndRename' AND Extension = 'vbs' AND Drive = 'C:'")

For Each objFile in colFiles

objFile.Rename("c:\tmp\.new"& objFile.FileName & "." & objFile.Extension)

Next

ЗАДАНИЕ 7. Составить сценарий удаления папки “C:\tmp”.

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _

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

strComputer & "\root\cimv2")

Set colFiles = objWMIService.ExecQuery("Select * from Win32_Directory where Name = 'c:\\tmp'")

For Each objFile in colFiles

objFile.Delete()

Next

ЛАБОРАТОРНАЯ РАБОТА 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”

ЛАБОРАТОРНАЯ РАБОТА 3

ЗАДАНИЕ 1.

Рисунок 3.1 – состояние оперативной памяти

ЗАДАНИЕ 2.

Рисунок 3.2 – создание запланированного задания

ЗАДАНИЕ 3.

Рисунок 3.3 – просмотр и удаление запланированных заданий

Рисунок 3.4 – удаление запланированного задания №2

ЗАДАНИЕ 4.

Рисунок 3.5 – информация о логических дисках

ЗАДАНИЕ 5.

Рисунок 3.6 – все *.doc файлы в разделе C:\

ЗАДАНИЕ 6.

Рисунок 3.7 – копирование и переименовывание файла

ЗАДАНИЕ 7.

Рисунок 3.8 – удаление папки tmp\

ЛАБОРАТОРНАЯ РАБОТА 4

ЗАДАНИЕ 1.

Рисунок 4.1 – архивирование всех файлов раздела C:\ с маской *y*.txt

ЗАДАНИЕ 2.

Рисунок 4.1 – удаление устаревшей копии

Поиск по сайту: