Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)
-   -   Интелектуальный реконнект (http://forum.oszone.net/showthread.php?t=259132)

win2005 21-04-2013 22:35 2137266

Интелектуальный реконнект
 
Здравствуйте, нужна ваша помощь. Суть такая есть небольшой батник который позволяет получить внешний 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).docume nt.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 2138123

Код:

FOR /F "tokens=*" %%Y IN ('FINDSTR "%outerIP%" IP_list.txt') DO IF %%Y==%outerIP% GOTO connect
1>>IP_list.txt ECHO %outerIP%
EXIT

:connect



Время: 03:12.

Время: 03:12.
© OSzone.net 2001-