PDA

Показать полную графическую версию : Интелектуальный реконнект


win2005
21-04-2013, 22:35
Здравствуйте, нужна ваша помощь. Суть такая есть небольшой батник который позволяет получить внешний ip
set outerIP=
for /f %%x in ('mshta "about:<hta:application showintaskbar='no' windowstate='minimize' navigable='yes' border='none' caption='no' sysmenu='no'><iframe src='http://ru.smart-ip.net/myip' application='yes' onload='(new ActiveXObject("Scripting.FileSystemObject")).GetStandardStream(1).Write(window.frames.item(0).document.body.innerText);window.close();'></iframe>"') do (
set outerIP=%%x
)
echo %outerIP%
Нужно чтобы этот полученный ip сравнивался, со списком ip из файла, если совпадает делал реконект типа
:connect
rasdial /disconnect
rasdial q utel utel
if ERRORLEVEL 619 goto connect
Если не совпадает, записывал бы его следующей строкой в файл со списком ip

Georgio
23-04-2013, 11:14
FOR /F "tokens=*" %%Y IN ('FINDSTR "%outerIP%" IP_list.txt') DO IF %%Y==%outerIP% GOTO connect
1>>IP_list.txt ECHO %outerIP%
EXIT

:connect




© OSzone.net 2001-2012