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")