'* Имя: Interact.vbs
'* Язык: VBScript
'* Описание: пример лаболаторной работы
'******************************************************************
Dim s
' Выводим строку на экран
do
WScript.StdOut.WriteLine "МЕНЮ:"
WScript.StdOut.WriteLine "----------------------------"
WScript.StdOut.WriteLine "1. Информация о авторе"
WScript.StdOut.WriteLine "2. Перенос файлов заданного расширения с указанного места в папку «backup», на заданном диске."
WScript.StdOut.WriteLine "3. Сохранение в блокноте параметра реестра: HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\BuildLab"
WScript.StdOut.WriteLine "4. Выход"
WScript.StdOut.Write "Выберите пункт меню:"
' Считываем строку
s = WScript.StdIn.ReadLine
' Создаем объект WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
if (s="1") Then
WScript.StdOut.WriteLine "Левкович Владимир Михайлович ТМ-51"
elseif(s="2") Then
WScript.StdOut.WriteLine "Введите расширение файла"
fileextension = WScript.StdIn.ReadLine
WScript.StdOut.WriteLine "Где находятся файлы"
filespath = WScript.StdIn.ReadLine
WScript.StdOut.WriteLine "Введите букву диска"
driveletter = WScript.StdIn.ReadLine
Dim WshShelli
Set WshShell = WScript.CreateObject("WScript.Shell")
'WScript.StdOut.WriteLine "cmd /K Copy " & filespath & "\*." & fileextension & " " & driveletter & ":\backup"
WshShell.run "cmd /C Copy " & filespath & "\*." & fileextension & " " & driveletter & ":\backup"
'Code=WshShell.Run("%COMSPEC% /c backuper.bat >"+fileextension +filespath +driveletter ,0,true)
elseif(s="3") Then
WScript.StdOut.Write "Введите имя ярлыка:"
f = WScript.StdIn.ReadLine
' Создаем ярлык на сетевой ресурс
Set oUrlLink = WshShell.CreateShortcut(f+".URL")
WScript.StdOut.Write "Введите имя ресурса:"
f = WScript.StdIn.ReadLine
' Устанавливаем URL
oUrlLink.TargetPath = f
' Сохраняем ярлык
oUrlLink.Save
End if
loop until (s="4")
'************* Конец *********************************************