General discussion

  • Creator
    Topic
  • #2146225

    per script

    Locked

    by mejaz ·

    I have tried below scripts to get some users details from juniper (ERX)through my linux machine, but coudn’t succed, any ones help is here hightly appreciated

    Thanks in advance

    Ejaz

    #! /usr/bin/perl
    $pass=”xxxx”;
    $enable=”xxxx”;
    #$username=”[put a username here]”; # login name if needed
    $infile=”routerlist”; # list of routers to read from
    $host=”212.119.67.11″;
    use Net::Telnet::Cisco;
    open (LIST,”$infile”) or die “Couldn’t open file $infile”;
    @list=;
    foreach (@list) {
    ($host)=split(/\s+/,$_);
    &TELNET;
    }

    sub TELNET {
    $t = Net::Telnet::Cisco->new(
    Timeout => 10,
    Host => $host
    );
    $t->errmode(“return”);
    print “Trying $host\n”;
    #$t->login($username,$pass);
    my @out=$t->password($pass);
    my @out=$t->enable 5($enable);
    print “downloading config…\n”;
    my $out=$t->cmd(“show subscribers”);
    print $out;
    $t->close;
    }

All Comments