[PERL] Telnet sur liste de serveur
Fermé
phoenix1984
Messages postés
30
Date d'inscription
jeudi 22 novembre 2007
Statut
Membre
Dernière intervention
9 décembre 2011
-
12 mars 2009 à 12:37
gigaga Messages postés 2346 Date d'inscription vendredi 20 juin 2008 Statut Membre Dernière intervention 22 août 2014 - 12 mars 2009 à 12:43
gigaga Messages postés 2346 Date d'inscription vendredi 20 juin 2008 Statut Membre Dernière intervention 22 août 2014 - 12 mars 2009 à 12:43
A voir également:
- [PERL] Telnet sur liste de serveur
- Liste déroulante excel - Guide
- Liste de numéro de téléphone suspect 07 ✓ - Forum Mobile
- Telnet - Astuces et Solutions
- Annuaire inversé gratuit liste rouge - Forum Internet / Réseaux sociaux
- Triez la liste comme sur cette illustration (attention, on ne voit que le début …). quel est le mot formé par les 6 dernières lettres de la colonne code ? - Forum Excel
1 réponse
gigaga
Messages postés
2346
Date d'inscription
vendredi 20 juin 2008
Statut
Membre
Dernière intervention
22 août 2014
301
12 mars 2009 à 12:43
12 mars 2009 à 12:43
Essaie ça :
#!/usr/bin/perl -i.orig
use lib "../sources";
use Telnet;
open (FILE, "liste.serveurs.txt");
my @host_array=<FILE>;
close(FILE);
foreach my $host_rsa (@host_array)
{
$session = new Net::Telnet (Prompt => '/.*\#/');
$session->open($host_rsa);
$session->login('USERID', 'PASSW0RD');
open(monFile,">>result.users.txt");
my @output = $session->cmd('users');
print monFile "$host_rsa\n";
print monFile "@output\n";
close(monFile);
}
$i++;