Bonjour j'ai parcouru le forum sans succès j'ai un problème à résoudre très vite j'espère trouver une solution. Voici ma préoccupation, j'ai écrit un script qui automatise le telnet, mais je n'arrive pas à mettre le résultat dans un fichier texte et je doit aussi préciser que le script ne se ferme pas après exécution voici le script en question, il est long donc je le réduit
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
28
29
30
31
32
33
34
35
36
37
Dim objShell 
Set objShell = CreateObject("WScript.Shell") 
objShell.Run "C:\Windows\System32\telnet.exe 10.10.3.1",,False 
WScript.Sleep 100
objShell.SendKeys "admin~" 
WScript.Sleep 100
objShell.SendKeys "1" 
WScript.Sleep 100
objShell.SendKeys "1~" 
WScript.Sleep 100
objShell.SendKeys "4" 
WScript.Sleep 100
objShell.SendKeys "2" 
WScript.Sleep 100
objShell.SendKeys "1~" 
WScript.Sleep 100
objShell.SendKeys "^z" 
WScript.Sleep 100
objShell.SendKeys "1"
WScript.Sleep 100
objShell.SendKeys "4"
WScript.Sleep 100
objShell.SendKeys "3"
WScript.Sleep 100
objShell.SendKeys "1"
WScript.Sleep 100
objShell.SendKeys "^z"
WScript.Sleep 100
objShell.SendKeys "1"
WScript.Sleep 100
objShell.SendKeys "4"
WScript.Sleep 100
objShell.SendKeys "3"
WScript.Sleep 100
objShell.SendKeys "1"
WScript.Sleep 100
objShell.SendKeys "^z"
J'attend vos réactions merci d'avance