�� NAS. (nas session auth snmp radius isp cisco acl freebsd linux pptp vpn voip) (weldpua2008)

Tue, 28 Dec 2010 12:09:53 GMT

�� )))
http://isp.pl.ua/?p=55

�� NAS. (nas session auth snmp radius isp cisco acl freebsd linux pptp vpn voip) (weldpua2008)

Tue, 24 Feb 2009 22:26:29 GMT

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;

OpenForum RSS: ������������ �������: ��������� ���������� �������� ������ �� NAS. (nas session auth snmp radius isp cisco acl freebsd linux pptp vpn voip)

��������� ���������� �������� ������ �� NAS. (nas session auth snmp radius isp cisco acl freebsd linux pptp vpn voip) (weldpua2008)

��������� ���������� �������� ������ �� NAS. (nas session auth snmp radius isp cisco acl freebsd linux pptp vpn voip) (weldpua2008)

OpenForum RSS: �� : �� NAS. (nas session auth snmp radius isp cisco acl freebsd linux pptp vpn voip)

�� NAS. (nas session auth snmp radius isp cisco acl freebsd linux pptp vpn voip) (weldpua2008)

�� NAS. (nas session auth snmp radius isp cisco acl freebsd linux pptp vpn voip) (weldpua2008)