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 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57
|
Dim stRep_audit
Dim arrSwitchList
Dim commande1
Dim commande2
Dim commande3
Dim commande4
Dim commande5
Dim arrSwitchLines()
Dim i
Dim f
commande1 = "set logging local console enable file enable"
commande2 = "set logging default severity 5"
Commande3 = "set logging application all level 5"
Commande4 = "save config"
Commande4 = "exit"
i = 0
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\audit\enterasys.txt", 1)
Do Until objFile.AtEndOfStream
Redim Preserve arrSwitchLines(i)
arrSwitchLines(i) = objFile.ReadLine
i = i + 1
Loop
objFile.Close
For l = Ubound(arrSwitchLines) to LBound(arrSwitchLines) Step -1
Wscript.Echo "lecture IP:" &"" &arrSwitchLines(l)
commande()
Next
sub commande()
Set WshShell = WScript.CreateObject("WScript.Shell")
Wscript.Echo "connexion sur IP:" &"" &arrSwitchLines(l)
WshShell.Run "putty.exe -ssh *******@"&arrSwitchLines(l) &"-pw ********"
WScript.Sleep 2000
WshShell.AppActivate arrSwitchLines(l) &"- PuTTY"
WScript.Echo commande1
WshShell.SendKeys "set logging local console enable file enable{ENTER}"
WScript.Echo commande2
WshShell.SendKeys "set logging default severity 5{ENTER}"
WScript.Echo commande3
WshShell.SendKeys "set logging application all level 5{ENTER}"
WScript.Echo commande4
WshShell.SendKeys "save config{ENTER}"
WScript.Sleep 6000
WshShell.SendKeys "exit{ENTER}"
WScript.Echo commande5
end sub |
Partager