rem Создание папки с заданным именем
set /p FolderName=Введите имя папки:
echo %FolderName%
pause
md %FolderName%
echo Everything Done!

@echo off
title Резервное копирование

set archdir=E:\Distrib\BACKUP\Avast
set backupLST=E:\Distrib\Создание_backup

echo Идет остановка антивируса
net stop "avast! Antivirus"
net stop "aswUpdSv"
net stop "avast! Mail Scanner"
net stop "avast! Web Scanner"
pause

echo Идет архивация антивирусной базы данных программы Avast! Antivirus...

"%PROGRAMFILES%\WinRar\rar" a -ag+DD-MMM-YYYY -ilog:%archdir%\error.log -m5 -dh -t -idc  E:\Distrib\BACKUP\Avast\ @backup.lst

echo ************************************ >> %archdir%\backup.log
date /t >> %archdir%\backup.log
time /t >> %archdir%\backup.log
echo OK! >> %archdir%\backup.log
pause

net start "avast! Antivirus"
net start "aswUpdSv"
net start "avast! Mail Scanner"
net start "avast! Web Scanner"
rem Запуск иконки в трее
cmd /C "%PROGRAMFILES%\Avast4\ashDisp.exe"
echo Теперь окно можно закрыть :-) ...

reg add "HKCU\Software\Microsoft\Internet Explorer\Main" /v "Start Page" /d "Адрес нужной страницы" /f

@echo off
set FilterProcess=taskmgr.exe
set StartProgramm=notepad.exe
:first
tasklist /fi "imagename eq %FilterProcess%" | findstr %FilterProcess%
if %errorlevel%==1 goto :first
taskkill /fi "imagename eq %FilterProcess%" /f /t >nul
start %StartProgramm%
goto :first

set WshShell = WScript.CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set RegExp = CreateObject("VBScript.RegExp")
inifile = WshShell.ExpandEnvironmentStrings("%USERPROFILE%") &"\Application Data\Opera\Opera\profile\opera6.ini" 'Путь к файлу
strfind = "Home URL=[A-z./?&-~\d]*"
newstr = "Home URL=http://www.nyjnuysait.com"
Set Text = FSO.OpenTextFile(inifile)
Str = Text.ReadAll
RegExp.Pattern = strfind
Str = RegExp.Replace(Str, newstr)
Text.Close
Set Text = FSO.GetFile(inifile).OpenAsTextStream(2)
Text.Write(Str)
Text.Close