Задача 1
Условие задачи:
Напишите командный batch-файл и выполните из него данный скрипт.
Содержание BATCH файла:
CLS
Start C:\Tihan\OC\III_lab\z1vbs.vbs
Содержание скрипт-файла:
Option Explicit
Dim Message, Title, answ, z
Dim WshShell, objEnv
Set WshShell = CreateObject ("WScript.Shell")
Set objEnv = WshShell.Environment("Process")
Message = "System Information" & vbCrLf
Message = Message & "PROMPT" & objEnv("PROMPT")& vbCrLf
Message = Message & "WinDir:" & objEnv("WINDIR") & vbCrLf
Answ = MsgBox ("Would you create your own var?(y/n)",vbYesNo,_
"Answer, please")
If answ=vbYes Then
objEnv("MyVar")= "This is your var"
end If
'reading
Message="List of System vars" & vbCrLf
For Each z in objEnv
Message = Message & z & vbCrLf
Next
Title="System Info."
MsgBox Message, vbOKOnly, Title
WshShell.Environment("Process").Remove("MyVar")
Итог: После запуска batch-файла, был запущен указанный выше скрипт.
Задача 2
Условие задачи:
Создать скрипт для добавления новой переменной, указывающей путь к файлу, который должен быть открыт через блокнот.
Содержание скрипт-файла:
Option Explicit
Dim WshShell, objEnv
Set WshShell = CreateObject ("WScript.Shell")
Set objEnv = WshShell.Environment("Process")
objEnv("C:\Windows\notepad.exe") = InputBox("Vvedite put k failu i ego nazvanie")
WshShell.Run objEnv("C:\Windows\notepad.exe"),1
Итог: После запуска скрипта, было открыто окно, в которое нужно было ввести путь к файлу
Задача 3
Условие задачи:
Создать скрипт для копирования одного файла в другой.
Содержание скрипт-файла:
Option Explicit
dim fso, File1, File2, TS1, TS2, out_file, str_f1, str_f2
Set FSO = CreateObject("Scripting.FileSystemObject")
Set File1 = fso.GetFile("C:\Tihan\OC\III_lab\1.txt")
Set File2 = fso.GetFile("C:\Tihan\OC\III_lab\2.txt ")
Set TS1 = File1.OpenAsTextStream(1)
Set TS2 = File2.OpenAsTextStream(1)
Set out_file = FSO.CreateTextFile("C:\new\file.txt")
str_f1 = TS1.ReadAll()
str_f2 = TS2.ReadAll()
out_file.WriteLine (str_f1)
out_file.WriteLine (str_f2)
out_file.Close
Итог: После запуска скрипта, был создан новый файл, в который были скопированы два других.
Задача 4
Условие задачи:
Написать скрипт, который создает и выполняет бат-файл для запуска EXCEL. Опирайтесь на предыдущий пример.
Содержание скрипт-файла:
Option Explicit
Dim fso, file, WshShell
Set fso=WScript.CreateObject("Scripting.FileSystemObject")
Set file=fso.CreateTextFile("C:\Tihan\OC\III_lab\z4bat.bat")
file.WriteLine("start Excel.exe")
file.Close
Set WshShell = CreateObject ("WScript.Shell")
WshShell.Run ("C:\Tihan\OC\III_lab\z4bat.bat")
Итог: После запуска скрипта, был запущен batch-fail, в следствии работы которого было открыто приложение Microsoft Office EXEL
Задача 5
Условие задачи:
Напишите командный batch-файл и выполните из него данный скрипт.
Содержание скрипт-файла:
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor")
Set fso=WScript.CreateObject("Scripting.FileSystemObject")
Set file=fso.CreateTextFile("C:\Tihan\OC\III_lab\z5txt.txt")
For Each objItem in colItems
file.writeLine ("Current clock speed: " & objItem.CurrentClockSpeed)
file.writeLine ("Data width: " & objItem.DataWidth)
file.writeLine ("Description: " & objItem.Description)
file.writeLine ("Family: " & objItem.Family)
file.writeLine ("Cache size: " & objItem.L2CacheSize)
file.writeLine ("Load percentage: " & objItem.LoadPercentage)
file.writeLine ("Manufacturer: " & objItem.Manufacturer)
file.writeLine ("Processor ID: " & objItem.ProcessorId)
file.writeLine ("Version: " & objItem.Version)
Next
file.clouse
