Automatisation de PUTTY via vbs

Bonjour,

Je cherche à automatiser l'ouverture de session telnet via putty sur des serveurs Linux.

J'ai bien trouver cette commande

putty.exe" telnet root@//999.999.999.999 mais j'arrive pas à intégrer l'utilisateur et le mot de passe pour éviter de le saisir à chaque fois.

Si vous avez la solution ?

Grand Merci.

:salut:
Je ne sais pas si vous avez une documentation en ligne de commande de Putty ou non ? :roll:
Si Oui,alors, elle va nous simplifier la vie :ccool:
Si non, moi j'utilise ce script pour rebooter mon routeur à distance via Telnet afin de renouveler mon adresse IP Publique.
C'est à vous, alors de l'adapter pour vos besoins en changeant bien sûr vos identifiants et la hôte pour s'y connecter :mouarf:

Code:

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
'*******************************************************************************
'Rebooter le routeur à distance via Telnet afin de renouveler l'adresse IP publique
Option Explicit
Dim MyHote,MyLogin,MyPassword 
MyHote = "192.168.1.1"
MyLogin = "MonLogin"
MyPassword = "Monmotdepasse"
Call Reboot_MyRouter(MyHote,MyLogin,MyPassword)
'*******************************************************************************
Sub Reboot_MyRouter(MyHote,MyLogin,MyPassword)
Dim ws,Command,StrCommand,Execution
    Set ws = CreateObject("wscript.shell")
    Command = "Telnet " & MyHote
    StrCommand = "cmd /c color 9B & mode con cols=65 lines=10 & "& Command &""
    Execution = ws.run(StrCommand,1,False)
    wscript.sleep 500
    ws.AppActivate Command
    ws.sendkeys MyLogin
    ws.sendkeys "{enter}"
    wscript.sleep 1000
    ws.sendkeys MyPassword
    ws.sendkeys "{enter}"
    wscript.sleep 1000
    ws.sendkeys "Reboot"
    ws.sendkeys "{enter}"
End Sub
'*******************************************************************************

et pour votre code à peu près comme ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
'*******************************************************************************
Option Explicit
Dim MyHote,MyLogin,MyPassword 
MyHote = "999.999.999.999" 'Changer cette ligne pour la hôte
MyLogin = "root"
MyPassword = "Votremotdepasse" 'Changer cette ligne par votre mot de passe
Call Connexion_Telnet(MyHote,MyLogin,MyPassword)
'*******************************************************************************
Sub Connexion_Telnet(MyHote,MyLogin,MyPassword)
Dim ws,Command,StrCommand,Execution
    Set ws = CreateObject("wscript.shell")
    Command = "Telnet " & MyHote
    StrCommand = "cmd /c color 9B & mode con cols=65 lines=10 & "& Command &""
    Execution = ws.run(StrCommand,1,False)
    wscript.sleep 500
    ws.AppActivate Command
    ws.sendkeys MyLogin
    ws.sendkeys "{enter}"
    wscript.sleep 1000
    ws.sendkeys MyPassword
    ws.sendkeys "{enter}"
End Sub
'*******************************************************************************

Je ne vois pas dans votre exemple ou est utilisé putty.exe ?
Merci beaucoup

Citation:

Envoyé par poupy

Je ne vois pas dans votre exemple ou est utilisé putty.exe ?
Merci beaucoup

Je n'ai pas dit que j'ai utilisé Putty.exe dans mon post mais , j'ai bien dit seulement Telnet ;)
Relis bien mon premier post :merci:

Oui effectivement désolé.
Je vais voir pour trouver la doc de putty.