Discussion :

[Le coude]

Bonjour à tous

Voila j'aimerai lancer le programme PUTTY.exe avec Delphi afin d'automatiser ma connection avec un serveur SSH!

Je pense qu'il faut utiliser ShellExecute seulement je n'arrive pas à passer des paramètres (ex: charger un client) afin que ma connexion s'établisse automatiquement!

Si quelqu'un a une idée ou un exemple!!

Merci d'avance

[ShaiLeTroll]

Tu peux aussi faire dans un exe, ton propre tunnel ssh avec les composants black box ssh

déjà connais tu la ligne de commande, et si tu la met dans un fichier bat, est-ce qu'elle fonctionne, une fois que tu auras une ligne de comande complète on pourra s'attaquer à ShellExecute

[Jeankiki]

Tien voici un petit exemple de comment je fais.

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
 
      // Executer l'application VNC
      ShellExecute(Handle,
                   Pchar('Open'),
                   PChar(PathAppli + 'Winvnc.exe'),
                   '-run',
                   PChar(PathAppli),
                   SW_SHOWDEFAULT);
      // Faire une pause d'une sec
      Sleep(1000);
      // Lance la connexion VNC
      ShellExecute(Handle,
                   Pchar('Open'),
                   PChar(PathAppli + 'Winvnc.exe'),
                   PChar( '-connect ' + sValue ),
                   PChar(PathAppli),
                   SW_SHOWDEFAULT);

PathAppli correspond dans ce cas au chemin ou se trouve ton Winvnc.exe
Bonne chance

[Le coude]

Merci Jean pour ton code mais je prefère utiliser PuTTY pour l'instant!

Sinon j'ai crée une session sous PuTTY et je connais les lignes de commandes que j'aurai à taper!
Je voudrais que delphi me permette de me connecter automatiquement avec cette session et de lancer des commandes prédéfinies!
Je ne sais pas si c'est réalisable!

Et je débute en prog donc si vous pouviez m'expliquer le plus clairement possible vos idées!!
Merci

[ShaiLeTroll]

En fait Delphi, ne vas transmettre que les paramètres de la ligne de commande genre

Code :

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

putty.exe -ssh user@host

après faut le mot de passe ...

pour reprendre l'exemple de Jeankiki

Code :

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

1
2
3
4
5
6
ShellExecute(Handle,
                   Pchar('Open'),
                   PChar(PathAppli + 'putty.exe'),
                   '-ssh Toto@255.255.255.255',
                   PChar(PathAppli),
                   SW_SHOWDEFAULT);

A LIRE : http://the.earth.li/~sgtatham/putty/0.60/puttydoc.txt

[Le coude]

Merci pour ton aide Shai ton prog marche bien, entretemps j'en ai ecrit un et dans les 2 cas on nous demande le password!

j'aimerai taper le mot de passe puis que la ligne de commande que j'aurai definie comme paramètre s'exécute (la est mon problème je n'arrive pas à rajouter un paramètre)!

Si je ne suis pas clair dites le moi!!

Voici le bout de code que j'ai écris :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
begin
 
parametres := '-load client_1';
NomExecutable := 'C:\Scenario\PuTTY\PUTTY.EXE';
cmd := 'cd scenar_pm';
 
ShellExecute(Application.handle,
            'open',
            PChar(NomExecutable),
            PChar(parametres),
            PChar(ExtractFilePath(NomExecutable)),
            SW_SHOWNORMAL);
end;

[Le coude]

J'ai toujours pas trouver...

Ya personne qui peut m'aider??

[sovitec]

Salut,

Il suffit de rajouter le mot de passe (-pw) à ta ligne de commande ? Non ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
begin
 
parametres := '-load client_1 -pw ' + MotDePasse;
NomExecutable := 'C:\Scenario\PuTTY\PUTTY.EXE';
cmd := 'cd scenar_pm';
 
ShellExecute(Application.handle,
            'open',
            PChar(NomExecutable),
            PChar(parametres),
            PChar(ExtractFilePath(NomExecutable)),
            SW_SHOWNORMAL);
end;