CISCO防火牆自動配置、備份腳本

CISCO防火牆 自動部署、配置、備份等。適用PIX501、ASA5505、ASA5506系列等防火牆，備份或者自動化配置腳本如下，如何xshell和按鍵精靈結合。本人研究不深，日常維護還是可以辦到的。

Dim mima
 Path = "D:\SW_bak\list06.txt" //防火牆地址列表
 text = Plugin.File.ReadFileEx(Path) 
 fg = split(text, "|") 
 count = UBound(fg)
 Delay 10020
 For i = 1 To count - 1
 LeftClick 1
 SayString "ssh pix@"

If Len(fg(i)) < 100 Then 
ip = Lib.算法.提取字串符中所有數字(fg(i))
//MsgBox shouji
//mima = Replace(fg(i), " "  & ip, "")
NArray = Split(fg(i), " ")


SayString NArray(0)
Delay 1000
SayString NArray(1)
Delay 1000

KeyPress "Enter", 1
Delay 10000
KeyPress "Enter", 1
Delay 10000
SayString "密碼"
Delay 1000
KeyPress "Enter", 1
Delay 1000
SayString "enable"
Delay 1000
KeyPress "Enter", 1
Delay 1000
SayString "密碼"
Delay 1000
KeyPress "Enter", 1
Delay 1000
SayString "conf t"
KeyPress "Enter", 1
Delay 1000
//命令開始
SayString "logging trap informational"
Delay 1000
KeyPress "Enter", 1

SayString "logging host inside 10.3.105.121"
Delay 1000
KeyPress "Enter", 1


SayString "logging trap 6"
Delay 1000
KeyPress "Enter", 1


SayString "logging timestamp"
Delay 1000
KeyPress "Enter", 1

SayString "wr"
Delay 1000
KeyPress "Enter", 1
Delay 10020
SayString "logout"
Delay 5000
KeyPress "Enter", 1

//sh pix@/MsgBox mima
//Call Plugin.Sys.SetCLB(mima)
Delay 5020
End If
 Next

其他操作命令就把saystring字符換成對應的命令就可以了。

代碼沒有註解，不過非常簡單，一看就明白了，沒有本人同意嚴禁轉載。