Нет ключ -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 имел дело впервые в жизни. Работает и ладно.
и этим сообщением заканчиваю записки сумашедшего коим считаю сей топик.....
