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 contenant les nom ou adresse des switch cibles.")
txt2=inputbox("entre le nom du fichier txt qui contiendra tout les table mac.")
Const ForReading = 1, ForWriting = 2
Dim f1, f2, line1, line2, fso, f, var1, var2, counter
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.OpenTextFile("c:\fichconf\"&txt&"", ForReading)
Set f = fso.OpenTextFile("c:\fichconf\"&txt2&"", ForWriting,True)
while Not f1.AtEndOfStream
line1 = f1.ReadLine
Set f2 = fso.OpenTextFile("c:\TFTP-Root\" & line1, ForReading)
counter = 0
while counter < 5
f2.ReadLine
counter = counter + 1
wend
while Not f2.AtEndOfStream
line2 = f2.ReadLine
var1 = Mid(line2, 3, 13)
var2 = Mid(line2, 17, 2)
f.write(line1 & ";" & var1 & ";" & var2 & chr(13))
Wend
f2.Close
Wend
f1.Close
f.Close
Set fso = nothing
Set f = nothing
Set f1 = nothing
Set f2 = nothing |
Partager