Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Интернет » В помощь вебмастеру » Ping-скрипты

Модерирует : Cheery

 Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 1 2 3

Открыть новую тему     Написать ответ в эту тему

KAPJICOH

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Народ, очень нужен скрипт, который бы пинговал заданный ip в локалке и показывал статус. Перерыл кучу всего есть только платные-навороченные.
Помогите!

 
Ping-скрипты

 
[SSI]

Цитата:
djelektronik: ета фича ни на одном нормальном сервере не будет включена

Код:
<pre><!--#exec cmd="ping 127.0.0.1 -n 1" --></pre>

 
[Perl]
http://cgi.resourceindex.com/Programs_and_Scripts/Perl/Internet_Utilities/
http://www.hotscripts.com/Perl/Scripts_and_Programs/Networking_Tools/Ping/index.html
Простейший случай:

Код:
#!/usr/bin/perl
# by Haze
print "ping 127.0.0.1";

 
* WebUtilНабор сетевых утилит для браузера, включающий  ping, whois, finger, nslookup, traceroute, dnsquery, host и календарь.
 
[PHP]
http://www.hotscripts.com/PHP/Scripts_and_Programs/Networking_Tools/Ping/index.html
http://php.resourceindex.com/Complete_Scripts/Internet_Utilities/
 
© by Cheery

Код:
<?  
$ip='адрес_машины';  
exec("ping -n 1 -w 200 $ip",$output, $status);
// под *nix заменить -n 1 на -c 1  
if ($status==0)  
echo "Online";  
else  
echo "Offline";  
?>  

Параллельное выполнение..
ping.php

Код:
 
<?    
$ip=$_GET['ip'];  
if (!preg_match('/^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/',$ip)) {echo "Sorry, wrong request"; exit;}
$down='down.gif';  
$up='up.gif';    
exec("ping -n 1 -w 200 $ip",$output, $status);  
header('Content-type: image/gif');  
// под *nix заменить -n 1 на -c 1    
if ($status==0)    
readfile($up);    
else    
readfile($down);    
?>
 
   
page.html  

Код:
 
....  
<img src='ping.php?ip=1.1.1.1'>  
<img src='ping.php?ip=1.1.1.2'>  
....  
 

 
 
 
© by Uriel:
windows:
Код:
<?php  
function pingIP($IP)  
{  
exec('ping ' .$IP, $past);  
$convert=convert_cyr_string($past[3],d,w);  
if (strpos($convert, "Ответ")===false)  
echo ("<font color=#000099><b>OFFLINE!</b></font>");  
else echo ("<font color=#00ff33><b>ONLINE!</b></font>");  
 
$convert1=convert_cyr_string($past[0],d,w);  
echo $convert1;  
}  
 
pingIP("127.0.0.1");  
?>  

Linux:  

Код:
<?php  
function ping($IP)  
{exec('ping -c 2 -i 0.2 ' .$IP,$ping);  
$nachalo = substr($ping[1],0,4);  
if ($nachalo!=="From")  
echo "<font color=green><b>ONline</b></font>";  
else  
echo "<font color=red><b>OFFline</b></font>";  
}  
 
echo "User - is ";  
ping('192.168.0.2');  
?>

 
 
[ASP]
http://www.hotscripts.com/ASP/Scripts_and_Components/Networking_Tools/Ping/index.html
 
[всё вместе ]
http://www.hotscripts.com/cgi-bin/search.cgi?bool=AND&query=ping&catid=all
 
 

Другие темы по скриптам:
* клиентские скрипты   (JavaScript, JScript, VBScript)
* серверные скрипты (Perl, PHP, ASP и т.д.)

    ~ скрипты для создания/редактирования HTML-кода в браузере и скрипты для редактирования файлов из браузера
    ~ скрипты службы знакомств
    ~ whois-скрипты
    ~ баннерообменные скрипты
    ~ скрипты счетчиков посещений
    ~ скрипты файлового обменника
    ~ скрипты чатов
    ~ скрипты фотогалереи
    ~ новостные скрипты  
    ~ скрипты и программы для рассылки
    ~ скрипты поиска
    ~ скрипты магазинов
    ~ сервисы, скрипты, софт для ведения дневников онлайн
    ~ скрипты гостевых книг
    ~ скрипты и службы голосований/опросов
    ~ скрипты и программы для создания карты сайта
    ~ доски объявлений
    ~ защита ссылок (antileech)
    ~ скрипт аукциона
    ~ скрипты каталогов (catalogue)
    ~ админ-панели для хостинга
    ~ скрипты для конвертации XLS и DOC/RTF-файлов в HTML
    ~ переадресовка по дням недели
    ~ phpMyAdmin: установка, настройка, проблемы
    ~ скрипты для открытия новых окон: на весь экран, заданного размера, в определённом месте экрана, неизменяемого размера и мн.др.

Всего записей: 10 | Зарегистр. 26-02-2002 | Отправлено: 02:02 13-03-2002 | Исправлено: Cheery, 00:33 16-04-2005
Kobold



Flame monster
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Берем пишем bat-файл, который выполняет ПИНГ в вечном цикле и впихиваем задержку между пингами. Захотел - глянул в окно command prompt'a с этим батником и посмотрел последний результат.

----------
Tanned in cathode ray sunshine

Всего записей: 1838 | Зарегистр. 11-12-2001 | Отправлено: 04:10 13-03-2002
Barmy

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
KAPJICOH
Если пинговать в вечном цикле, как советует Kobold - админ тебе скажет большое человеческое спасибо за это
 
Для чего тебе это нужно? Отслеживать в онлайне/оффлайне человек, так?

Всего записей: 180 | Зарегистр. 30-10-2001 | Отправлено: 08:29 13-03-2002 | Исправлено: Barmy, 08:30 13-03-2002
Kobold



Flame monster
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:
Берем пишем bat-файл, который выполняет ПИНГ в вечном цикле и впихиваем задержку между пингами.

Ну так не все время, а с задержкой.
Например каждые 5 (10, 15) минут. Админ вроде злится не должен.

----------
Tanned in cathode ray sunshine

Всего записей: 1838 | Зарегистр. 11-12-2001 | Отправлено: 08:33 13-03-2002
AiK



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
KAPJICOH
Слушай, раз уж ты пишешь в раздел программирования, значит программировать должон. Даю ключевые слова: socket, 7 port.


----------
Developing.ru

Всего записей: 484 | Зарегистр. 03-01-2002 | Отправлено: 11:04 13-03-2002
KAPJICOH

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ээээээ, я наверно не совсем корректно поставил вопрос: скрипт нужен для вставки в html -страницу, где указан список нескольких ip, в зависимости от статуса скрипт должен выводить сообщение туда же (в html)

Всего записей: 10 | Зарегистр. 26-02-2002 | Отправлено: 11:20 13-03-2002
AiK



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:
для вставки в html -страницу

Дык пиши на perl или php

----------
Developing.ru

Всего записей: 484 | Зарегистр. 03-01-2002 | Отправлено: 12:38 13-03-2002
KAPJICOH

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Дык если бы умел, - помощи бы не просил))

Всего записей: 10 | Зарегистр. 26-02-2002 | Отправлено: 12:59 13-03-2002
Haze



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
KAPJICOH
perldoc NET::Ping или можешь явно запускать ping на сервере, так как NET::Ping его напрямую, вроде и использует.

----------
Прибалтам сюда! http://www.baltic.ee

Всего записей: 470 | Зарегистр. 20-05-2001 | Отправлено: 15:31 13-03-2002 | Исправлено: Haze, 15:32 13-03-2002
KAPJICOH

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Ппл, так есть готовые скрипты или нет, наверняка же есть!, ну не умею я скриптить пока, а очень надо!

Всего записей: 10 | Зарегистр. 26-02-2002 | Отправлено: 16:45 13-03-2002
Haze



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
KAPJICOH
print `ping $ip`;

----------
Прибалтам сюда! http://www.baltic.ee

Всего записей: 470 | Зарегистр. 20-05-2001 | Отправлено: 17:23 13-03-2002
KAPJICOH

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Haze, хм...а можно полный текмт скрипта?, и мне не надо, что бы он ответ пинга весь выдывал, а только статус!
 
Добавлено
вот, откопал такой скрипт:
 
#! c:/perl/bin/perl
#
# Nice little script to do a ping to someone else's site...
# Version 1.0 by Martin Schulze (joey@infodrom.north.de)
# based on trace 1.0.1 by Ken Hollis (khollis@bitgate.com)
 
$ENV{'PATH'} = '/bin:/usr/bin';
$path = $ENV{'PATH'};
 
# Turn non-buffered input/output on
$| = 1;
 
# Get our site that we want a traceroute to be performed for
$pingsite = $ARGV[0];
$pingsite =~ tr/,/./;
 
# Set maximum packets to send
$max_packets = "-k 5";
 
# And check to make sure they entered a site
if ($pingsite) {
    print "Performing a ping to $pingsite... \n\n";
    system("ping $max_packets $pingsite");
    print "\nDone.\n";
} else {
    print <<"EOT";
  Ping script 1.0
  by Ken Hollis and Martin Schulze
 
  Please finger \"site.whatever\" with your \".\" marks converted to \",\"
  marks instead.  This is because the finger daemon separates all options
  by a \".\".
EOT
}
 
подскажите, как правильно вписать в него ip и надо ли его натравить на ping.pm ?

Всего записей: 10 | Зарегистр. 26-02-2002 | Отправлено: 17:38 13-03-2002 | Исправлено: KAPJICOH, 18:36 13-03-2002
Haze



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Этому скрипту надо передевать IP при вызове и дополнительные библиотеки вызывать не надо...

----------
Прибалтам сюда! http://www.baltic.ee

Всего записей: 470 | Зарегистр. 20-05-2001 | Отправлено: 21:21 13-03-2002
KAPJICOH

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Haze, спасибо за ответ, но как именно передавать ip при вызове? (сорри за ламерство)

Всего записей: 10 | Зарегистр. 26-02-2002 | Отправлено: 21:40 13-03-2002
Haze



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
KAPJICOH
 
perl script.pl 1.1.1.1

----------
Прибалтам сюда! http://www.baltic.ee

Всего записей: 470 | Зарегистр. 20-05-2001 | Отправлено: 21:50 13-03-2002
KAPJICOH

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
нее, не решает

Всего записей: 10 | Зарегистр. 26-02-2002 | Отправлено: 23:22 13-03-2002
Haze



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
KAPJICOH
 
Проверять влом... слишком все просто...
 
#!/usr/bin/perl
print $ARGV[0];
my $ping = "ping $ARGV[0]";
print `$ping`;
 
 
Посмотри, что возвращает и сделай сам проверку... Если будешь использовать на сервере, то юзай $ENV{QUERRY_STRING} например.

----------
Прибалтам сюда! http://www.baltic.ee

Всего записей: 470 | Зарегистр. 20-05-2001 | Отправлено: 04:30 14-03-2002
woffer

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:
perldoc NET::Ping

tcp не работает, причем в дос это указано.

Цитата:
 
print "Performing a ping to $pingsite... \n\n";  
system("ping $max_packets $pingsite");
print "\nDone.\n";  
 

Это не подходит.
Как сделать пинг максимально корректно при помощи стандартных модулей перла ?  

Всего записей: 935 | Зарегистр. 11-10-2002 | Отправлено: 12:32 21-06-2003
webdeveloper



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
на ssi  
 
<UL>
<!--#config cmdecho="ON" -->
<!--#config cmdprefix="<LI>" -->
<!--#exec cmd="ping 204.96.64.171 -w 20000" -->
</UL>
 
Взято отсюда

Всего записей: 1373 | Зарегистр. 30-05-2002 | Отправлено: 10:55 22-06-2003 | Исправлено: webdeveloper, 10:56 22-06-2003
djelektronik

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
<!--#exec cmd="ping 204.96.64.171 -w 20000" -->  
ха ха ета фича ни на одном нормальном сервере не будет включена
если админ не ламир
по умолчанию она вырублена темболее
 
обычный поиск как всегда рулит
http://www.hotscripts.com/PHP/Scripts_and_Programs/Networking_Tools/Ping/index.html

Всего записей: 2530 | Зарегистр. 28-06-2001 | Отправлено: 18:29 22-06-2003
Открыть новую тему     Написать ответ в эту тему

Страницы: 1 2 3

Компьютерный форум Ru.Board » Интернет » В помощь вебмастеру » Ping-скрипты


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru