Discussion :

[philobedo]

Bonjour,

J'ai cherché un peu partout mais je n'ai malheureusement pas trouvé... Alors je poste ici.

Alors voila je voulais savoir s'il était possible de lancer une commande de test (par exemple `mysqltest`) sur une machine distante, en ne connaissant que le nom de la machine (tout au plus l'adresse IP)?

Le but du programme est un script perl qui tourne sur une machine et qui permet de tester si des services (par exemple mysql, tomcat, open converter...), tournant sur des machines distantes fonctionnent normalement.

Voila
Merci d'avance

[MarneusCalgarXP]

réponse courte : non

réponse longue : oui, à condition d'avoir installé un ssh ou un telnet sur la machine distante.

Ensuite, tu peux executer des commandes à distances, par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ssh -l <user> <machine> "<commande distante>"

et donc en perl tu peux le lancer grâce à la commande system

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
my $command = 'ssh -l <user> <machine> "<commande distante>"';
my $result = system($command);
print $result;

[pospos]

response complémentaire: le module IPC-PerlSSH automatise la chose de belle manière
http://search.cpan.org/~pevans/IPC-PerlSSH/

[philobedo]

Merci pour vos réponse les gars mais après avoir réfléchi un peu je pense que je vais dans la mauvaise direction...

Comme je l'ai dit le but de la chose est de tester l'état de services sur des machines. Des services comme Tomcat, mysql, open office, des daemons, open converter...
Donc en fait pour chacun de ces services il faut que mon script perl regarde sur le port correspondant. Par exemple pour Tomcat tester si le port 8080 de la machine XXX est bien ouvert...

C'est pour ça que l'idée de SSH n'est pas envisageable... En plus je ne connais pas forcément un utilisateur et son mot de passe sur chaque machine distante...

Je me replonge dedans... Mais si de votre coté vous avez encore des idées n'hésitez pas... ;-)

Merci

[lxmathx]

Salut, si tu es sur un réseau Windows, tu peux peut-être utilisé les call WMI.

Je fais ça pour lancer des scripts sur des machines à distance. Voici la syntaxe:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
use strict;
use Win32::OLE qw( in );
use Win32::OLE::Variant;
 
################################################################################
#
# Fonction: Cette fonction est utilisée pour exécuter une commande sur un serveur
# distant.
#
# Retour: Retourne 1 si la commande a été exécuter avec succès, sinon retourne 0.
#
# Argument: 1- Le permier argument est l'adresse machine du serveur sur lequel on veut
#           exécuter la commande.
#           2- Reçoit comme deuxième argument la commande à exécuter.
#           3- Reçoit finalement les arguments pour cette commande.
#
# Commentaire: exemple d'argument . "perl c:/PerlTest.pl" WWW
#              Ceci permet de tester l'exécution d'un script sur notre poste.
#
# Mathieu Roy
# 2006-05-11
#
################################################################################
sub ExecuterUneCommandeAvecWMI {
	my $sMachine = "";
	$sMachine = "." unless( $sMachine = shift @_ );
	$sMachine =~ s#^[\\/]+## if( $ARGV[0] =~ m#^[\\/]{2}# );
	# This is the WMI moniker that will connect to a machine's 
	# CIM (Common Information Model) repository
	my $CLASS = "WinMgmts:{impersonationLevel=impersonate}!//$sMachine";
	# Get the WMI (Microsoft's implementation of WBEM) interface
	my $WMI = Win32::OLE->GetObject( $CLASS ) || die "Unable to connect to \\$sMachine:" . Win32::OLE->LastError();
	# Now get a Win32_Process class object...
	my $Process = $WMI->Get( "Win32_Process" ) || die "Unable to get the process list:" . Win32::OLE->LastError();
	# Create a BYREF variant (so a COM object can modify its value and
	# return it to us.
	my $vPid = Variant( VT_I4 | VT_BYREF, 0 );
	# Now go ahead and create the new process using the Create() method
	# off of the Win32_Process object
	if( 0 == $Process->Create( join( " ", @_ ), undef, undef, $vPid ) )
	{
		return 1;
	}
	else
	{
		return 0;
	}
}
 
Je l'appele comme suit: 
 
if (ExecuterUneCommandeAvecWMI(X1X500,"\\\\a\\b\\c\\aspnet_setreg.exe", $sCommandeAExecuter) == 1 ) 
{
						$msDonneesFichierDeResultats .=  "ok";
					}	
					else
					{
						$msDonneesFichierDeResultats .=  "erreur...";
					}	
				}

[pentahertz]

Bonjour,

J'ai cherché un peu partout mais je n'ai malheureusement pas trouvé... Alors je poste ici.

Alors voila je voulais savoir s'il était possible de lancer une commande de test (par exemple `mysqltest`) sur une machine distante, en ne connaissant que le nom de la machine (tout au plus l'adresse IP)?

Le but du programme est un script perl qui tourne sur une machine et qui permet de tester si des services (par exemple mysql, tomcat, open converter...), tournant sur des machines distantes fonctionnent normalement.

Voila
Merci d'avance

utilise nagios

[tizilfin]

Salut,

et si on voulais ne pas tapez le pass,et qu'on le pass dans la commande ?