VBS脚本：自动备份设备配置

云中雷 · 发表于 2010-12-5 12:17:20

   网络管理维护人员少不了要对设备进行配置备份，如只有几台设备，人手备份也不觉得麻烦；设备多了，就要想个办法进行自动备份。利用CRT的VBS脚本功能，我们也可以自己做一个简单的自动备份系统。我经过一段时间的摸索，编写出自动备份的脚本(当然脚本比起专业的自动备份系统显得很粗糙，缺少许多条件判断和后台数据库)。附上脚本，希望对大家有帮助。

# $language = "VBScript"
# $interface = "1.0"

Sub Main

crt.session.Connect("/telnet 172.16.1.254")
'在CRT中telnet 172.16.1.254
crt.sleep 200
'等待200ms
crt.Screen.Send "cisco" & vbCR
'输入设备用户名"cisco"
crt.sleep 200
crt.Screen.Send "cisco" & vbCR
'输入设备密码"cisco"
crt.sleep 200
crt.Screen.Send "en" & vbCR
'进入设备特权模式
crt.Screen.Send "cisco" & vbCR
'输入设备特权密码"cisco"
crt.session.LogFileName = "c:\bac.txt"
'记录会话所生成文件的目录和文件名称
crt.session.Log true
'打开CRT的会话记录功能

crt.Screen.Send " show run" & vbCR
'查看设备配置
Do while (crt.Screen.WaitForString("--More--",2)<>False)
'如果设备配置输入过长，在2秒内出现"--More--"的提示符，就进行循环处理
   crt.Screen.Send " "
   '针对如上判断，当出现"--More--"的提示符时就输入一个空格键
Loop

crt.session.Log false
'关闭CRT的会话记录功能
crt.session.disconnect
'结束CRT的telnet会话
End Sub

喵喵 · 发表于 2010-12-5 12:19:17

最后一条我也会。。。

迷糊 · 发表于 2010-12-5 15:01:42

踏破铁鞋无觅处，得来只要点一下

小皮球 · 发表于 2010-12-5 16:57:37

看得懂一些，技术都忘光了～

sujf · 发表于 2010-12-5 17:47:55

回复 2 # 喵喵的帖子

额..真傻

思博网络 · 发表于 2010-12-5 21:30:53

小脚本，大用途！顶了

linda.! · 发表于 2010-12-5 21:31:11

回复 5 # sujf 的帖子

那你看得懂多少？

tomk · 发表于 2010-12-6 04:34:34

lz脚本中的注释不错，可以让其他筒子们参考写出一些其他用途的脚本

喵喵 · 发表于 2010-12-6 09:25:50

回复 5 # sujf 的帖子

kkingkill · 发表于 2010-12-6 12:27:21

当有很多设备时，VBS脚本能省不了时间

账号		自动登录	找回密码
密码			立即注册