标签：巡检 CRT crt Screen Send VBS chr params WaitForString

利用CRT配合VBS脚本实现自动化巡检

以山石防火墙巡检为例

• 利用CRT配合VBS脚本实现自动化巡检
  • 1 设备列表文件：list.txt
  • 2 VBS脚本: 2022山石巡检.vbs
  • 3 使用方式

1 设备列表文件：list.txt

内容格式：主机名[空格]IP[空格]SSH用户名[空格]SSH密码

SG-6000 192.168.1.1 hillstone Admin@123
SG-6000-02 192.168.1.2 hillstone Admin@123

• 请务必确认主机名与设备配置一致。
• 确保所有的设备都可以正常访问。

2 VBS脚本: 2022山石巡检.vbs

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

' Hillstone防火墙巡检脚本V1.0
' 注意：
' 请在英文路径下使用，中文路径可能会报错。
' 要求主机名与设备配置一致，不一致结果可能会出错。

crt.Screen.Synchronous = True

Sub Main
    '打开设备列表文件。格式：设备主机名 ip地址 ssh登录账号 ssh密码
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fso,file1,line,str1,params
Set fso = CreateObject("Scripting.FileSystemObject")
'定义设备列表文件位置
Set file1 = fso.OpenTextFile("C:\Users\fcarey\Desktop\checkTmp\list.txt",Forreading, False)
crt.Screen.Synchronous = True
DO While file1.AtEndOfStream <> True
	'读出每行
	line = file1.ReadLine
	'分离每行的参数：主机名 IP地址 用户名 密码
	params = Split(line)
	'定义输出日志名称：主机名_IP.txt
	'crt.session.LogFileName = "C:\Users\fcarey\Desktop\checkTmp\logfiles\" & params(0) & "_" & params(1) & ".txt"
	'定义输出日志名称：主机名.txt
	crt.session.LogFileName = "C:\Users\fcarey\Desktop\checkTmp\logfiles\" & params(0) & ".txt"
	crt.session.Log(true)
	'SSH到这个设备上
	crt.Session.Connect ("/SSH2 /PASSWORD "& params(3) & " " & params(2) & "@" & params(1))
	'巡检命令
	crt.Screen.WaitForString params(0) & "# "
	crt.Screen.Send "ter len 0" & chr(13)
	crt.Screen.WaitForString params(0) & "# "
	crt.Screen.Send "ter width 512" & chr(13)
	crt.Screen.WaitForString params(0) & "# "
	crt.Screen.Send "show config" & chr(13)
	crt.Screen.WaitForString params(0) & "# "
	crt.Screen.Send "show version detail" & chr(13)
	crt.Screen.WaitForString params(0) & "# "
	crt.Screen.Send "show version" & chr(13)
	crt.Screen.WaitForString params(0) & "# "
	crt.Screen.Send "show module" & chr(13)
	crt.Screen.WaitForString params(0) & "# "
	crt.Screen.Send "show interface" & chr(13)
	crt.Screen.WaitForString params(0) & "# "
	crt.Screen.Send "show session generic detail" & chr(13)
	crt.Screen.WaitForString params(0) & "# "
	crt.Screen.Send "show session generic" & chr(13)
	crt.Screen.WaitForString params(0) & "# "
	crt.Screen.Send "show memory" & chr(13)
	crt.Screen.WaitForString params(0) & "# "
	crt.Screen.Send "show memory detail" & chr(13)
	crt.Screen.WaitForString params(0) & "# "
	crt.Screen.Send "show cpu " & chr(13)
	crt.Screen.WaitForString params(0) & "# "
	crt.Screen.Send "show cpu detail" & chr(13)
	crt.Screen.WaitForString params(0) & "# "
	crt.Screen.Send "show ip route static" & chr(13)
	crt.Screen.WaitForString params(0) & "# "
	crt.Screen.Send "show ip route" & chr(13)
	crt.Screen.WaitForString params(0) & "# "
	crt.Screen.Send "show arp" & chr(13)
	crt.Screen.WaitForString params(0) & "# "
	crt.Screen.Send "show environment" & chr(13)
	crt.Screen.WaitForString params(0) & "# "
	crt.Screen.Send "show ha group 0" & chr(13)
	crt.Screen.WaitForString params(0) & "# "
	crt.Screen.Send "show dp-filter" & chr(13)
	crt.Screen.WaitForString params(0) & "# "
	crt.Screen.Send "show dp filter" & chr(13)
	crt.Screen.WaitForString params(0) & "# "
	crt.Screen.Send "show snat resource" & chr(13)
	crt.Screen.WaitForString params(0) & "# "
	crt.Screen.Send "show snat rule" & chr(13)
	crt.Screen.WaitForString params(0) & "# "
	crt.Screen.Send "show snat" & chr(13)
	crt.Screen.WaitForString params(0) & "# "
	crt.Screen.Send "show dnat rule" & chr(13)
	crt.Screen.WaitForString params(0) & "# "
	crt.Screen.Send "show dnat" & chr(13)
	crt.Screen.WaitForString params(0) & "# "
	crt.Screen.Send "show license" & chr(13)
	crt.Screen.WaitForString params(0) & "# "
	crt.Screen.Send "show logging event " & chr(124) & " include 2022" & chr(13)
	crt.Screen.WaitForString params(0) & "# "
	crt.Screen.Send "show logg alarm " & chr(124) & " include 2022" & chr(13)
	crt.Screen.WaitForString params(0) & "# "
	crt.Screen.Send "show logg security " & chr(124) & " include 2022" & chr(13)
	crt.Screen.WaitForString params(0) & "# "
	crt.Screen.Send "show tech-support toconsole" & chr(13)
    crt.Screen.WaitForString params(0) & "# "
	crt.Screen.Send "ter len 50" & chr(13)
	crt.Screen.WaitForString params(0) & "# " 
	crt.Screen.Send chr(13)
    
	'存在more时的脚本
	'Do Until crt.Screen.WaitForString ("---- More ----",3) = False
	'crt.Screen.Send " "
	'loop

	'备份完成后退出
	crt.Session.Disconnect
loop
crt.Screen.Synchronous = False

End Sub

3 使用方式

打开CRT --> Script --> Run --> 选择"2022山石巡检.vbs" --> 等待输出结果 --> 确认并拷贝结果 --> 跑路。

标签：巡检,CRT,crt,Screen,Send,VBS,chr,params,WaitForString
来源： https://www.cnblogs.com/f-carey/p/16363840.html

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。