[Tonny_Bennet]

Добавил план сети

[Tonny_Bennet]

Вообщем косяк был в том, что со стороны красного офиса невозможно было прописать роуты в белый route add 192.168.0.0 mask 255.255.255.0 192.168.2.1 metric 1
Комп выдавал ошибку: сбой добавления маршрута: либо индекс интерфейса указан неверно, либо шлюз не лежит в той же подсети

Решилось всё просто. В свойствах интерфейса который создаёт ВПН сервер есть галочка "Включить обнаружение определения маршрутизатора". Поставили. Маршрут прописался. Но только при явном указвании имени интерфейса в поле IF....

Но при переподключении VPN клиента имя интерфейса меняется. и роуты работать перестают... так что хотелось бы спросить, может стОит написать скриптик который будет:
1. Подключать ВПН
2. Смотреть в команде route print (или где то ещё) имя сетевого интерфейса
3. Добавить маршрут в сеть указав интерфейс

Думал сделать через *.bat файл но не нашёл как можно анализировать строки.

Прошу помощи. Как сделать подключение и прописать роуты?

[f1ame]

а ключ "-p" не помогает?

т.е. route add -p 192.168..... mask 255.255.255.0 192.168....

[Tonny_Bennet]

Нет ключ -p не помогает т.к. имя VPN интерфейса меняется при переподключении.
Извратился написав скрипт vbs

Код:

Dim StringArray(15) 
Set FSO=CreateObject("Scripting.FileSystemObject")
Dim Log
Set Log=FSO.OpenTextFile("C:\vpn_connect_logs.txt",8,true)

Log.WriteLine(Now()&" Запуск скрипта")
'WScript.Sleep 40000 'пауза 40 секунд
'параметры подключения
sNameOfConnection = "VPN"
sUser = "Login"
sPassword = "password"
sNameOfInt="WAN (PPP/SLIP) Interface" 'имя интерфейса

Set WshShell = CreateObject("WScript.Shell")
Set WshExec = WshShell.Exec("rasdial "&sNameOfConnection&" "&sUser&" "&sPassword) 'подключаем соединение
Log.WriteLine(Now()&" Подключение rasdial "&sNameOfConnection&" "&sUser&" "&sPassword)
WScript.Sleep 3000
Set WshExec = WshShell.Exec("route print")' смотрим route print
Set TextStream = WshExec.StdOut
Str = vbNullString
Trim(TextStream.ReadLine()) 'просто читаю первую строку она мне дальше не нужна
Trim(TextStream.ReadLine()) 'просто читаю вторую строку она мне дальше не нужна
n=0
Log.WriteLine(Now()&" Доступные сетевые интерфейсы:")
Do While Not TextStream.AtEndOfStream
	stemp = Trim(TextStream.ReadLine())' последовательно читаем строки
		if (stemp <> "===========================================================================") then 
			n=n+1
			StringArray(n)=stemp 
			Log.WriteLine(Now()&" "&stemp)
		else 
			Exit Do
		End If
Loop

sNumOfInt=""
For i=1 to 15 'просматриваю все строки и ищу нужный мне сетевой адаптер
	if (InStrRev(StringArray(i),sNameOfInt)<>0) then 
	'MsgBox sNameOfInt & " в "&i&" строке" 
	sNumOfInt = Left(StringArray(i),InStr(StringArray(i)," "))' получаю номер сетевого интерфейса
	End if
Next

Erase StringArray
if (sNumOfInt<>"") then
	Set WshExec = WshShell.Exec("route add 192.168.0.0 mask 255.255.255.0 192.168.2.1 metric 1 if "&sNumOfInt)
	Log.WriteLine(Now()&" Добавлен маршрут route add 192.168.0.0 mask 255.255.255.0 192.168.2.1 metric 1 if "&sNumOfInt)
else
MsgBox "Маршрут не добавлен. Возможно не удалось создать подключение",vbInformation + vbOK, "Внимание!"
Log.WriteLine(Now()&" Маршрут не добавлен route add 192.168.0.0 mask 255.255.255.0 192.168.2.1 metric 1 if "&sNumOfInt)	
End if
Log.WriteLine(Now()&" Работа скрипта завершена")
Log.WriteLine()
Log.Close

P.S. Прошу гуру VBS не критиковать сей код. Написал за час при том, что с VBS имел дело впервые в жизни. Работает и ладно.

и этим сообщением заканчиваю записки сумашедшего коим считаю сей топик.....

[zonderz]

и этим сообщением заканчиваю записки сумашедшего коим считаю сей топик..... »

Нормальный топик и отличный результат. Молодец.

[Tonny_Bennet]

Да просто сам с сабой общался и перечитал гору всякой фигни пока пришёл хоть к какму-то результату.