Salut,
j'ai developper un solution script qui permet de configurer des switch procurve de maniere automatique, maintenant j'ai besoin de recupere des info sur de multiple swich et pour ce faire j'ai cree ce script :
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.
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 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
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
En vous remeciant par avance
Partager