putty en macro excel

Version imprimable

14/01/2016, 10h00
zergo

1 pièce(s) jointe(s)

putty en macro excel

Bonjour le forum

J' ai actuellement un code vb qui fonction a la maison ( XP et office 2007) mais qui pose problème au boulot ( Win7 et office 2010].
PC bridé a font pas possible d'écrire sur C: .
Je voulais savoir s il y avait une autre commande qui pourrait lancer putty avec l 'adresse IP et le password.

Un fichier joint en démo.

Cordialement.
18/01/2016, 22h28
araigné

Shell peut lancer putty

Bonjour,

Dans votre code vous créer un fichier .bat (qui contient l'instruction putty) dans la racine que vous lancez via shell.
Si vous ne pouvez écrire à la racine, il faut créer/ranger le .bat qui lance putty dans un dossier accessible.
Mieux encore vous pouvez lancer putty via shell directement dans VBA et passer les arguments qui vont bien.
19/01/2016, 13h05
zergo

bonjour araigné

je lance putty avec un fichier bat mais s il est possible de le faire sans
pouvez vous me dire comment.

Cordialement.
19/01/2016, 17h41
Oliv-

Bonsoir,
c'est quoi la finalité ?

regarde ce code http://www.developpez.net/forums/d15...l/#post8493500

Here you are!

Bonjour zergo,

voilà un code que j'ai fait il y a 1 an pour lancer une commande putty.
J'espère que cela pourra t'aider!

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Option Explicit
 
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
 
Private Const WM_CHAR As Long = &H102
 
Private Sub PostText(hWnd As Long, Text As String)
    Dim i As Integer, ret As Long
    For i = 1 To Len(Text)
        ret = PostMessage(hWnd, WM_CHAR, Asc(Mid(Text, i, 1)), 0&)
    Next
End Sub
 
Private Function RunPutty(ServerName As String, UserName As String, PassWord As String) As Long
    'Permet de lancer Putty avec une connexion ssh
    'Retourne l'HWND de putty pour un "PostMessage" ulterieur
    Dim strPutTY As String
    strPutTY = "C:\AdressePutty\PUTTY.EXE"
 
    Dim aCommande As String
 
    aCommande = "-ssh -pw " & PassWord & " " & UserName & "@" & ServerName
    Call Shell(strPutTY & " " & aCommande)
    Call TimeControler(5)
    RunPutty = FindWindow("PuTTY", vbNullString)
 
End Function
 
Private Sub TimeControler(Optional iTime As Single = 1)
    Dim lTime As Single
    lTime = Timer
    Do
        DoEvents
    Loop While Not Abs(Timer - lTime) > iTime
End Sub
 
'********************
 
Public Sub Run_PuttyServices(ServerName As String, UserName As String, PassWord As String, CurDir As String, File_sh As String, OutPutName As String)
    'Exemple d'utilisation
    Dim hWnd As Long
    hWnd = RunPutty(ServerName, UserName, PassWord)
 
    Dim aCmd As String
    aCmd = "cd " & CurDir & " && " & File_sh & " >> " & OutPutName & " && rm " & OutPutName & " && exit"
 
    Call PostText(hWnd, aCmd & vbCrLf)
    Call TimeControler
 
End Sub

25/01/2016, 12h58
zergo

merci je vais le tester .
14/08/2017, 15h48
G.castelain

N'est-il pas logique au lieu d'utiliser des outils excel activant putty d'utiliser des outils réseaux spécialement adapté ?

TINC, Ansible ou autre ?

J'ai eu un patron qui ne souhaité que les tableaux excel mais j'avoue que c'était une usine a Gaz qui permettais surtout de construire plein de poste de développement et de poste politique et qui avait tendance a rallongé les processus de décision et surtout a prendre des décisions qui semble intéressante financièrement mais qui en réalité ne sont que des délires de représentation et de définition de besoin au minimum.
C'est vendre des métiers de commerciaux réseaux basé sur un tableau alors qu'il y a des outils bien plus puissant !

La doc putty : http://marc.terrier.free.fr/docputty.old/index.html
21/06/2019, 11h04
alemat13

Macro VBA

Citation:

Envoyé par araigné

Bonjour zergo,

voilà un code que j'ai fait il y a 1 an pour lancer une commande putty.
J'espère que cela pourra t'aider!

Bonjour,

Je ressors les vieux sujets.
Merci pour ce code, il semble fonctionner :)
Par contre je ne comprends pas bien l'utilité de récupérer le résultat de File_sh dans un fichier OutPutName puis de supprimer dans la foulée ce fichier...
Car soit il faut récupérer le résultat de la commande sur le serveur, ce qui n'est pas possible à cause du rm, soit il faudrait le récupérer par la macro, mais je ne sais pas si c'est possible... A priori Run_PuttyServices est un Sub et ne retourne donc rien...

Merci d'avance.