The OpenNET Project / Index page

[ новости /+++ | форум | wiki | теги | ]

форумы  помощь  поиск  регистрация  майллист  вход/выход  слежка  RSS
"Тематический каталог: Механизмы прерывания активных сессий н..."
Вариант для распечатки  
Пред. тема | След. тема 
Форум Разговоры, обсуждение новостей
Изначальное сообщение [ Отслеживать ]

"Тематический каталог: Механизмы прерывания активных сессий н..."  +/
Сообщение от auto_topic (ok) on 25-Фев-09, 01:26 
Обсуждение статьи тематического каталога: Механизмы прерывания активных сессий на NAS. (nas session auth snmp radius isp cisco acl freebsd linux pptp vpn voip)

Ссылка на текст статьи: http://www.opennet.ru/base/cisco/nas_drop_sessions.txt.html

Ответить | Правка | Cообщить модератору

Оглавление

Сообщения по теме [Сортировка по времени | RSS]


1. "Механизмы прерывания активных сессий на NAS. (nas session au..."  +/
Сообщение от weldpua2008 email(ok) on 25-Фев-09, 01:26 
madrid.in.ua mpd4/>cat userkill.pl

#!/usr/local/bin/perl
#
#использую для mpd4
#

$hostname="127.0.0.1";
$port="5005";
if( $ARGV[3] eq '' ) { die 'Usage:  user nasip userip nasport'; };

$user=$ARGV[0];
$nasip=$ARGV[1];
$userip=$ARGV[2];
$nasport=$ARGV[3];

$nasport=$nasport+1;

$hostname="127.0.0.1";
$port="5005";

use Net::Telnet ();

$t = new Net::Telnet (Timeout => 2,Port => $port,Binmode => '\015\012',
                               Prompt => '/\[\]/');
$t->open("$hostname");
$t->login("mpd-login", "mpd-password");

$t->print("bundle pptp".$nasport);
$t->print("");
$t->print("close");
$t->print("");
$t->print("exit");
$t->print("");
$t->close();
exit 0;

skm.net.ua mpd5/>cat userkill_nas1.pl
#!/usr/local/bin/perl
#
#Использую для mpd5
#
$hostname="192.168.1.3";
$port="5005";
if( $ARGV[3] eq '' ) { die 'Usage:  user nasip userip nasport'; };

$user=$ARGV[0];
$nasip=$ARGV[1];
$userip=$ARGV[2];
$nasport=$ARGV[3];

#$nasport=$nasport+1;
#print $nasport;

$hostname="192.168.1.3";
$port="5005";

use Net::Telnet ();

$t = new Net::Telnet (Timeout => 2,Port => $port,Binmode => '\015\012',
                               Prompt => '/\[\]/');
$t->open("$hostname");
$t->login("mpd-login", "mpd-password");

$t->print("bundle B-".$nasport);
$t->print("");
$t->print("close");
$t->print("");
$t->print("exit");
$t->print("");
$t->close();
exit 0;

Ответить | Правка | ^ к родителю #0 | Наверх | Cообщить модератору

2. "Механизмы прерывания активных сессий на NAS. (nas session au..."  +/
Сообщение от weldpua2008 email(??) on 28-Дек-10, 15:09 
Описал как у Меня работало)))
http://isp.pl.ua/?p=55
Ответить | Правка | ^ к родителю #0 | Наверх | Cообщить модератору

Архив | Удалить

Рекомендовать для помещения в FAQ | Индекс форумов | Темы | Пред. тема | След. тема




Спонсоры:
Слёрм
Inferno Solutions
Hosting by Ihor
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2019 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру