--}}
Новая тема
Вы не можете создавать новые темы.
Т.к. вы неавторизованы на сайте. Пожалуйста назовите себя или зарегистрируйтесь.
Список тем

Подскажите, плиз, по программированию

8
22
С друзьями на NN.RU
В социальных сетях
Поделиться
dv2ooo
01.05.2009
Отрыл тут файл оч нужный - так он, зараза только под ХР работает, а под 2000 - никак :(
Мжет кто подскажет в чем дело?

Текст файла:
var x=1;
var err=0;
var WshShell = new ActiveXObject("WScript.Shell");
do {
var ret = WshShell.Run ("ping -n 1 213.180.204.008", 1, true);
if (ret!=0) {err++} else {err=0}
if (err>x) {
WshShell.Run ("shutdown.exe -r -f -t 0", 1, false);
}
WScript.Echo ("Count ping errors: "+err);
WScript.Echo (" W a i t 5 m i n u t e s . . . . . . . . . .\n\n");
WScript.Sleep(300000);
} while (true);
57EA17h
01.05.2009
в чем заклчается "не работает"? Какую показывает ошибку?
Из предположений - по-моему, в 2k не было shutdown.exe
dv2ooo
01.05.2009
err не увеличивается при отсутствии связи в 2к. в ХР как часы работает
57EA17h
02.05.2009
требуется универсальность или чтобы просто запустился на одном компе с w2k?
Если второй вариант, то попробуй заменить ping.exe, взяв его с WinXP. (похоже просто ping в 2k не ставит errorlevel в 1 при недоступности хоста.)
dv2000
02.05.2009
спасибо за дельный совет - завтра попробую. Универсальность не требуется, хотя имхо она легко достижима запуском ping"а из отдельной папки где и хранится скрипт
Диман, мож лучше по пиву а?:))))
dv2ooo
02.05.2009
по пиву тоже хорошо, но скрипт заставить работать надо :(
офф..а зафиг ты ник сменил?
dv2000
02.05.2009
эт мой бот телефонный. по теме есть чё? :)
для файла доступна вкладка "режим совместимости" ? если есть-попробуй..вдруг прокатит
dv2000
02.05.2009
какой нах режим совместимости - это исполняемый жава скрипт. библиотеки доп нужны какие то наверное:(
((тады не знаю..
Snowshka
02.05.2009
Вроде бы, в виндах младше 98-го не нужны никакие доп. библиотеки для исполнения js, а вот права админа, кажется, нужны. Точно не помню)
dv2000
02.05.2009
права имеются
Посидели полчасика, наваяли что-то с помощью гугла и такой-то матери

@echo off
set host=195.122.226.1
rem set host=192.168.0.100

:ping_again
ping.exe %host% -n 1 1>nul 2> nul
if %errorlevel% == 0 goto ok

goto shit
:ok
echo %date% %time:~0,8% === %host% ok === >> ping.log
sleep 20
goto ping_again


:shit

for %%i in (1 2 3 4 5) do (
echo !!! %host% down !!! i = %%i >> ping.log
ping.exe %host% -n 1 >>ping.log
if %errorlevel% == 0 goto ok
sleep 20
)
echo "shutdown" >> ping.log
rem shutdown -r -f -c "opps!" -t 30
goto ping_again


Но, блин, оказалось, что внутри FOR переменные не меняют своего значения, как %date% %time%, так и %errorlevel%. И при этом, несмотря на появление связи, он 5 раз отсчитывает и говорит "shutdown".

Причина неясна, плюнули, ща на Си нарисуем :).
57EA17h
03.05.2009
Если моё предположение верно насчет пинга в вин2к( см. выше) то ещё в этом скрипте будет проблема с выставлением errorlevel... Не так давно делал проверку живости компа через пинг в WMI. Завтра до работы доберусь, выложу сюда.
57EA17h
04.05.2009
Вот кусок кода на JS для WSH из моего скрипта, которым пингую комп:

//Пингуем компьютер
objPings= objWMIServiceLocal.ExecQuery("Select * From Win32_PingStatus Where Address = '"+comp.Name+"'");
pings = new Enumerator(objPings);
for(; !pings.atEnd(); pings.moveNext()){
ping=pings.item();
//Если пинг прошел, работаем дальше, иначе пишем в лог, что компьютер выключен
if(ping.StatusCode==0){
//Подключаемся к компьютеру
................
};
};
........
Про СиБилдер погорячился я - давно все же дело было. system("ping www.ru "); не устраивал, т.к. консольное окошко вылазило, нашли www.cyberguru.ru/cpp-sources/network/iskhodnik-pinga-ping.html, скомпилялось, но выдавалось "Received packet was not an echo reply to your ping". Дальше копать не стали, решили, что и так в альтернативу бухлу неплохо поразвлекались :). js работает, но на 2000-й винде ругается на что-то...
dv2000
03.05.2009
эта хрень пишет "Точка входа в процедуру SetThreadUILanguage не найдена в библиотеке kernel32.dll"
мне тут обновление какое то для 2000 подогнали - ща пробовать с ним буду
Snowshka
05.05.2009
Можно прямо в текстовом виде dll просмотреть, есть ли такая процедура.
dv2000
05.05.2009
дык я и подозреваю, что нету... вопрос - где взять?
Snowshka
10.05.2009
Вот здесь есть нек. комментарии
connect.microsoft.com/VisualStudio/feedback/ViewFeedback.aspx?FeedbackID=273077
и, например, вот здесь
forum.ru-board.com/topic.cgi?forum=8&topic=1908&start=1580
...
надеюсь, не только я умею гуглем пользоваться?
msdn.microsoft.com/en-us/library/dd374051(VS.85).aspx
Новая тема
Вы не можете создавать новые темы.
Т.к. вы неавторизованы на сайте. Пожалуйста назовите себя или зарегистрируйтесь.
Список тем
Последние темы форумов
Форум Тема (Автор) Последний ответ Ответов
Сетевой фильтр APC Surge Arrest

Сетевой фильтр APC Surge Arrest для радиолюбителя.и не только Отправка в регионы после оплаты. ЦЕНА 3000 руб. В рабочем состоянии....
Цена: 3 000 руб.

Игровой компьютер с монитором

i7 3770 palit gtx 1070 8gb 2ssd ( 120, 465 ) 1hdd ( 1tb ) бп - zalman zn500-gs2 монитор в комплекте
Цена: 25 000 руб.

Принтер лазерный HEWLETT PACKARD HP-6L

Принтер лазерный HEWLETT PACKARD HP-6L Отправка в регионы после оплаты. 3штуки БУ. Внешний вид из магазина простояли на складе...
Цена: 4 500 руб.

Компьютерные и для оргтехники разъёмы

Компьютерные и для оргтехники разъёмы для различной коммутации. переходники . Назначение мне не известно. В наличии 13шт...
Цена: 1 500 руб.