Здесь я буду размещать разнообразные вспомогательные скрипты на bat\cmd
---------------------------------------------------------------------------------------------
HoboCopy, саму программу я не выкладываю, но как она работает на примере я Выложу!!! Делает теневое копирование.
На просторах интернета можно ее скачать.
@echo off set sFolderName=%date%_%time:~0,-3% ::hobocopy Делает копию папки (config) hobocopy /recursive /full /y %windir%\system32\config\ "%systemdrive%\Backup\config\%sFolderName::=-%"\ ::hobocopy делает копию NTUSER.DAT из папки пользователя hobocopy /y %systemdrive%\Docume~1\%username%\ "%systemdrive%\Backup\%username%\%sFolderName::=-%"\ NTUSER.DAT
---------------------------------------------------------------------------------------------
Данный скрипт создает папку в которую вы можете вложить Папки и Файлы, 2 - запуск скрипта делает
папку ярлыком, при его открытии не показываются вложения в ней, 3- запуск делает из ярлыка обратно открываемую папку
но запрашивает на это пароль, 12753684.
Маленькие хитрости)
cls @ECHO OFF Color 2e cd %~dp0 title off.folder if EXIST "My Computer.{20D04FE0-3AEA-1069-A2D8-08002B30309D}" goto UNLOCK if NOT EXIST MyFolder goto MDMyFolder :CONFIRM echo Установить защиту? (Y -да/N -нет) set/p "cho=>" if %cho%==Y goto LOCK if %cho%==y goto LOCK if %cho%==n goto END if %cho%==N goto END echo Неверная команда goto CONFIRM :LOCK ren MyFolder "My Computer.{20D04FE0-3AEA-1069-A2D8-08002B30309D}" attrib +h +s "My Computer.{20D04FE0-3AEA-1069-A2D8-08002B30309D}" :: echo y| cacls "My Computer.{20D04FE0-3AEA-1069-A2D8-08002B30309D}" /d все >nul echo Директория спрятана! goto End :UNLOCK echo Введите пароль для восстановления папки set/p "pass=>" if NOT %pass%== 12753684 goto FAIL :: echo y| cacls "My Computer.{20D04FE0-3AEA-1069-A2D8-08002B30309D}" /g все:f attrib -h -s "My Computer.{20D04FE0-3AEA-1069-A2D8-08002B30309D}" ren "My Computer.{20D04FE0-3AEA-1069-A2D8-08002B30309D}" MyFolder echo Папка восстановлена goto End :FAIL echo Неверный пароль goto end :MDMyFolder md MyFolder echo Секретная папка создана goto End :End
---------------------------------------------------------------------------------------------
Этот скрипт покажет вам всех Пользователей в вашей системе!
wmic.exe UserAccount where "LocalAccount='True'" get name pause
---------------------------------------------------------------------------------------------
След скрипт генерирует пароли!
@echo off :: I - длин ген пасса set I=8 :: N - все ли символы используються set N=16 set CHAR=0 1 2 3 4 5 6 7 8 9 A B C D E F :LOOP set /a R=1+%N%*%random%/32768 for /f "tokens=%R%" %%q in ("%CHAR%") do (set Hex=%%q%Hex%) Set /a I-=1 If %I% GTR 0 goto LOOP echo %Hex% pause
Далее я добавлю в него автоматическую замену с генерированного пароля нашему пользователю.
Запишу пароль в корень системного диска в pass.log и открою его.
@echo off :: I - длин ген пасса set I=8 :: N - все ли символы используються set N=16 set CHAR=0 1 2 3 4 5 6 7 8 9 A B C D E F :LOOP set /a R=1+%N%*%random%/32768 for /f "tokens=%R%" %%q in ("%CHAR%") do (set Hex=%%q%Hex%) Set /a I-=1 If %I% GTR 0 goto LOOP echo %Hex% net user %username% %Hex% echo %Hex% >> %systemdrive%\Pass.log start %systemdrive%\Pass.log
----------------------------------------------------------------------------------------------------
Скрипт определяет id пользователя win7.
@Echo Off For /F "tokens=* delims=" %%s In ('whoami /user ^|Find /i "%username%"') Do Set sid1=%%s Call Set sid1=%%sid1:%COMPUTERNAME%\%username%=%% Set sid1=%sid1: =% Echo %sid1% Pause
----------------------------------------------------------------------------------------------------
Данный Скрипт даст вам меню выбора ваших функций!!!
(На примере)
1. удалить
2. изменить
3. так далее
4. выход
@echo off COLOR 06 title UserReset ::Start Programm :start echo 1. TaskMgr - 1 echo 2. Regedit - 2 echo 3. Command Prompt - 3 echo 4. Change Password Users - 4 echo 5. Exit - 5 echo. set /p choice=Enter the number: rem if not '%choice%'=='' set choice=%choice:~0;1% if '%choice%'=='1' goto 1 if '%choice%'=='2' goto 2 if '%choice%'=='3' goto 3 if '%choice%'=='4' goto 4 if '%choice%'=='5' goto 5 if not '%choice%'=='' echo "%choice%" Bad points cls goto start :1 Ваш код cls goto start :2 Ваш код cls goto start :3 Ваш код cls goto start :4 Ваш код cls goto start :5 Ваш код cls
---------------------------------------------------------------------------------------------
Отредактировано Incognito (14.04.2014 15:50:42)
Incognito
Уточни хоть, для каких целей скрипты. Может у кого и пожелания появятся.
Waterclo
Не все люди владеют языками программирования, а bat это самый легкий и простой, думаю многие смогут с ними разобраться.
Да и для кого то они будут полезными, может кому то что то и пригодиться я могу дописать или написать.
Incognito
Угу, понятно, принято.
сброс настроек сети
route -f netsh int reset all netsh int ip reset c:\resetip.txt netsh firewall reset netsh winsock reset netsh winsock reset catalog nbtstat -R nbtstat -RR ipconfig /flushdns ipconfig /release ipconfig /renew
Проверки диска на ошибки.
@echo off title scan_disk color 8A :Ask4DriveLtr for %%a in (C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z) do if exist %%a:\nul (dir %%a:\ | find "Volume in drive" ) set d= set /p d=Введите букву проверяемого диска: if '%d%'=='' goto :end set d=%d:~0,1%: set /p answer=Выполнить быстрое сканирование на ошибки %d% ?(y -да or n -нет): if %answer%==n goto :next0 chkdsk %d% :next0 set /p answer=Начать восстановление ошибок на диске %d% ?(y -да or n -нет): if %answer%==n goto :next1 chkdsk %d% /F /R /X /V :next1 echo Для продолжения нажмите любую клавишу)) pause >nul
--------------------------------------------------------------------------------------------
Удаление Временных и Устаревших файлов, писал давно для себя, на XP пробовал!!!
@Shift @echo off title SysClean Ver 0.7 Color 2e Echo Для начало поиска устаревших файлов, нажмите любую клавижу! pause>nul reg add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management" /v ClearPageFileAtShutdown /t reg_dword /d 1 /f reg add "HKEY_CURRENT_USER\CONTROL PANEL\DESKTOP" /v WaitToKillAppTimeout /t reg_sz /d 3000 /f reg add "HKEY_CURRENT_USER\CONTROL PANEL\DESKTOP" /v AutoEndTasks /t reg_sz /d 1 /f reg add "HKEY_LOCAL_MACHINE\SYSTEM\CURRENTCONTROLSET\CONTROL\FILESYSTEM" /v NTFSDISABLELASTACCESSUPDATE /t reg_dword /d 1 /f reg add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\FILESYSTEM" /v ContigFileAllocSize /t reg_dword /d 512 /f reg add "HKEY_CURRENT_USER\CONTROL PANEL\DESKTOP" /v SmoothScroll /t reg_binary /d 00000000 /f reg add "HKEY_CURRENT_USER\CONTROL PANEL\DESKTOP\WindowMetrics" /v MinAnimate /t reg_sz /d 1 /f reg add "HKEY_LOCAL_MACHINE\SYSTEM\CURRENTCONTROLSET\CONTROL\FILESYSTEM" /v NtfsDisable8dot3NameCreation /t reg_dword /d 1 /f cls attrib -s -h -r %SystemDrive%\*.tmp /d /s attrib -s -h -r %SystemDrive%\*.temp /d /s del %windir%\Temp\* /q /s del %temp%\* /q /s rd %windir%\Temp\ /q /s mkdir %windir%\Temp\ cd %USERPROFILE%\Recent\ del *.lnk /q del %SystemDrive%\*.tmp /q /s del %SystemDrive%\*.temp /q /s del %SystemDrive%\*.diz /q /s del %SystemDrive%\*.chk /q /s del %SystemDrive%\*.old /q /s del %SystemDrive%\*.gid /q /s del %SystemDrive%\*.fts /q /s del %SystemDrive%\*.ftg /q /s del %SystemDrive%\*.$$$ /q /s del %SystemDrive%\*.err /q /s del %SystemDrive%\*.--- /q /s del %SystemDrive%\*.~* /q /s del %SystemDrive%\~*.* /q /s del %SystemDrive%\*.??$ /q /s del %SystemDrive%\*.___ /q /s del %SystemDrive%\*.~mp /q /s del %SystemDrive%\*._mp /q /s del %SystemDrive%\*.dmp /q /s del %SystemDrive%\*.prv /q /s del %SystemDrive%\chklist.ms /q /s del %SystemDrive%\*.$db /q /s del %SystemDrive%\*.?$? /q /s del %SystemDrive%\*.?~? /q /s del %SystemDrive%\*.db$ /q /s del %SystemDrive%\chklist.* /q /s del %SystemDrive%\mscreate.dir /q /s del %SystemDrive%\*._mp /q /s del %SystemDrive%\index.dat /q /s del %SystemDrive%\*.log /q /s del %windir%\*.txt /q /s del %windir%\*.001 /q /s del %windir%\*.002 /q /s :next1 @echo off echo 10/09/09 Update 29/01/10 echo Ver 0.7 rd %temp%\ /q /s mkdir %Temp%\ msg * Очистка закончена!!! Всегда следуйте правилу: Не уверен - не удаляй!.
----------------------------------------------------------------------------------------
Программа с Открытым кодом на bat, так же пробовал только на XP. Программа сортирует по папкам Видео,картинки,вор_д,текст и так далее файлы по конкретным категориям, так как многие Заси*ают раб стол всякими документами.
http://rghost.ru/54164465
---------------------------------------------------------------------------------------
Отредактировано Incognito (15.04.2014 16:05:29)
reg add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management" /v ClearPageFileAtShutdown /t reg_dword /d 1 /f reg add "HKEY_CURRENT_USER\CONTROL PANEL\DESKTOP" /v WaitToKillAppTimeout /t reg_sz /d 3000 /f reg add "HKEY_CURRENT_USER\CONTROL PANEL\DESKTOP" /v AutoEndTasks /t reg_sz /d 1 /f reg add "HKEY_LOCAL_MACHINE\SYSTEM\CURRENTCONTROLSET\CONTROL\FILESYSTEM" /v NTFSDISABLELASTACCESSUPDATE /t reg_dword /d 1 /f reg add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\FILESYSTEM" /v ContigFileAllocSize /t reg_dword /d 512 /f reg add "HKEY_CURRENT_USER\CONTROL PANEL\DESKTOP" /v SmoothScroll /t reg_binary /d 00000000 /f reg add "HKEY_CURRENT_USER\CONTROL PANEL\DESKTOP\WindowMetrics" /v MinAnimate /t reg_sz /d 1 /f reg add "HKEY_LOCAL_MACHINE\SYSTEM\CURRENTCONTROLSET\CONTROL\FILESYSTEM" /v NtfsDisable8dot3NameCreation /t reg_dword /d 1 /f
нифига?
давно доказано, что эти недотвики ничего не дают
g0dl1ke
Ни кто не заставляет ВАС добавлять их! Так как код Раскрыт можно их удалить и проблем с ними не будет.
----------------------------------------------------------------------------------
Пинг в заданном диапазоне.
Пингуются IP 78.46.226.%x (с 176 по 183)
for /L %x in (176,1,183) do @ping 78.46.226.%x -w 10 -n 1 | find "Ответ от"
----------------------------------------------------------------------------------
Делал так сказать скрипт на XP для безопасности, который закрывает не нужные службы, ветки реестра.... для домашнего ПК самое то!
@echo off color 8A echo Скрипт по настройки безопасности для домашней сети и рабочих мест echo не имеющих сетевые принтера,файлы и папки echo т.е не стоящие на данном компьютере! если есть таковые настройки, echo то они не будут видны с других компьютеров на вашей машине echo -Версия 1.1 от 21.02.2011 echo Y -да,N - нет echo echo Настройка Служб set /p answer=Отключить Telnet (Telnet - позволяет удаленно управлять этим компьютером) ? (y or n): if %answer%==n goto :next1 net stop tlntsvr sc config tlntsvr start= disabled :next1 set /p answer=Отключить Автоматическое обновление (Включает загрузку и установку обновлений Windows) ? (y or n): if %answer%==n goto :next2 net stop wuauserv sc config wuauserv start= disabled :next2 set /p answer=Отключить Сервер (Обеспечивает поддержку общий доступ к файлам, принтерам и именованным каналам для данного компьютера через сетевое подключение) ? (y or n): if %answer%==n goto :next3 net stop lanmanserver sc config lanmanserver start= disabled :next3 set /p answer=Отключить Удаленный реестр (Позволяет удаленным пользователям изменять параметры реестра на этом компьютере)? (y or n): if %answer%==n goto :next4 net stop remoteregistry sc config remoteregistry start= disabled :next4 set /p t=Отключить Сервер папки обмена (Позволяет просматривать страницы папок обмена удаленных компьютеров)? (y or n): if %answer%==n goto :next5 net stop clipsrv sc config clipsrv start= disabled :next5 set /p answer=Отключить Службу сообщений (Посылает и получает сообщения, переданные администраторами или службой оповещений)? (y or n): if %answer%==n goto :next6 net stop messenger sc config messenger start= disabled :next6 set /p answer=Отключить Маршрутизацию и удаленный доступ (Предлагает услуги маршрутизации организациям в локальной и глобальной сетях)? (y or n): if %answer%==n goto :next7 net stop remoteaccess sc config remoteaccess start= disabled :next7 set /p answer=Отключить Журнал событий (Обеспечивает поддержку сообщений журналов событий, выдаваемых Windows-программами и компонентами системы, и просмотр этих сообщений)? (y or n): if %answer%==n goto :next8 net stop eventlog sc config eventlog start= disabled :next8 set /p answer=Отключить Вторичный вход в систему (Позволяет запускать процессы от имени другого пользователя)? (y or n): if %answer%==n goto :next9 net stop seclogon sc config seclogon start= disabled :next9 set /p answer=Отключить Беспроводная настройка (y or n): if %answer%==n goto :next10 net stop wzcsvc sc config wzcsvc start= disabled :next10 set /p answer=Отключить Брэндмауэр Windows (y or n): if %answer%==n goto :next11 net stop sharedaccess sc config sharedaccess start= disabled :next11 set /p answer=Позволяет Windows-программам создавать, получать доступ и изменять файлы, хранящиеся в Интернете (y or n): echo Полезных функций в данной службе не усмотрено if %answer%==n goto :next12 net stop WebClient sc config WebClient start= disabled :next12 set /p answer=Отключить Диспетчер сеанса справки для удаленного рабочего стола (y or n): if %answer%==n goto :next13 net stop RDSessMgr sc config RDSessMgr start= disabled :next13 set /p answer=Диспетчер сетевого DDE (y or n): if %answer%==n goto :next14 net stop NetDDEdsdm sc config NetDDEdsdm start= disabled :next14 set /p answer=Отключить службу Индексирования (y or n): if %answer%==n goto :next15 net stop CiSvc sc config CiSvc start= disabled :next15 echo Настройка Реестра set /p answer=Ограничить содзание административных разделяемых ресурсов? (y or n): if %answer%==n goto :next16 reg add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LanmanServer\Parameters" /v AutoSareWks /t reg_dword /d 0 /f :next16 set /p answer=Ограничение информации, доступной анонимным пользователям при входе в систему Windows NT, запретить скрытые ресурсы (y or n): if %answer%==n goto :next17 reg add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\LSA" /v RestrictAnonymous /t reg_dword /d 1 /f reg add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\lanmanserver" /v RestrictNullSessionAccess /t reg_dword /d 1 /f reg add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LanmanServer\Parameters" /v AutoShareWks /t reg_dword /d 0 /f reg add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LanmanServer\Parameters" /v AutoShareServer /t reg_dword /d 0 /f :next17 set /p answer=Позволяет включить режим, при котором в режиме обзора сети другие пользователи не будут видеть вашего компьютера (y or n): if %answer%==n goto :next18 reg add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LanmanServer\Parameters" /v Hidden /t reg_dword /d 1 /f :next18 set /p answer=Уничтожение при завершении работы всей информации, которая могла сохраниться в системном файле Page File (y or n): if %answer%==n goto :next19 reg add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management" /v ClearPageFileAtShutdown /t reg_dword /d 1 /f :next19 set /p answer=Отменить сохранение списка документов, с которыми вы работали (y or n): if %answer%==n goto :next20 reg add "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\ Explorer" /v NoRecentDocsHistory /t reg_dword /d 1 /f :next20 set /p answer=Отмена сохранения информации о действиях пользователя. Запрещает записывать, с какими приложениями недавно работал пользователь и к каким документам получал доступ (y or n): if %answer%==n goto :next21 reg add "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer" /v NoInstrumentation /t reg_dword /d 1 /f :next21 set /p answer=Запретить просмотр пользователям с правами Гостя журналов системы (y or n): if %answer%==n goto :next22 reg add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\TCPip\Parameters" /v SunAttackProtect /t reg_dword /d 1 /f reg add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\EventLog\Application" /v RestrictGuestAccess /t reg_dword /d 1 /f reg add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\EventLog\System" /v RestrictGuestAccess /t reg_dword /d 1 /f reg add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\EventLog\Security" /v RestrictGuestAccess /t reg_dword /d 1 /f echo Закрыть порт 135 :next22 set /p answer=DISABLED DCOM RPC (port 135) is safely on youn system ? (y or n): if %answer%==n goto :next26 reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Rpc\Internet" /v UseInternetPorts /t reg_sz /d N /f reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Ole" /v EnableDCOM /t reg_sz /d N /f reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Reliability" /v ShutdownReasonUI /t reg_dword /d 0 /f :next23 exit
-----------------------------------------------------------------------------------
Восстановление ассоциаций exefile на vbs.
'ExeFileFix.vbs - verifies the Registry, and restores the default values for .exe files Option Explicit:Dim ws, t, e, v, q, Ask Set ws = WScript.CreateObject("WScript.Shell") t = "Verify and restore the default .exe values" e = ws.RegRead("HKEY_CLASSES_ROOT\.exe\") If e<>"exefile" then Ask = MsgBox("DANGER!" & vbcrlf & vbcrlf & _ ".exe default value is: " & e & vbcrlf & _ "instead of: exefile" & vbcrlf & vbcrlf& _ "Do you want to restore the default value just now?",20,t) If Ask = 6 Then ws.RegWrite "HKEY_CLASSES_ROOT\.exe\","exefile" Else Ask = MsgBox("Restore the .exe default value" & vbcrlf & _ "as soon as possible!",16,t) End If End If q=chr(34) & "%1" & chr(34) & " %*" 'i.e. "%1" %* v = ws.RegRead("HKEY_CLASSES_ROOT\exefile\shell\open\command\") If v<>q then Ask = MsgBox("DANGER!" & vbcrlf & vbcrlf & _ "Exefile default value is: " & v & vbcrlf & vbcrlf & _ "The name before " & q & " may be the virus name!" & vbcrlf & vbcrlf& _ "Do you want to restore the default value just now?",20,t) If Ask = 6 Then ws.RegWrite "HKEY_CLASSES_ROOT\exefile\shell\open\command\",q Else Ask = MsgBox("Restore the default value for exefile" & vbcrlf & _ "as soon as possible!",16,t) End If Else Ask=MsgBox("Exefile default value is already correct!",64,t) End If
--------------------------------------------------------------------------------------
Отредактировано Incognito (23.04.2014 08:47:16)