MikroTik

/etc/monitor.passwd:
admin||blah01

/somewhere/txtfile.txt:
/ip dhcp-server lease print

#!/usr/bin/perl
# by Ian Redden (c) 2005
# Purpose: to get info off of a router for looking glass.
#
#-varibles
  use Expect;
  $ssh = "/usr/bin/ssh";
  $router = "$ARGV[0]";
  $txtfile = "$ARGV[1]";

#-get username/password
  open(PS,"/usr/local/mikrotik/monitor.passwd");
   while (<PS>) {
     chomp;
     ($usernm,$pass) = split(/\|\|/, $_);
   }
  close(PS);
  $command = "$ssh -l $usernm $router";

#-connect to router.
  $ssh = Expect->spawn("$command");
  $ssh->log_stdout(1);

#-check to see if dsa authenticity question appears
   if ($ssh->expect(2, "yes/no")) {
     print $ssh "yes\r";
   }

#-send password.
   if ($ssh->expect(undef, "password:")) {
     print $ssh "$pass\r";
   }

#-send command.
   open( FILE, "< $txtfile" ) or die;
   if ($ssh->expect(undef, ">")) {
           while ($cmd = <FILE>) {
              print $ssh "$cmd\r";
              $ssh->expect(undef, ">");
           }
  }
  close FILE;
  print $ssh "/quit\r";

<?php

$server = "x.x.x.x";
$username = "user";
$password = "pass";

$methods = array(
  'kex' => 'diffie-hellman-group1-sha1'
);

$connection = ssh2_connect($server, 22, $methods);
ssh2_auth_password($connection, $username, $password);
$shell = ssh2_shell($connection)){

$cmd = "/system";

$output = user_exec($shell,$cmd);
$output = user_exec($shell,$cmd);

print_r($output);

function user_exec($shell,$cmd) {
    fwrite($shell, $cmd ."\r");
    sleep(1);
    $output = "";
      while($line = fgets($shell)) {
               flush();
               $output[] = $line;
    }
    return $output;
    fclose($shell);
}

?>

<CFSET filestring = "D:\#get_command.command_filename#"> 
    
   <CFSET Router_Address = "#get_site_info.Wifi_Site_IP#"> 
   <CFSET Router_Username = "#get_site_info.Repeater_Username#"> 
   <CFSET Router_Password = "#get_site_info.Repeater_Password#"> 
   <CFSET Router_Port = "#get_site_info.Router_Port#"> 
    
   <CFSET connect_string = "-P #get_site_info.Router_Port# #Router_Username#@#Router_Address# -pw #Router_Password# -T -m #filestring#"> 
    
   <cfoutput>#connect_string#</cfoutput> 
   <BR><BR> 
    
<cfexecute name = "d:\downloads\plink"
	   arguments = " -P #Router_Port# #Router_Username#@#Router_Address# -pw #Router_Password# -T -m #filestring#" 
	   timeout = "100" outputfile="D:\virtualwww\Sites\hypewifi\www\admin\no_app\data_dumps\router_output.txt">
	</cfexecute>
	
	<cffile action="READ" file="D:\virtualwww\Sites\hypewifi\www\admin\no_app\data_dumps\router_output.txt" variable="fileoutput">
	
	<pre>
	<cfoutput>#fileoutput#</cfoutput>
	</pre>

plink -t -ssh 192.168.1.1 -l <username> -pw <password>
plink -t -pw <password> PuTTYSavedSession

$conn = ssh2_connect("192.168.0.1", 22, array('kex' => 'diffie-hellman-group1-sha1')) or die("couldn't connect");
ssh2_auth_password($conn, "admin", "password") or die("coudln't auth");
$shell = ssh2_shell($conn, FALSE);
stream_set_blocking($shell, TRUE);

function conn_exec($cmd) {
	global $shell;
	echo "<<< $cmd\n";
	fwrite($shell, $cmd . "\r");
	sleep(1);
	fgets($shell);
	return trim(fgets($shell));
}

print_r(explode(';', conn_exec(":put [ip firewall filter print as-value]")));

fclose($shell);

:put [/ interface print as-value]