CMD/BAT

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

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

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

registeruser1, сожалею, но ошибка на Вашей стороне:

Код:

Option Explicit

Dim objRegExp

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

WScript.Quit 0

Цитата:

Код:

IRegExp2

Попробуйте рецепты:
Службы - [решено] Проблема с Jscript на Win7.
Службы - Не удаётся найти исполняющего ядра VBScript

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

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

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

Цитата registeruser1:

Да, но код из 8-го поста ведь работает.! »

Вы видите в коде из поста #8 создание объекта «VBScript.RegExp»? Я — нет.

Цитата registeruser1:

(у меня ХР)... »

У меня — тоже.

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

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

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.

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

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

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

Код:

wscript //B ping.js

или

Код:

сscript //B ping.js

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

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

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

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

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

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