Discussion :

[Space23]

Bonjour,

Je suis en train d'essayer d'automatiser les commandes telnet grâce à un fichier VBScript. J'arrive à le faire jusqu'au moment où je dois rediriger ce qui s'affiche sur la console dans un fichier texte, en gros je ne sais pas quoi mettre dans f.write(...). Avez-vous une idée?

Je précise que je ne connais absolument rien au VBScript.

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
Const ForReading = 1, ForWriting = 2
Dim shell, args, params, fso, fa,fs, fsodeux, f
'Console
Set shell = WScript.CreateObject("WScript.Shell")
'Fichier à écrire
Set WshShell = WScript.CreateObject("WScript.Shell")
'handler console
Set fsoConsole = WScript.CreateObject("Scripting.FileSystemObject")
'handler fichier à écrire
Set fsoFichier = CreateObject("Scripting.FileSystemObject")
 
Set args = Wscript.Arguments
Script=Lcase(Wscript.ScriptFullName)
set fs=fsoConsole.GetFile(Script)
sps=lcase(fs.ShortPath)
shell.Run "telnet @ip"
WScript.Sleep 2000
shell.Sendkeys "@login{ENTER}"
WScript.Sleep 2000
shell.Sendkeys "@pass{ENTER}"
WScript.Sleep 1000 
shell.Sendkeys "getmodinfo{ENTER}"
Set f = fsoFichier.OpenTextFile("c:\temp\ecr.txt", ForWriting,true)
f.write("Salut")

[ucfoutu]

Bonjour,
Je n'ai pas essayé, mais essaye :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"cmd.exe /c telnet " & @ip & "> d:\essaic.txt"

essaye d'abord directement depuis exécuter :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
cmd.exe /c telnet @ip  d:\essaic.txt

en remplaçant @ip par ta valeur