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

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

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

Аватара для aggressor_

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


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


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

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


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

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

 

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


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

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


Iska, спасибо, но там ошибка какая-то -



Отправлено: 06:54, 04-08-2013 | #31



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

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


Ветеран


Contributor


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

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


registeruser1, сожалею, но ошибка на Вашей стороне:
Код: Выделить весь код
Option Explicit

Dim objRegExp

Set objRegExp = WScript.CreateObject("VBScript.RegExp")
WScript.Echo TypeName(objRegExp)

WScript.Quit 0
Цитата:
Код: Выделить весь код
IRegExp2
Попробуйте рецепты:
Службы - [решено] Проблема с Jscript на Win7.
Службы - Не удаётся найти исполняющего ядра VBScript

Отправлено: 07:58, 04-08-2013 | #32


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


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

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


Да, но код из 8-го поста ведь работает.! (у меня ХР)...

Отправлено: 08:01, 04-08-2013 | #33


Ветеран


Contributor


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

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


Цитата registeruser1:
Да, но код из 8-го поста ведь работает.! »
Вы видите в коде из поста #8 создание объекта «VBScript.RegExp»? Я — нет.

Цитата registeruser1:
(у меня ХР)... »
У меня — тоже.


Ещё раз повторю: воспользуйтесь рецептами по приведённым ссылкам, перерегистрируйте библиотеки.

Отправлено: 09:21, 04-08-2013 | #34

pva pva вне форума

Аватара для pva

Ветеран


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

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


Windows 7 Домашняя базовая, sp1 заработала в таком варианте:
ping.js:
Код: Выделить весь код
var 
  fso = new ActiveXObject("Scripting.FileSystemObject"),
  get_ip = new ActiveXObject("WinHttp.WinHttpRequest.5.1"),
  got_ip, str_ip, last_time_this_ip,
  last_time_ip={};

try { 
  eval(fso.OpenTextFile("last_ip.txt", 1).ReadAll()); 
} catch(e) { 
  WScript.Echo(e.message);
  fso.CreateTextFile("last_ip.txt", true); 
}

get_ip.Open("GET", "http://ifconfig.me/ip", false);
get_ip.Send();
got_ip = /[\d.]+/.exec(String(get_ip.responseText));
//got_ip=["192.168.0.1"];

if (got_ip) {
  str_ip = got_ip[0];
  last_time_this_ip = last_time_ip[str_ip];
  if (last_time_this_ip) {
    WScript.Echo("Last time "+str_ip+" was at "+last_time_this_ip);
  }
  fso.OpenTextFile("last_ip.txt", 8).WriteLine("last_time_ip[\""+str_ip+"\"]=\""+new Date()+"\";");
}
Предупреждаю: не самый экономный для памяти вариант. Лучше сделать гибрид с предложенным Iska.

Последний раз редактировалось pva, 04-08-2013 в 23:10.

Это сообщение посчитали полезным следующие участники:

Отправлено: 22:54, 04-08-2013 | #35


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


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

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


pva, отлично работает, а можно без всяких окон выскакивающих.?

Отправлено: 23:10, 04-08-2013 | #36

pva pva вне форума

Аватара для pva

Ветеран


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

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


Код: Выделить весь код
wscript //B ping.js
или
Код: Выделить весь код
сscript //B ping.js

Отправлено: 23:16, 04-08-2013 | #37


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


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

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


Честно ничего не понял из последнего поста, я не разбираюсь в скриптах же ))...
Можно по-подробней, куда это?

Отправлено: 01:11, 05-08-2013 | #38


Ветеран


Contributor


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

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


Хоть в \Пуск\Выполнить (только с полным путём до скрипта), хоть в пакетный файл.

Отправлено: 01:49, 05-08-2013 | #39

pva pva вне форума

Аватара для pva

Ветеран


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

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


registeruser1, а есть познания в командной оболочке windows? (консоль, рабочая папка, полный путь к файлу, системная папка, пакетный файл) или нужна подробная инструкция?

Отправлено: 09:49, 05-08-2013 | #40



Компьютерный форум 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




 
Переход