облагородить мой командный сценарий

@mat86 · Регистрация: 28.07.2019

Студворк — интернет-сервис помощи студентам

Можете помочь облагородить мой командный сценарий

Кликните здесь для просмотра всего текста

chcp 1251
For /F "UseBackQ Tokens=2*" %%I In (`Reg Query "HKEY_LOCAL_MACHINE\system\ControlSet001 \Control\ComputerName\ComputerName"^|Fin d /I "ComputerName"`) Do >>text.txt Echo;Имя компьютера %%J
echo ======================================== =======>>text.txt

for /f "usebackq tokens=8 delims=" %%A in (`reg query "HKLM\system\ControlSet001\services\Tcpi p\Parameters\Interfaces" /se #`) do call :PROCESS "%%A"

@chcp 1251>nul
@for /f "delims= eol=" %%i in ('2^<^&1 savefiledialog " Сохранить как" "%cd%\Ip-адрес.txt" "Txt Files (*.txt)"') do type text.txt>%%i

goto :EOF
:PROCESS
For /F "UseBackQ Tokens=2*" %%I In (`Reg Query "HKEY_LOCAL_MACHINE\system\ControlSet001 \services\Tcpip\Parameters\Interfaces\%~ 1" /v "IPAddress"`) Do >>text.txt Echo;IP %%J
For /F "UseBackQ Tokens=2*" %%I In (`Reg Query "HKEY_LOCAL_MACHINE\system\ControlSet001 \services\Tcpip\Parameters\Interfaces\%~ 1" /v "SubnetMask"`) Do >>text.txt Echo;Маска %%J
For /F "UseBackQ Tokens=2*" %%I In (`Reg Query "HKEY_LOCAL_MACHINE\system\ControlSet001 \services\Tcpip\Parameters\Interfaces\%~ 1" /v "DefaultGateway"`) Do >>text.txt Echo;Шлюз %%J
For /F "UseBackQ Tokens=2*" %%I In (`Reg Query "HKEY_LOCAL_MACHINE\system\ControlSet001 \services\Tcpip\Parameters\Interfaces\%~ 1" /v "NameServer"`) Do >>text.txt Echo;%%J
echo :>>text.txt
echo ----------------------------------------------->>text.txt
echo :>>text.txt
goto :EOF

Выводит такой результат:

Кликните здесь для просмотра всего текста

Имя компьютера HOME-ПК
======================================== =======
IP 192.168.1.129
Маска 255.255.255.0
Шлюз 192.168.1.1
8.8.8.8,8.8.4.4
:
-----------------------------------------------
:
IP 192.168.234.1
Маска 255.255.255.0

:
-----------------------------------------------
:

:
-----------------------------------------------
:
:
-----------------------------------------------
:
IP 192.168.64.1
Маска 255.255.255.0

:
-----------------------------------------------
:

:
-----------------------------------------------
:
IP 192.168.56.1
Маска 255.255.255.0

:
-----------------------------------------------
:

Если добавляю слово DNS, тогда такой

Кликните здесь для просмотра всего текста

Имя компьютера HOME-ПК
======================================== =======
IP 192.168.1.129
Маска 255.255.255.0
Шлюз 192.168.1.1
DNS 8.8.8.8,8.8.4.4
:
-----------------------------------------------
:
IP 192.168.234.1
Маска 255.255.255.0
DNS
:
-----------------------------------------------
:
DNS
:
-----------------------------------------------
:
:
-----------------------------------------------
:
IP 192.168.64.1
Маска 255.255.255.0
DNS
:
-----------------------------------------------
:
DNS
:
-----------------------------------------------
:
IP 192.168.56.1
Маска 255.255.255.0
DNS
:
-----------------------------------------------
:

Если убираю разделители то почти как надо

Кликните здесь для просмотра всего текста

Имя компьютера HOME-ПК
======================================== =======
IP 192.168.1.129
Маска 255.255.255.0
Шлюз 192.168.1.1
DNS 8.8.8.8,8.8.4.4
IP 192.168.234.1
Маска 255.255.255.0
DNS
DNS
IP 192.168.64.1
Маска 255.255.255.0
DNS
DNS
IP 192.168.56.1
Маска 255.255.255.0
DNS

Но не хватает пробелов после DNS и слово DNS если значение пусто то лишнее

FlasherX · 02.08.2019, 20:15

mat86, я так в итоге и не понял, зачем вы лезете за ComputerName в реестр? Мы же это обсуждали.

Ключа ControlSet001 может и не быть. Не логичней в CurrentControlSet смотреть?
И при динамических IP нужно смотреть те же параметры, но с Dhcp спереди.

@mat86 · 02.08.2019, 21:26 **[ТС]**

Мне как раз динамические не нужны, только статические. Это не полный скрипт, это основная часть. Я привел ее чтобы меньше было путаницы. Полный скрипт будет работать так, человек загружается с windows PE, или как еще называют Live CD, вообщем грузится с флэшки или диска, запускает скрипт, скрипт просит указать где расположена папка с windows, либо сразу реестр (два варианта) и скрипт подключает файл реестра system в текущий реестр в ветку hklm с названием tmp-system. Далее работает эта часть которую я привел в этой теме, она вытягивает нужную информацию из реестра и предлагает сохранить в текстовом файле. И отключает присоединенную ветку реестра. В данном случае команда получения имя компьютера будет получать его из windows PE, а не из другого windows как надо. Поэтому нужно вытягивать информацию непосредственно с прямого указания веток реестра. Если нужно могу приложить полную версию.

FlasherX · 04.08.2019, 23:50

Windows Batch file
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
@echo off&setlocal enabledelayedexpansion&chcp 1251>nul
 
for /f "delims= eol=" %%i in ('2^<^&1 savefiledialog " Сохранить как" "%cd%\Ip-адрес.txt" "Txt Files (*.txt)"') do set "file=%%i"&type nul>%%i
if not defined file exit
for /f "skip=3 tokens=3" %%i In ('Reg Query HKLM\system\ControlSet001\Control\ComputerName\ComputerName') Do echo Имя компьютера %%i>>!file!
echo ===============================================>>!file!
set Hive=HKLM\System\ControlSet001\services\Tcpip\Parameters\Interfaces
for /f "tokens=8 delims=\" %%i in ('2^>nul reg query "!Hive!"') do call:PROCESS %%i
exit
 
:PROCESS
set c=
for %%p In (IPAddress.IP SubnetMask.Маска DefaultGateway.Шлюз NameServer.DNS) do ^
for /f "tokens=3" %%i In ('2^>nul Reg Query !Hive!\%~1 /v %%~np') do If "%%i" neq "" set "c=1"&echo%%~xp %%i>>!file!
if defined c echo.>>!file!
goto:eof

@mat86 · 05.08.2019, 02:40 **[ТС]**

FlasherX, спасибо. А можно ли добавить пробелы для красоты и подчеркивание? Сейчас у меня выводится так

Windows Batch file
1
2
3
4
5
IP                     10.70.200.50
Маска                  255.255.255.0
Шлюз                   10.70.200.1
                       10.4.8.4,10.4.8.5
--------------------------------------------

По вашему сценарию так

Windows Batch file
1
2
3
4
IP 10.70.200.50
Маска 255.255.255.0
Шлюз 10.70.200.1
DNS 10.4.8.4,10.4.8.5

Добавлено через 4 минуты
У меня такой сейчас сценарий

Windows Batch file
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
for /f "usebackq tokens=8 delims=\" %%A in (`reg query "HKLM\system\ControlSet001\services\Tcpip\Parameters\Interfaces" /se #`) do call :PROCESS "%%A"
 
@chcp 1251>nul
@for /f "delims= eol=" %%i in ('2^<^&1 savefiledialog " Сохранить как" "Y:\Ip-адрес.txt" "Txt Files (*.txt)"') do type text.txt>%%i
 
 
goto :EOF
:PROCESS
For /F "UseBackQ Tokens=2*" %%I In (`Reg Query "HKEY_LOCAL_MACHINE\system\ControlSet001\services\Tcpip\Parameters\Interfaces\%~1" /v "IPAddress"`) Do >>text.txt      Echo;
For /F "UseBackQ Tokens=2*" %%I In (`Reg Query "HKEY_LOCAL_MACHINE\system\ControlSet001\services\Tcpip\Parameters\Interfaces\%~1" /v "IPAddress"`) Do >>text.txt      Echo;IP                     %%J
For /F "UseBackQ Tokens=2*" %%I In (`Reg Query "HKEY_LOCAL_MACHINE\system\ControlSet001\services\Tcpip\Parameters\Interfaces\%~1" /v "SubnetMask"`) Do >>text.txt     Echo;Маска                  %%J
For /F "UseBackQ Tokens=2*" %%I In (`Reg Query "HKEY_LOCAL_MACHINE\system\ControlSet001\services\Tcpip\Parameters\Interfaces\%~1" /v "DefaultGateway"`) Do >>text.txt Echo;Шлюз                   %%J
For /F "UseBackQ Tokens=2*" %%I In (`Reg Query "HKEY_LOCAL_MACHINE\system\ControlSet001\services\Tcpip\Parameters\Interfaces\%~1" /v "NameServer"`) Do >>text.txt     Echo;                       %%J
For /F "UseBackQ Tokens=2*" %%I In (`Reg Query "HKEY_LOCAL_MACHINE\system\ControlSet001\services\Tcpip\Parameters\Interfaces\%~1" /v "IPAddress"`) Do >>text.txt      Echo;--------------------------------------------
goto :EOF

FlasherX · 05.08.2019, 10:15

Windows Batch file
1
2
3
4
5
6
7
8
9
10
11
12
13
@echo off&setlocal enabledelayedexpansion&chcp 1251>nul
 
for /f "delims= eol=" %%i in ('2^<^&1 savefiledialog " Сохранить как" "%cd%\Ip-адрес.txt" "Txt Files (*.txt)"') do set "file=%%i"&type nul>%%i
if not defined file exit
for /f "skip=3 tokens=3" %%i In ('Reg Query HKLM\system\ControlSet001\Control\ComputerName\ComputerName') Do echo Имя компьютера: %%i>>!file!
echo ========================================>>!file!
set Hive=HKLM\System\ControlSet001\services\Tcpip\Parameters\Interfaces
for /f "tokens=8 delims=\" %%i in ('2^>nul reg query "!Hive!"') do (
set c=
for %%p In ("IPAddress.IP    |" "SubnetMask.Маска |" "DefaultGateway.Шлюз  |" "NameServer.DNS   |") do ^
for /f "tokens=3" %%v In ('2^>nul reg query !Hive!\%%i /v %%~np') do if "%%v" neq "" set "c=1"&>>"!file!" echo%%~xp                %%v
if defined c echo ————————————————————————————————————————>>!file!
)

@mat86 · 05.08.2019, 13:50 **[ТС]**

А без | этих символов никак не получится? Не смотрится с ними. Просто пробелы не сделать?

FlasherX · 05.08.2019, 14:32

Без разделителей в целом писать некорректно. Добавил двоеточия к словам:

Windows Batch file
1
2
3
4
5
6
7
8
9
10
11
12
13
@echo off&setlocal enabledelayedexpansion&chcp 1251>nul
 
for /f "delims= eol=" %%i in ('2^<^&1 savefiledialog " Сохранить как" "%cd%\Ip-адрес.txt" "Txt Files (*.txt)"') do set "file=%%i"&type nul>%%i
if not defined file exit
for /f "skip=3 tokens=3" %%i In ('Reg Query HKLM\system\ControlSet001\Control\ComputerName\ComputerName') Do echo Имя компьютера: %%i>>!file!
echo ========================================>>!file!
set Hive=HKLM\System\ControlSet001\services\Tcpip\Parameters\Interfaces
for /f "tokens=8 delims=\" %%i in ('2^>nul reg query "!Hive!"') do (
set c=
for %%p In ("IPAddress.IP:   :" "SubnetMask.Маска::" "DefaultGateway.Шлюз: :" "NameServer.DNS:  :") do set "n=%%~xp" &^
for /f "tokens=3" %%v In ('2^>nul reg query !Hive!\%%i /v %%~np') do if "%%v" neq "" set "c=1"&>>"!file!" echo !n:~1,-1!                 %%v
if defined c echo ————————————————————————————————————————>>!file!
)

@mat86 · 05.08.2019, 14:41 **[ТС]**

Теперь отступать можно, отлично. А совсем без разделителей нельзя?

FlasherX · 05.08.2019, 15:34

Ну, если так любо оставаться двоечником, удалите первые двоеточия после каждого названия в 10-й строке, а в 11-й в конце перед %%v ещё пробельчик добавьте.

@mat86 · 05.08.2019, 18:31 **[ТС]**

Огромное спасибо. Извините двоечника, не всем же быть отличником, кому то надо и двоечником. Спасибо большое еще

раз теперь то что надо

!

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

облагородить мой командный сценарий

Решение

Решение

@mat86 0 / 0 / 0 Регистрация: 28.07.2019 Сообщений: 23

	облагородить мой командный сценарий 29.07.2019, 20:14. Показов 2374. Ответов 10 Метки нет (Все метки) Можете помочь облагородить мой командный сценарий Кликните здесь для просмотра всего текста chcp 1251 For /F "UseBackQ Tokens=2" %%I In (`Reg Query "HKEY_LOCAL_MACHINE\system\ControlSet001 \Control\ComputerName\ComputerName"^\|Fin d /I "ComputerName"`) Do >>text.txt Echo;Имя компьютера %%J echo ======================================== =======>>text.txt for /f "usebackq tokens=8 delims=" %%A in (`reg query "HKLM\system\ControlSet001\services\Tcpi p\Parameters\Interfaces" /se #`) do call :PROCESS "%%A" @chcp 1251>nul @for /f "delims= eol=" %%i in ('2^<^&1 savefiledialog " Сохранить как" "%cd%\Ip-адрес.txt" "Txt Files (.txt)"') do type text.txt>%%i goto :EOF :PROCESS For /F "UseBackQ Tokens=2" %%I In (`Reg Query "HKEY_LOCAL_MACHINE\system\ControlSet001 \services\Tcpip\Parameters\Interfaces\%~ 1" /v "IPAddress"`) Do >>text.txt Echo;IP %%J For /F "UseBackQ Tokens=2" %%I In (`Reg Query "HKEY_LOCAL_MACHINE\system\ControlSet001 \services\Tcpip\Parameters\Interfaces\%~ 1" /v "SubnetMask"`) Do >>text.txt Echo;Маска %%J For /F "UseBackQ Tokens=2" %%I In (`Reg Query "HKEY_LOCAL_MACHINE\system\ControlSet001 \services\Tcpip\Parameters\Interfaces\%~ 1" /v "DefaultGateway"`) Do >>text.txt Echo;Шлюз %%J For /F "UseBackQ Tokens=2" %%I In (`Reg Query "HKEY_LOCAL_MACHINE\system\ControlSet001 \services\Tcpip\Parameters\Interfaces\%~ 1" /v "NameServer"`) Do >>text.txt Echo;%%J echo :>>text.txt echo ----------------------------------------------->>text.txt echo :>>text.txt goto :EOF Выводит такой результат: Кликните здесь для просмотра всего текста Имя компьютера HOME-ПК ======================================== ======= IP 192.168.1.129 Маска 255.255.255.0 Шлюз 192.168.1.1 8.8.8.8,8.8.4.4 : ----------------------------------------------- : IP 192.168.234.1 Маска 255.255.255.0 : ----------------------------------------------- : : ----------------------------------------------- : : ----------------------------------------------- : IP 192.168.64.1 Маска 255.255.255.0 : ----------------------------------------------- : : ----------------------------------------------- : IP 192.168.56.1 Маска 255.255.255.0 : ----------------------------------------------- : Если добавляю слово DNS, тогда такой Кликните здесь для просмотра всего текста Имя компьютера HOME-ПК ======================================== ======= IP 192.168.1.129 Маска 255.255.255.0 Шлюз 192.168.1.1 DNS 8.8.8.8,8.8.4.4 : ----------------------------------------------- : IP 192.168.234.1 Маска 255.255.255.0 DNS : ----------------------------------------------- : DNS : ----------------------------------------------- : : ----------------------------------------------- : IP 192.168.64.1 Маска 255.255.255.0 DNS : ----------------------------------------------- : DNS : ----------------------------------------------- : IP 192.168.56.1 Маска 255.255.255.0 DNS : ----------------------------------------------- : Если убираю разделители то почти как надо Кликните здесь для просмотра всего текста Имя компьютера HOME-ПК ======================================== ======= IP 192.168.1.129 Маска 255.255.255.0 Шлюз 192.168.1.1 DNS 8.8.8.8,8.8.4.4 IP 192.168.234.1 Маска 255.255.255.0 DNS DNS IP 192.168.64.1 Маска 255.255.255.0 DNS DNS IP 192.168.56.1 Маска 255.255.255.0 DNS Но не хватает пробелов после DNS и слово DNS если значение пусто то лишнее 0

FlasherX 6981 / 2873 / 1104 Регистрация: 06.06.2017 Сообщений: 9,752
	02.08.2019, 20:15
	mat86, я так в итоге и не понял, зачем вы лезете за ComputerName в реестр? Мы же это обсуждали. Ключа ControlSet001 может и не быть. Не логичней в CurrentControlSet смотреть? И при динамических IP нужно смотреть те же параметры, но с `Dhcp` спереди. 0

@mat86 0 / 0 / 0 Регистрация: 28.07.2019 Сообщений: 23
	02.08.2019, 21:26 [ТС]
	Мне как раз динамические не нужны, только статические. Это не полный скрипт, это основная часть. Я привел ее чтобы меньше было путаницы. Полный скрипт будет работать так, человек загружается с windows PE, или как еще называют Live CD, вообщем грузится с флэшки или диска, запускает скрипт, скрипт просит указать где расположена папка с windows, либо сразу реестр (два варианта) и скрипт подключает файл реестра system в текущий реестр в ветку hklm с названием tmp-system. Далее работает эта часть которую я привел в этой теме, она вытягивает нужную информацию из реестра и предлагает сохранить в текстовом файле. И отключает присоединенную ветку реестра. В данном случае команда получения имя компьютера будет получать его из windows PE, а не из другого windows как надо. Поэтому нужно вытягивать информацию непосредственно с прямого указания веток реестра. Если нужно могу приложить полную версию. 0

@mat86 0 / 0 / 0 Регистрация: 28.07.2019 Сообщений: 23
	05.08.2019, 13:50 [ТС]
	А без \| этих символов никак не получится? Не смотрится с ними. Просто пробелы не сделать? 0

@mat86 0 / 0 / 0 Регистрация: 28.07.2019 Сообщений: 23
	05.08.2019, 14:41 [ТС]
	Теперь отступать можно, отлично. А совсем без разделителей нельзя? 0

FlasherX 6981 / 2873 / 1104 Регистрация: 06.06.2017 Сообщений: 9,752
	05.08.2019, 15:34
	Сообщение было отмечено mat86 как решение Решение Ну, если так любо оставаться двоечником, удалите первые двоеточия после каждого названия в 10-й строке, а в 11-й в конце перед %%v ещё пробельчик добавьте. 0

@mat86 0 / 0 / 0 Регистрация: 28.07.2019 Сообщений: 23
	05.08.2019, 18:31 [ТС]
	Огромное спасибо. Извините двоечника, не всем же быть отличником, кому то надо и двоечником. Спасибо большое еще раз теперь то что надо ! 0