Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » CMD/BAT - [решено] Определение IP и запись в файл

Ответить
Настройки темы
CMD/BAT - [решено] Определение IP и запись в файл

Аватара для aggressor_

Пользователь


Сообщения: 101
Благодарности: 3


Конфигурация

Профиль | Отправить PM | Цитировать


Здравствуйте!
Выбрал cmd/bat, но это особой роли не играет, подойдёт любой способ.
Нужно записывать ip адрес в файл..
Если возможно, проверять на совпадения с предыдущими подключениями и при совпадении как-то демонстрировать это, будь то звук или табличка какая.
Смысл в том, чтобы каждый раз не заходить на 2ip, копировать адрес и проверять на совпадение вручную, а как-то автоматизировать этот процесс.

Отправлено: 23:37, 26-02-2012

 

Пользователь


Сообщения: 60
Благодарности: 1

Профиль | Отправить PM | Цитировать


Здравствуйте, пытаюсь запустить на Win 10 скрипт из поста #15. выдает
Код: Выделить весь код
Сценарий:	D:\Cheсk_IP.vbs
Строка:	24
Символ:	1
Ошибка:	Не удается найти указанный поставщик. Вероятно, он установлен неправильно.
Код:	800A0E7A
Источник: 	ADODB.Connection
В чем может быть проблема?
В строке 24 вроде все нормально:
https://3.downloader.disk.yandex.ru/...282d39e3212b8e

Последний раз редактировалось Sta1917, 15-11-2017 в 00:38.


Отправлено: 00:06, 15-11-2017 | #41



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Ветеран


Сообщения: 27449
Благодарности: 8086

Профиль | Отправить PM | Цитировать


Цитата Sta1917:
В чем может быть проблема? »
В том же, о чём написано зараз после поста #15 — в отсутствии библиотеки. Если Ваша ОС — x64, можете попробовать исполнить скрипт под x86-хостом:
Код: Выделить весь код
C:\Windows\SysWOW64\wscript.exe "Путь\Скрипт.vbs"
или:
Код: Выделить весь код
C:\Windows\SysWOW64\cscript.exe //nologo "Путь\Скрипт.vbs"

Отправлено: 00:54, 15-11-2017 | #42


Пользователь


Сообщения: 60
Благодарности: 1

Профиль | Отправить PM | Цитировать


При запуске через wscript выдает:
Код: Выделить весь код
Сценарий:	D:\Check_IP.vbs
Строка:	82
Символ:	3
Ошибка:	Сбой скачивания указанного ресурса.

Код:	800C0008
Источник: 	msxml3.dll
При запуске через cscript открывает диалоговое окно cscript, без возможности вставки чего-либо.
Установка MDAC не помогла.

Последний раз редактировалось Sta1917, 15-11-2017 в 10:19.


Отправлено: 01:57, 15-11-2017 | #43


Ветеран


Сообщения: 27449
Благодарности: 8086

Профиль | Отправить PM | Цитировать


Цитата Sta1917:
При запуске через wscript выдает:
Код: Выделить весь код
Сценарий: D:\Avito_Tech\Check_IP.vbs
Строка: 82
Символ: 3
Ошибка: Сбой скачивания указанного ресурса. »
А «ручками», в браузере, у Вас доступен адрес http://ifconfig.me/ip?

Цитата Sta1917:
При запуске через cscript открывает диалоговое окно cscript, без возможности вставки чего-либо. »
А что Вы там планировали вставлять?!

Цитата Sta1917:
Установка MDAC не помогла. »
Помогла или не помогла — не знаю, но ведь уже работает, ошибка в другом месте и по другой причине.

Отправлено: 03:14, 15-11-2017 | #44


Пользователь


Сообщения: 60
Благодарности: 1

Профиль | Отправить PM | Цитировать


Цитата Iska:
А «ручками», в браузере, у Вас доступен адрес http://ifconfig.me/ip? »
Работает, также работает скрипт из поста #8.
Цитата Iska:
При запуске через cscript открывает диалоговое окно cscript, без возможности вставки чего-либо. »
А что Вы там планировали вставлять?! »
Вы предложили:
Цитата Iska:
C:\Windows\SysWOW64\cscript.exe //nologo "Путь\Скрипт.vbs" »
Вообще после проверки ip нужно запустить приложение (*.exe), если IP нет в списке, если есть сказать какой и когда был добавлен.
p.s.: Компиляция в *.exe ничего недала.

Последний раз редактировалось Sta1917, 15-11-2017 в 14:41.


Отправлено: 10:37, 15-11-2017 | #45


Ветеран


Сообщения: 27449
Благодарности: 8086

Профиль | Отправить PM | Цитировать


Цитата Sta1917:
также работает скрипт из поста #8. »
Да ну. Единственное отличие #15 от #8 по существу места ошибки — в использовании метода .setRequestHeader.

Цитата Sta1917:
p.s.: Компиляция в *.exe ничего недала. »
И не должна была.

Отправлено: 11:43, 15-11-2017 | #46


Пользователь


Сообщения: 60
Благодарности: 1

Профиль | Отправить PM | Цитировать


При запуске скрипта из поста #8 двойным кликом периодически вываливается
Код: Выделить весь код
Сценарий:	D:\Check_IP(8).vbs
Строка:	12
Символ:	2
Ошибка:	Не удается найти указанный ресурс.

Код:	800C0005
Источник: 	msxml3.dll
При запуске
Код: Выделить весь код
start C:\Windows\SysWOW64\wscript.exe "D:\Check_IP(8).vbs"
все впорядке.

Сделал
Код: Выделить весь код
regsvr32 msxml.dll
Теперь при запуске скрипта из поста #15 появляется:
Код: Выделить весь код
Сценарий:	D:\Check_IP(15).vbs
Строка:	81
Символ:	2
Ошибка:	Не удается найти указанный ресурс.

Код:	800C0005
Источник: 	msxml3.dll
UPD: Теперь вываливается:
Код: Выделить весь код
Сценарий:	D:\Check_IP(15).vbs
Строка:	34
Символ:	2
Ошибка:	Отсутствует значение для одного или нескольких требуемых параметров.
Код:	80040E10
Источник: 	Microsoft JET Database Engine

Последний раз редактировалось Sta1917, 15-11-2017 в 22:38.


Отправлено: 22:32, 15-11-2017 | #47


Новый участник


Сообщения: 6
Благодарности: 0

Профиль | Отправить PM | Цитировать


Здравствуйте, Iska! Будьте любезны, внесите изменение в данный скрипт из поста №8, что бы в конце IP отображалась дата и время записи, буду вам очень благодарен.
Пример:
118.151.161.70 (07.02.2019 / 07:31)
122.221.141.20 (07.02.2019 / 07:39)
И т.д...

Цитата Iska:
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 »

Отправлено: 07:47, 07-02-2019 | #48


Ветеран


Сообщения: 27449
Благодарности: 8086

Профиль | Отправить PM | Цитировать


Цитата cinstaller:
что бы в конце IP отображалась дата и время записи »
«В конце IP» — это где? В файле? Или в сообщении?

Отправлено: 19:18, 07-02-2019 | #49


Новый участник


Сообщения: 6
Благодарности: 0

Профиль | Отправить PM | Цитировать


Цитата Iska:
«В конце IP» — это где? В файле? Или в сообщении? »
Что бы при внесение IP в тхт файл записывалась дата и время в конце адреса в таком формате.
Пример:
118.151.161.70 (07.02.2019 / 07:31)
122.221.141.20 (07.02.2019 / 07:39)

И еще один момент, вылетает ошибка при запуске скрипта вовремя отключения интернета.



Хотелось бы, что бы вместо этой ошибки появлялся MsgBox в котором выводилась информация - ожидаем подключения к интернету.

Последний раз редактировалось cinstaller, 10-02-2019 в 23:54.


Отправлено: 21:38, 07-02-2019 | #50



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » CMD/BAT - [решено] Определение IP и запись в файл

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
CMD/BAT - Определение и запись в boot.ini пути XP tupica Скриптовые языки администрирования Windows 0 03-02-2011 16:42
Assm - [решено] Запись в файл pogo Программирование и базы данных 7 24-11-2010 09:15
C/C++ - [решено] запись в файл Viruss Программирование и базы данных 3 05-08-2010 18:27
CMD/BAT - [решено] определение оборудования из коммандной строки и запись в отчета файл RedX Скриптовые языки администрирования Windows 3 14-07-2010 09:33
запись в файл на Perl koresaram Вебмастеру 3 16-03-2006 13:46




 
Переход