rappel de ligne dejas utiliser
Salut,
j'ai developper un solution script qui permet de configurer des switch procurve de maniere automatique:bravo:, maintenant j'ai besoin de recupere des info sur de multiple swich et pour ce faire j'ai cree ce script 8-):
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
|
txt=inputbox("entre le nom du fichier txt de sauvegarde des @ mac du switch.")
msgbox "les switchs cible sont dans le fichier["&txt&"] "
Dim shell, args, params, fso, fa, fs, oFso, f
Const ForReading = 1, ForWriting = 2
Set shell = WScript.CreateObject("WScript.Shell")
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Set args = Wscript.Arguments
Script=Lcase(Wscript.ScriptFullName)
set fs=fso.GetFile(Script)
sps=lcase(fs.ShortPath)
Set oFso = CreateObject("Scripting.FileSystemObject")
Set f = oFso.OpenTextFile("c:\fichconf\"&txt&"", ForReading)
while Not f.AtEndOfStream
shell.Run "telnet "&f.ReadLine&""
WScript.Sleep 300
shell.Sendkeys "enable{enter}"
shell.Sendkeys "pass{enter}"
WScript.Sleep 300
shell.Sendkeys "copy command-output 'show mac-address' tftp 10.128.217.84 "&...&"{enter}"
WScript.Sleep 300
shell.Sendkeys "exit{enter}"
WScript.Sleep 300
shell.Sendkeys "exit{enter}"
WScript.Sleep 300
shell.Sendkeys "y{enter}"
WScript.Sleep 300
shell.Sendkeys "{enter}"
Wend
f.Close |
et j'aimerais savoir comment je peut rappeler la valeur de f.readline utiliser pour le telnet sans qu'il passe a la ligne la ou il y a mon "&...&" histoire d'avoir le fichier resultat du meme nom que le switch.:)
j'ai tenter en le declarant en variable et en la rappelant mais il m'as planter mon script en fesant un telnet sur f.readline en boucle :bug:
En vous remeciant par avance :mrgreen:
