<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 6.00.2800.1479" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT face=Arial size=2>Ola pessoal </FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>A tempos atras perguntei a vcs sobre como
automatizar scripts em maquinas e devices de rede remotos, </FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>vcs me informaram sobre o modulo </FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>use Net::SSH::Perl</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>esta funcionando bem :</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>#!/usr/bin/perl <BR>my $host = "127.0.0.1";<BR>my
$username = "dexter";<BR>my $password = "senha123";</FONT></DIV>
<DIV><FONT face=Arial size=2>use strict;<BR>use Net::SSH::Perl;</FONT></DIV>
<DIV><FONT face=Arial size=2>use Net::SSH::Perl::Constants qw( :msg );</DIV>
<DIV>my $ssh = Net::SSH::Perl->new($host, debug => 1
);<BR>$ssh->login($username, $password);</DIV>
<DIV>$ssh->cmd('mkdir /testecomC');</DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV>porem como vcs veem o script coloca a senha em clear test</DIV>
<DIV> </DIV>
<DIV>existe alguma forma de escrever a senha em alguma caixinha preta que
ninguem tenha como ler o arquivo .. e depois usar o programa pra consultar essa
caixa preta .. e colar a senha no host remoto ...</DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV>num sei se fui bem claro .. é que essa maquina .. onde ta o script, mais
gente acessa.</DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV>Vlw</DIV>
<DIV>Dextr</DIV>
<DIV><BR> </DIV></FONT></BODY></HTML>