CMD/BAT - узнать какой IP будет у шлюза перед тем как создать маршрут

eXtremer · Отправлено: **10:31, 13-03-2015** | #11

Я только что поднял образ "Windows XP Professional SP3 x86 RU VL" на VMware всё работает отлично. Как я говорил, наверное система с которой я работал вчера не работало правельно. Уже походу дело когда буду поднимать VPN на компы клиентов посмотрю что получется. Спасибо.

mariolast · Отправлено: **00:01, 03-04-2015** | #12

Есть такой батник

REM создает в текущем каталоге готовый BAT-файл для
REM переноса текущих IP настроек на другой компьютер
REM и файл с именем компьютера

CLS
echo on

ipconfig | find "IPv4" > temp.txt
for /f "delims=: tokens=1-26" %%C in (temp.txt) do (echo %%D > ip.txt)

ipconfig | find "Маска" > temp.txt
for /f "delims=: tokens=1-26" %%C in (temp.txt) do (echo %%D > mask.txt)

ipconfig | find "шлюз" > temp.txt
for /f "delims=: tokens=1-26" %%C in (temp.txt) do (echo %%D > gate.txt)

Вот на последнем этапе в файле temp.txt
Основной шлюз. . . . . . . . . : 192.168.1.1
Основной шлюз. . . . . . . . . :
Основной шлюз. . . . . . . . . :

А в gate.txt записывается
Режим вывода команд на экран (ECHO) отключен

Не могу понять, в чем дело.

Foreigner · Отправлено: **01:30, 03-04-2015** | #13

mariolast, Лучше через wmic:

Код:

@echo off
setlocal

set "wmic=wmic nicconfig where ipenabled='true' get DefaultIPGateway,IPAddress,IPSubnet /value"
for /f %%i in (' "%wmic%" ') do 1>nul set "%%i"

for /f "tokens=1 delims={}," %%i in ("%DefaultIPGateway%") do echo gateway: %%~i
for /f "tokens=1 delims={}," %%i in ("%IPAddress%") do echo ipaddress: %%~i
for /f "tokens=1 delims={}," %%i in ("%IPSubnet%") do echo ipsubnet: %%~i

mariolast · Отправлено: **07:48, 03-04-2015** | #14

Аесли надо в текстовый файл писать?
Задача стоит в следующем.
Создать в текущем каталоге готовый BAT-файл для переноса текущих IP настроек на другой компьютер и файл с именем компьютера
Содержание батника

Код:

CLS
echo off
 
ipconfig | find "IPv4" > temp.txt
for /f "delims=: tokens=1-26" %%C in (temp.txt) do (echo %%D > ip.txt)
 
ipconfig | find "Маска"  > temp.txt
for /f "delims=: tokens=1-26" %%C in (temp.txt) do (echo %%D > mask.txt)
 
ipconfig | find "шлюз" > temp.txt
for /f "delims=: tokens=1-26" %%C in (temp.txt) do (echo %%D > gate.txt)
pause 
vbs_getIP.vbs
 
del temp.txt
del gate.txt
del mask.txt
del ip.txt
del setip.txt

Содержание vbs скрипта

Код:

Set ADODBStream = CreateObject("ADODB.Stream")
ADODBStream.Type = 2
ADODBStream.Charset =  "UTF-8"
ADODBStream.Open()
ADODBStream.LoadFromFile("ip.txt")
Text = ADODBStream.ReadText()
ADODBStream.Close()
 
dim str
str = Cstr(Text)
str1=""
 
for i=1 to len(str)
    i1=mid(str,i,1) 
    iC=Asc(i1)
    if (iC>45 and iC<58) then
         str1=str1+i1   
    end if
next
varIP=str1
 
REM ***************************************************
REM *       Забираем маску из файла     *
REM ***************************************************
 
Set ADODBStream = CreateObject("ADODB.Stream")
ADODBStream.Type = 2
ADODBStream.Charset =  "UTF-8"
ADODBStream.Open()
ADODBStream.LoadFromFile("mask.txt")
Text = ADODBStream.ReadText()
ADODBStream.Close()
 
str = Cstr(Text)
str1=""
 
for i=1 to len(str)
    i1=mid(str,i,1) 
    iC=Asc(i1)
    if (iC>45 and iC<58) then
         str1=str1+i1   
    end if
next
varMASK=str1
 
REM ***************************************************
REM *       Забираем шлюз из файла      *
REM ***************************************************
 
Set ADODBStream = CreateObject("ADODB.Stream")
ADODBStream.Type = 2
ADODBStream.Charset =  "UTF-8"
ADODBStream.Open()
ADODBStream.LoadFromFile("gate.txt")
Text = ADODBStream.ReadText()
ADODBStream.Close()
 
str = Cstr(Text)
str1=""
 
for i=1 to len(str)
    i1=mid(str,i,1) 
    iC=Asc(i1)
    if (iC>45 and iC<58) then
         str1=str1+i1   
    end if
next
varGATE=str1
 
REM ***************************************************
REM *   Формируем текст батника для NETSH   *
REM ***************************************************
 
str1 = "netsh interface ip set address name="+chr(34)+"Подключение по локальной сети"+chr(34)+ " static  " + varIP + " " + varMASK + " " + varGATE+" 1"
 
REM *****************************************************
REM *   пишем строку  для запуска батника  в файл *
REM *****************************************************
 
msgbox str1,,"Кошки правят!"
 
test = "setip.bat"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set TestTeam = objFSO.OpenTextFile(test, 2, True)
Set File = objFSO.GetFile(test)    
TestTeam.WriteLine str1
TestTeam.close

Foreigner · Отправлено: **10:02, 03-04-2015** | #15

mariolast, Перенести настройки можно, создав сценарий конфигурации ipv4:

Код:

netsh interface ip dump > dump.txt

И запустить его:

Код:

netsh exec -f dump.txt

Не знаю, как это будет выглядеть на разных машинах

Цитата mariolast:

Аесли надо в текстовый файл писать? »

Код:

@echo off
setlocal

set "wmic=wmic nicconfig where ipenabled='true' get DefaultIPGateway,IPAddress,IPSubnet /value"
for /f %%i in (' "%wmic%" ') do 1>nul set "%%i"

1>file.txt (

    for /f "tokens=1 delims={}," %%i in ("%DefaultIPGateway%") do echo gateway: %%~i
    for /f "tokens=1 delims={}," %%i in ("%IPAddress%") do echo ipaddress: %%~i
    for /f "tokens=1 delims={}," %%i in ("%IPSubnet%") do echo ipsubnet: %%~i

)

eXtremer · Отправлено: **11:12, 31-03-2017** | #16

Добрый день всем, возвращаюсь к давней проблеме.
Код ниже работает отлично на все англоязычные всерий Windows. А вот с на руских через раз или вовсе не работает. Что можно изминить чтобы кода рабтол на все версий ОС не важно какой язык?
Проблема в том что код работает на половину, он создает подключение но маршрут не может добавить, не понимает команду: @route add 172.23.250.250 mask 255.255.255.255 %GetIp%
Помогите разобратся.

*В 99% из случай я добавляю этот код на машинах с Windows XP.

Код:

@rasdial VPN User Pass
@setlocal
@for /f "tokens=1-2 delims=:" %%i in ('ipconfig ^| find "IP" ^| find "172.23"') do set GETIP=%%j
@route add 172.23.250.250 mask 255.255.255.255 %GetIp%
@endlocal
@exit 0