Connexion Telnet via macro Excel

Question

Bonjour,

j'aimerais faire un macro Excel qui ouvre une connexion Telnet sur un serveur Unix et execution un Script.

Jy arrive pas du tous.

j'ai essae un truc du Style :

Function Macro1()

Set WshShell = WScript.CreateObject("WScript.Shell")
 
WshShell.Run "telnet.exe" & Chr(13)
WScript.Sleep 5000
WshShell.SendKeys "open adresseIP

...

mais ca bloque tous de suite a l'éxécution sur " 
Set WshShell = WScript.CreateObject("WScript.Shell")"

es que qq un pourrait m'aider ?

par avance merci

Renfield · Answer

"ca bloque"  => ?  (en VBA dans le texte, ca signifie quoi , "bloquer" ?)

une première chose que tu pourrais faire, histoire de faire les choses dans les règles, serait de déclarer ta variable :
Dim WshShell As Object

Falk3n · Answer

bonjour,

Merci pour ta réponse.

par bloquer je veux dire une belle ligne jaune en surbrillaince sur la ligne 
"Set WshShell = WScript.CreateObject("WScript.Shell")"

ok je vais tester ce que tu dis.

Renfield · Answer

ok, une ligne jaune, mais peut etre un message d'erreur qui viendrait avec ....

("Variable non définie" me semble la seule erreur possible là...)

Falk3n · Answer

Bonjour,

Voila j'ai modifié :

Sub connexion_telnet()

Dim WshShell As Object
Set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.Run "telnet.exe" & Chr(13)
....

j'ai comme erreur :

erreur d'exection '424'
Objet requis

Cordialement

Renfield · Answer

en marquant les réponses comme "accepté", bien moins de gens vont venir tenter de t'aider, pensant ton problème réglé.

si tu es en VBA (tu parles bien de macro Excel), vires WScript (on s'en sert en VbScript)
en effet, si cet objet n'existe pas... tu ne peut lui demander de faire un CreateObject 

donc:

Sub connexion_telnet()

Dim WshShell As Object
Set WshShell = CreateObject("WScript.Shell")

WshShell.Run "telnet.exe" & Chr(13)

Falk3n · Answer

bonjour,

merci pour tes remarques.

j'ai gagné une ligne

Sub connexion_telnet()




Dim WshShell As Object

Set WshShell = CreateObject("WScript.Shell")

WshShell.Run "telnet.exe" & Chr(13)
WScript.Sleep 5000

maintenant ca plante a la ligne : "
WshShell.Run "telnet.exe" & Chr(13)"
Erreur d'éxécution -2147024894 (80070002)
la methode rune de l'objet IWshell3 a échoué

quand j'enleve 
& Chr(13) j'ai plus l'erreurmais le retour chariot est nécéssaire puor pouvoir continuer le script

Cordialement

Connexion Telnet via macro Excel

6 réponses

Votre réponse

Discussions similaires