[Iska]

aggressor_, выбирайте любой способ: CMD/WSH/HTA/JS/VBS: Универсальный способ определения внешнего IP и др..

Насчёт совпадений при записи в файл: поясните вид такого файла, суть его и смысл.

[aggressor_]

По вашей ссылке не совсем понял как это применить..

Вид очень простой.
Например:
118.151.161.70
122.221.141.20
и т.д. в столбец
Суть и смысл предупреждений в том, чтобы избежать подключения по одному и тому же ip. К слову, у меня он динамический.

[Iska]

Суть и смысл предупреждений в том, чтобы избежать подключения по одному и тому же ip. »

Ещё подробнее, пожалуйста.

[aggressor_]

Объясняю:
Подключился я к интернету и получил ip 118.151.161.70. При следующем подключении новый ip. В случае, если при очередном подключении повторяется ip из списка предыдущих (например опять 118.151.161.70), появляется какое-нибудь предупреждение.
Принцип работы прост. Я запускаю батник, он пишет ip в файл и проверяет на совпадение, при совпадении как-то оповещает.

[Iska]

В случае, если при очередном подключении повторяется ip из списка »

1. У Вас есть факты, подтверждающие такую ситуацию? Или мы теоретизируем?
2. Какова «глубина» списка? То есть: как и когда мы будем его обнулять?

появляется какое-нибудь предупреждение. »

А затем?

[aggressor_]

У Вас есть факты, подтверждающие такую ситуацию? Или мы теоретизируем? »

Вполне конкретная ситуация.

2. Какова «глубина» списка? То есть: как и когда мы будем его обнулять? »

Обнулять его нет необходимости. Если потребуется, я сам вручную почищу файл.

А затем? »

На предупреждении действия батника заканчиваются (перезагрузка модема и прочее проделаю сам).

[Iska]

aggressor_, ясно. Пробуйте, скрипт WSH, не требующий сторонних средств:

Код:

Option Explicit

Const ForAppending = 8
Const strPreviousIPList = "PreviousIPList.txt"

Dim strIP
Dim boolIPExists


With WScript.CreateObject("Microsoft.XMLHTTP")
	.open "GET", "http://ifconfig.me/ip", False
	.send
	
	strIP = Replace(.responseText, vbLf, "")
End With

boolIPExists = False

With WScript.CreateObject("Scripting.FileSystemObject")
	If .FileExists(strPreviousIPList) Then
		With .OpenTextFile(strPreviousIPList)
			Do Until .AtEndOfStream
				If .ReadLine() = strIP Then
					boolIPExists = True
					
					Exit Do
				End If
			Loop
			
			.Close
		End With
	End If
	
	If boolIPExists Then
		MsgBox "IP exists", vbOKOnly + vbExclamation, "IP exists"
	Else
		With .OpenTextFile(strPreviousIPList, ForAppending, True)
			.WriteLine strIP
			
			.Close
		End With
		
		MsgBox "IP [" & strIP & "] append", vbOKOnly + vbInformation, "IP append"
	End If
End With

WScript.Quit 0

[aggressor_]

Большое спасибо, всё работает.
Не могли бы вы немного изменить скрипт. Т.е. чтобы при добавлении ip в список, писало бы что-то вроде "Ip добавлен". Просто программа работает с небольшой задержкой и приходится открывать txt и смотреть сработал ли скрипт.

[Iska]

чтобы при добавлении ip в список, писало бы что-то вроде "Ip добавлен". »

Добавил:

Код:

		MsgBox "IP [" & strIP & "] append", vbOKOnly + vbInformation, "IP append"

в код поста #8.