Объявление

#1 14.04.2014 14:59:49

Incognito
Member
Зарегистрирован: 29.03.2013
Сообщений: 46

Скрипты

Здесь я буду размещать разнообразные вспомогательные скрипты на 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

Неактивен

 

#2 14.04.2014 15:14:56

Waterclo
Пø}{@бь)4
Откуда: Лампа Аллавбздина
Зарегистрирован: 24.09.2008
Сообщений: 1931

Re: Скрипты

Incognito
Уточни хоть, для каких целей скрипты. Может у кого и пожелания появятся.

Неактивен

 

#3 14.04.2014 16:00:10

Incognito
Member
Зарегистрирован: 29.03.2013
Сообщений: 46

Re: Скрипты

Waterclo
Не все люди владеют языками программирования, а bat это самый легкий и простой, думаю многие смогут с ними разобраться.
Да и для кого то они будут полезными, может кому то что то и пригодиться я могу дописать или написать.


С Уважением Incognito

Неактивен

 

#4 14.04.2014 16:24:02

Waterclo
Пø}{@бь)4
Откуда: Лампа Аллавбздина
Зарегистрирован: 24.09.2008
Сообщений: 1931

Re: Скрипты

Incognito
Угу, понятно, принято.

Неактивен

 

#5 14.04.2014 16:39:21

g0dl1ke
Advanced Member
Зарегистрирован: 12.09.2010
Сообщений: 538

Re: Скрипты

сброс настроек сети


Код:

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

"Stay a While, and Listen"

Неактивен

 

#6 15.04.2014 15:45:44

Incognito
Member
Зарегистрирован: 29.03.2013
Сообщений: 46

Re: Скрипты

Проверки диска на ошибки.


Код:

@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)


С Уважением Incognito

Неактивен

 

#7 15.04.2014 16:42:19

g0dl1ke
Advanced Member
Зарегистрирован: 12.09.2010
Сообщений: 538

Re: Скрипты


Код:

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

нифига?

давно доказано, что эти недотвики ничего не дают


"Stay a While, and Listen"

Неактивен

 

#8 16.04.2014 09:55:02

Incognito
Member
Зарегистрирован: 29.03.2013
Сообщений: 46

Re: Скрипты

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)


С Уважением Incognito

Неактивен

 

Board footer


Рекомендации: OSZone, Comss, Ru-Board

Поддержать развитие проектов