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.