полезные скрипты (домохозяйкам и не только)

[zmeiuka]

собственно такая мысля, давайте соберем коллекцию полезных скриптов.
зачастую ведь проще попросить запустить файлик, чем пол часа расспрашивать чтобы ответить на изначальный вопрос. да и свою коллекцию наверняка с удовольствием пополните "боевыми" скриптами.

для домохозяек:
как пользоваться скриптами - есть 2 варианта

вр. 1 когда есть файл со скриптом, достаточно запустить файл обычным двойным кликом (так же как вы запускаете любую программу).

вр 2 когда есть только текст скрипта
.......шаг 1 копируем текс скрипта
.......шаг 2 открываем блонкот и вставляем скопированный текст
.......шаг 3 сохраняем с расширением bat (как это сделать см. картинку)

.......шаг 5 запускаем сохраненный файл (см вр. 1)

[zmeiuka]

собственно я и начну.

поменять пароль администратора
если на компе есть 2ая учетка (даже не имеющая админских прав) (на 8 не работает)

chcp 1251
cls
@echo .
@echo В некоторых версиях Windows формат выдачи даты и времени другой,
@echo поэтому данный скрипт может работать совсем так как нам нужно.
@echo .
@set /p answer=Нажмите y для продолжения или n для отмены (y or n):
if %answer%==y goto :next
if %answer%==n goto :exit
if %answer%==н goto :next
if %answer%==т goto :exit
:
:По идее, подобным способом можно брать части любых переменных, суть в том что формат здесь такой:
:%DATE:~3,2%
:Первая цифра после :~ - это номер символа, с которого мы начинаем брать значение,
:вторая цифра это сколько символов захватывать.
:Таким образом получается что мы можем взять для своих нужд любую часть, любой доступной нам переменной среды Windows.
:
:next
set mytime=%TIME: =0%
:set mytime=%TIME: =0% заменяет вредный ведущий пробел на ноль
set mydate=%date: =0%
set hh=%mytime:~0,2%
set mm=%mytime:~3,2%
set ss=%mytime:~6,2%
set /A mm5=(%mm% + 1)
:при прибовлении мы опять можем потерять нолик в первые 10 мин поэтому опять его дорисовываем
if %mm5% GTR 9 goto :ten
if %mm5%==1 (set mmend=%mm5:1=01%)
if %mm5%==2 (set mmend=%mm5:2=02%)
if %mm5%==3 (set mmend=%mm5:3=03%)
if %mm5%==4 (set mmend=%mm5:4=04%)
if %mm5%==5 (set mmend=%mm5:5=05%)
if %mm5%==6 (set mmend=%mm5:6=06%)
if %mm5%==7 (set mmend=%mm5:7=07%)
if %mm5%==8 (set mmend=%mm5:8=08%)
if %mm5%==9 (set mmend=%mm5:9=09%)
goto :ten1
:ten
set mmend=%mm5%
:ten1
cls
@echo.
@set /p user=Введите имя учетной записи администратора:
cls
@echo .
@set /p pass=Введите новый пароль:
echo MsgBox ^"Новый пароль пользовател %user%: %pass%^" ^& vbNewLine ^& ^"Будет установлен в %hh%:%mmend%:%ss%^" >> "%homepath%\Мои документы\admin password.vbs"
at %hh%:%mmend%:%ss% cmd /C net user %user% %pass%
cls
@"%homepath%\Мои документы\admin password.vbs"
del "%homepath%\Мои документы\admin password.vbs"
cls
@echo .
@echo Для входа под новым поролем нажмите y (копьютер перезагрузится)
@set /p shut=для продлжения работы нажмите n (y or n):
if %shut%==y goto :next1
if %shut%==n goto :exit
if %shut%==н goto :next1
if %shut%==т goto :exit
:next1
shutdown /t 90 /r /f
:exit
exit

[zmeiuka]

найти все устройства подключенные в данный момент к роутеру
(скрипт писался с целью отловить халявщиков WIFI)

@echo off
chcp 1251
cls
goto comments
==================
Краткие пояснения:
---> ping 78.46.226.%x -w 10 -n 1 - таймаут в миллисекундах для каждого ответа равен 10 (-w 10),
число отправляемых пингом запросов равно 1 (-n 1).
---> | - запустим команду find только, когда пинг запустился нормально.
find "TTL" - в результатах выполнения ping ищем только те строчки,
что содержат сочетание "TTL", т.е. это те айпишники, которые откликнулись.
==================
: comments
echo .
echo ===========================================
echo сейчас будут отображены IP адреса всех устройств
echo которые ответят на команду ping в заданном
echo диапазоне IP адресов
echo ===========================================
echo .
pause
cls
:настройка диапазона сканирования
:первые два октета айпишника
set ip1=192.168
:сканировать 3ий октет с...
set ip2=0
:максимальное значение 3го октета минус один...
set ip3=3
:сканировать 4ый октет с...
set ip4=1
:максимальное значение 4го октета минус один...
set ip5=255
:newscan
echo .
echo =======================================
echo .
echo сканируется подсеть %ip1%.%ip2%.x
echo .
@chcp 866 | find "TTL"
:newscan1
ping %ip1%.%ip2%.%ip4% -w 10 -n 1 | find "TTL"
if %ip4% lss %ip5% (set /A ip4="%ip4% + 1")
if %ip4% lss %ip5% goto newscan1
if %ip4%==%ip5% (set ip4=0)
@chcp 1251 | find "хрень"
echo .
echo подсеть %ip1%.%ip2%.X просканирована
echo .
echo =======================================
echo .
if %ip2% lss %ip3% (set /A ip2="%ip2% + 1")
if %ip2% lss %ip3% goto newscan
@chcp 866 | find "TTL"
pause

скрипт настроен на сканирование сети с 192.168.0.0 до 192.168.2.254 эти настройки подходят для 90% пользователей. Остальные 10% пользователей могут самостоятельно отредактировать скрипты открыв их с помощью обычного блокнота.

зы. скрипт работает достаточно медленно, так что запаситесь терпением. для ускорения можно немного перенастроить сузив диапазон сканирования.
зыы. халявщик естественно будет виден только если будет подключен в момент работы скрипта

[zmeiuka]

скрипт общей диагностики сети

показав мастеру/специалисту/завсегдатаю_этого_раздела все то что будет выведено скриптом, вы сэкономите уйму времени.

@cd %windir%
@echo off
echo .
echo ===========================
echo ping 127.0.0.1
@ping 127.0.0.1 -w 10 -n 1 | find "TTL"
echo __________
echo ping 192.168.0.1
@ping 192.168.0.1 -w 10 -n 1 | find "TTL"
echo __________
echo ping 192.168.1.1
@ping 192.168.1.1 -w 10 -n 1 | find "TTL"
echo __________
echo ping 192.168.2.1
@ping 192.168.2.1 -w 10 -n 1 | find "TTL"
echo __________
echo ping ya.ru
@ping ya.ru -w 10 -n 1 | find "TTL"
echo ===========================
@tracert ya.ru
echo ===========================
echo .
echo ipconfig /all
@ipconfig /all
echo ===========================
echo .
echo route print
@route print
pause

[Шоколад]

отличная тема! я как раз та домохозяйка, которой это надо!

[Alex M]

Бедный нфюкг А чего прогу то не выложил? Барыжить собралси?

[zmeiuka]

вложением ее сюда не прикрепить, а давать ссылку как бы за рекламу не сочли.
прога в открытом дуступе. ссылка на форум где лежит прога у меня в профиле.

[lomaster-spb]

благими намерениями вымощена дорога в АД!!
домохозяйка должна варить борщ!!

[zmeiuka]

домохозяйка должна варить борщ!!

(домохозяйкам и не только)

зы комрады, делитесь своими скриптиками. явно же они у вас есть.

[Alex M]

Сунь в полезные программы, а тут дай линк. Прога -то неплохая. Меня скрипт на мыслю навёл.