Cisco routerlara ssh ile Show Environment Alarm komutunu gönderen script

Merhaba,

Cisco routerlarda ssh bağlantısı yaparak komut çalıştıran bir scripti paylaşmak istiyorum.

Show Environment Alarm komutunu ssh ile bağlanarak router a gönderelim ve aldığımız sonucu bir dosyaya ve ekrana yazdıralım.


#!/usr/bin/perl

use Net::SSH2;
use warnings;
use strict;
no warnings 'uninitialized';
my $host = "10.5.5.199";
my $user = "sshuser";
my $password = "xxxxxxx";

#SSH baglantisi saglanir

my $ssh = Net::SSH2->new();
        if(!$ssh->connect($host)){
                print("SSH Baglantisinda Problem - $@ \n");
                exit(1);
        }
        if(!$ssh->auth_password($user,$password)){
                print("Otantikasyon Problemi - $@");
                exit(1);
        }

#Kanal acilarak komut gonderilir
        my $channel = $ssh->channel();
        my $command = $channel->exec("show environment alarm") or die $_;

#Cikti okunur
        my $output;
        my $len = $channel->read($output,32048);

#Dosyaya yazilir
        open (MYFILE, '>> C:\output.txt');
        print MYFILE $output;
        close (MYFILE);
print $output;


Teşekkürler,
Cem Selmanoğulları