Automatisation de PUTTY via vbs

**poupy** · 18/12/2013, 09h16

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.

**hackoofr** · 18/12/2013, 12h30

Je ne sais pas si vous avez une documentation en ligne de commande de Putty ou non ?

Si Oui,alors, elle va nous simplifier la vie

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

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
'*******************************************************************************
'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 :

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
'*******************************************************************************
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
'*******************************************************************************