Hello,
One thing is sure that you have to take help of script anyway to run many commands with little efforts.
Unfortunately I do not know tcl script.
I am using below perl scripts for running multipe commands on routers/nodes.
----------------------------------------------------------------------------------------------------------------------------------------
#!/usr/bin/perl
use strict;
use Net::Telnet ;
my @cmd_list;
my $f1 = "command_list.txt"; ### Store command you want to run here in this file ###
open FILE1, "$f1" or die "Could not open file: $! \n";
@cmd_list=;
@cmd_list = grep(/\S/, @cmd_list);
close FILE1;
my $session = new Net::Telnet (Timeout => 15,Prompt => '/#$/');
print "\n\n";
$session->open("node_name") ; ### Need to change 'node_name' according to your router IP/hostname ###
$session->errmode("return");
$session->login('username', 'password'); ### Change credential accordingly ###
foreach $cmd (@cmd_list) {
my @output=$session->cmd("$cmd");
print "@output";
}
$session->close;
----------------------------------------------------------------------------------------------------------------------------------------
Hope this helps
Regards # Mahesh