SecureCRT脚本(VBS)运行

最新推荐文章于 2023-08-16 14:12:34 发布
最新推荐文章于 2023-08-16 14:12:34 发布
阅读量918 收藏 3
点赞数
原文链接：http://www.cnblogs.com/time93/p/9347560.html
版权
SecureCRT脚本(VBS)运行

SecureCRT脚本(VBS)运行

在SecureCRT运行脚本，自动收发数据监控记录运行状态。

参考：

示例代码：

#$language = "VBScript"
#$interface = "1.0"
'====本脚本说明：=================================================
'通信测试:
'1、新建日志文件路径修改LOG_FILE_NAME宏定义的地址
'2、使用Telnet登陆PPC后运行脚本，运行一段时间后错误信息将自动存储到1中定义的文本文件，若无则测试通过。
'
const LOG_FILE_NAME="z:\secureCrt-log.txt"


'================================================================
Sub Main
'================================================================
crt.Screen.Synchronous = True
'--------------------------------
Dim erro_c
erro_c = 1


'----------------------------------------------------------------------------------1
'loop
'crt.Screen.Synchronous = False 
'crt.Sleep 1000
crt.Screen.Send "d 0xfa050100" & chr(13)
crt.Sleep 100
crt.Screen.Send "d 0xfa050100" & chr(13)
crt.Screen.waitForString "fa050100:  0000 0002 0002 28b0 0000 ffff"
crt.Screen.waitForString "value = 21 = 0x15"
crt.Sleep 100
'----------------------------------------------------------------------------------2
'Do
'INTI
crt.Screen.Send "m 0xfa05010a" & chr(13)
crt.Screen.Send "0049" & chr(13)
crt.Screen.Send "q" & chr(13)

crt.Screen.Send "m 0xfa05010a" & chr(13)
crt.Screen.Send "004E" & chr(13)
crt.Screen.Send "q" & chr(13)

crt.Screen.Send "m 0xfa05010a" & chr(13)
crt.Screen.Send "0054" & chr(13)
crt.Screen.Send "q" & chr(13)

crt.Screen.Send "m 0xfa05010a" & chr(13)
crt.Screen.Send "0049" & chr(13)
crt.Screen.Send "q" & chr(13)

Read1

RunRecd
'Loop
'-------------------------------------------
Dim var1
'定义循环次数
var1=5
Const Delay1 = 10
Do 
'----------------------------------------------------------------------------------3
'53410000
crt.Screen.Send "m 0xfa05010a" & chr(13)
crt.Screen.Send "0053" & chr(13)
crt.Screen.Send "q" & chr(13)

crt.Screen.Send "m 0xfa05010a" & chr(13)
crt.Screen.Send "0041" & chr(13)
crt.Screen.Send "q" & chr(13)

crt.Screen.Send "m 0xfa05010a" & chr(13)
crt.Screen.Send "0080" & chr(13)
crt.Screen.Send "q" & chr(13)

crt.Screen.Send "m 0xfa05010a" & chr(13)
crt.Screen.Send "0000" & chr(13)
crt.Screen.Send "q" & chr(13)

erro_c = Read2(erro_c )
crt.Sleep Delay1 


'53410000
crt.Screen.Send "m 0xfa05010a" & chr(13)
crt.Screen.Send "0053" & chr(13)
crt.Screen.Send "q" & chr(13)

crt.Screen.Send "m 0xfa05010a" & chr(13)
crt.Screen.Send "0041" & chr(13)
crt.Screen.Send "q" & chr(13)

crt.Screen.Send "m 0xfa05010a" & chr(13)
crt.Screen.Send "0070" & chr(13)
crt.Screen.Send "q" & chr(13)

crt.Screen.Send "m 0xfa05010a" & chr(13)
crt.Screen.Send "0000" & chr(13)
crt.Screen.Send "q" & chr(13)

erro_c = Read2(erro_c )
crt.Sleep Delay1 



'53410000
crt.Screen.Send "m 0xfa05010a" & chr(13)
crt.Screen.Send "0053" & chr(13)
crt.Screen.Send "q" & chr(13)

crt.Screen.Send "m 0xfa05010a" & chr(13)
crt.Screen.Send "0041" & chr(13)
crt.Screen.Send "q" & chr(13)

crt.Screen.Send "m 0xfa05010a" & chr(13)
crt.Screen.Send "0060" & chr(13)
crt.Screen.Send "q" & chr(13)

crt.Screen.Send "m 0xfa05010a" & chr(13)
crt.Screen.Send "0000" & chr(13)
crt.Screen.Send "q" & chr(13)

erro_c = Read2(erro_c )
crt.Sleep Delay1 


'53410000
crt.Screen.Send "m 0xfa05010a" & chr(13)
crt.Screen.Send "0053" & chr(13)
crt.Screen.Send "q" & chr(13)

crt.Screen.Send "m 0xfa05010a" & chr(13)
crt.Screen.Send "0041" & chr(13)
crt.Screen.Send "q" & chr(13)

crt.Screen.Send "m 0xfa05010a" & chr(13)
crt.Screen.Send "0050" & chr(13)
crt.Screen.Send "q" & chr(13)

crt.Screen.Send "m 0xfa05010a" & chr(13)
crt.Screen.Send "0000" & chr(13)
crt.Screen.Send "q" & chr(13)

erro_c = Read2(erro_c )
crt.Sleep Delay1 

'53410000
crt.Screen.Send "m 0xfa05010a" & chr(13)
crt.Screen.Send "0053" & chr(13)
crt.Screen.Send "q" & chr(13)

crt.Screen.Send "m 0xfa05010a" & chr(13)
crt.Screen.Send "0041" & chr(13)
crt.Screen.Send "q" & chr(13)

crt.Screen.Send "m 0xfa05010a" & chr(13)
crt.Screen.Send "0040" & chr(13)
crt.Screen.Send "q" & chr(13)

crt.Screen.Send "m 0xfa05010a" & chr(13)
crt.Screen.Send "0000" & chr(13)
crt.Screen.Send "q" & chr(13)

erro_c = Read2(erro_c )
crt.Sleep Delay1 


'53410000
crt.Screen.Send "m 0xfa05010a" & chr(13)
crt.Screen.Send "0053" & chr(13)
crt.Screen.Send "q" & chr(13)

crt.Screen.Send "m 0xfa05010a" & chr(13)
crt.Screen.Send "0041" & chr(13)
crt.Screen.Send "q" & chr(13)

crt.Screen.Send "m 0xfa05010a" & chr(13)
crt.Screen.Send "0030" & chr(13)
crt.Screen.Send "q" & chr(13)

crt.Screen.Send "m 0xfa05010a" & chr(13)
crt.Screen.Send "0000" & chr(13)
crt.Screen.Send "q" & chr(13)
crt.Sleep Delay1 

erro_c = Read2(erro_c )
crt.Sleep Delay1 

'--------------------------------------------
if var1=1 then 
exit do
end if
'var1=var1-1 
Loop
'crt.Screen.Send "d 0xfa050100" & chr(13)
'crt.Sleep 1000
crt.Screen.Synchronous = False
End Sub


'=====================================

Sub Read1
crt.Sleep 100
crt.Screen.Send "d 0xfa050100" & chr(13)
crt.Screen.waitForString "0049"
crt.Screen.waitForString "value = 21 = 0x15"
crt.Sleep 500

crt.Screen.Send "d 0xfa050100" & chr(13)
crt.Screen.waitForString "004b"
crt.Screen.waitForString "value = 21 = 0x15"
crt.Sleep 500

crt.Screen.Send "d 0xfa050100" & chr(13)
crt.Screen.waitForString "004b"
crt.Screen.waitForString "value = 21 = 0x15"
crt.Sleep 500
End Sub


'=====================================
Function Read2(e_cnt)
Const Delay2 = 100
crt.Sleep 300
crt.Screen.Send "d 0xfa050100" & chr(13)
'crt.Screen.waitForString "0053"
If(crt.Screen.WaitForString ("0053",1)<>False) Then
  'Msgbox "time yes"
  crt.Screen.waitForString "value = 21 = 0x15"
Else
  ErroRecd e_cnt
  e_cnt = e_cnt + 1
  crt.Screen.Send "d 0xfa050100" & chr(13)
  crt.Screen.Send "d 0xfa050100" & chr(13)
  Read2 = e_cnt
  exit function
'Msgbox "time out"
End If
crt.Sleep Delay2 

crt.Screen.Send "d 0xfa050100" & chr(13)
'crt.Screen.waitForString "004b"
'crt.Screen.waitForString "value = 21 = 0x15"
If(crt.Screen.WaitForString ("004b",1)<>False) Then
  'Msgbox "time yes"
  crt.Screen.waitForString "value = 21 = 0x15"
Else
  ErroRecd e_cnt
  e_cnt = e_cnt + 1
  crt.Screen.Send "d 0xfa050100" & chr(13)
  crt.Screen.Send "d 0xfa050100" & chr(13)
  Read2 = e_cnt
  exit function
'Msgbox "time out"
End If
crt.Sleep Delay2 
  
crt.Screen.Send "d 0xfa050100" & chr(13)
'crt.Screen.waitForString "004b"
'crt.Screen.waitForString "value = 21 = 0x15"
If(crt.Screen.WaitForString ("004b",1)<>False) Then
  'Msgbox "time yes"
  crt.Screen.waitForString "value = 21 = 0x15"
Else
  ErroRecd e_cnt
  e_cnt = e_cnt + 1
  crt.Screen.Send "d 0xfa050100" & chr(13)
  crt.Screen.Send "d 0xfa050100" & chr(13)
  Read2 = e_cnt
  exit function
'Msgbox "time out"
End If
crt.Sleep Delay2 


Read2 = e_cnt
End Function 

'=====================================


Sub ErroRecd(e_cnt)
'创建文件对象 
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject") 
'设置文件对象 1 只读模式;2 写模式;8 在文件末尾进行写操作 
Set file1 = fso.OpenTextFile(LOG_FILE_NAME,8, False) 
'file1.WriteLine("Erro"&e_cnt&":"&time)
file1.WriteLine("Erro"&e_cnt&":"&date&" | "&time)
'---------------------
file1.WriteLine("---------st-----------")
dim s
dim c
c=1
do 
s = crt.Screen.Get(c,1,c,100)
file1.WriteLine(s)
if c=50 then 
exit do
end if
c=c+1
loop
file1.WriteLine("---------end-----------")
file1.WriteLine("                       ")


'---------------------------------------
file1.Close '关闭文件
'Msgbox time
End Sub

'=======================================
Sub RunRecd
'创建文件对象 
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject") 
'设置文件对象 1 只读模式;2 写模式;8 在文件末尾进行写操作 
Set file1 = fso.OpenTextFile(LOG_FILE_NAME,8, False) 
'file1.WriteLine("Erro"&e_cnt&":"&time)
file1.WriteLine("|=======================================")
file1.WriteLine("The vbs started@"&":"&date&" | "&time)
'---------------------
file1.WriteLine("                       ")
'---------------------------------------
file1.Close '关闭文件
'Msgbox time
End Sub

操作步骤：

  1. 建立通信连接
  2. 运行脚本


posted on 2018-05-05 23:58  Hello+World! 阅读( ...) 评论( ...) 编辑 收藏

转载于:https://www.cnblogs.com/time93/p/9347560.html

aijie1851
关注
SecureCRT刷配置vbs脚本
qq_39491224的博客
11-04 1265
Sub Main num0 = 0 num1 = 256 crt.Screen.Send "interface loopback 1" & chr(13) crt.Screen.Send "ip address 20.1.1.1 255.255.255.255" & chr(13) crt.Screen.Send "...
python vbs_SecureCRT使用vbs和python脚本批量执行
weixin_39702479的博客
11-30 1010
SecureCRT 工具是非常牛逼的，通过该工具也可以执行一些自动化任务的处理（与之前写的 《SecureCRT批量操作》 不是同一类型的自动化），比如自动连接服务器并执行相应的内应，将执行结果输出到文本或excel ，自动读取文件内的指令并执行等等，之前的老版本SecureCRT支持的脚本语言是vbs（自动录制的输出也是vbs），在新版本的SecureCRT中增加了对python语言的支持。这里...
SecureCRT VBS执行脚本
浪潮之巅的专栏
08-06 1165
SecureCRT登陆脚本
python 控制SecureCRT运行脚本
最新发布
churlei的专栏
08-16 3158
测试工作，经常用到SecureCRT，做了一个最笨的python 脚本来控制CRT ，在运行脚本。# 调用脚本打开连接。#在CRT软件里面运行脚本。
用VBScript写Linux脚本——SecureCRT与VBScript
天灵狐的小岛
12-07 4529
通过在Windows操作机上使用VBScript控制SecureCRT，这可以操作大部分Linux命令 SecureCRT支持VBScript、JScript、Python和Perl。 一.在哪里使用脚本？ 也可以用快捷键Alt+S→R→回车 二.如何录制脚本 是的，像Excel的VBA一样，SecureCRT也有录制功能 点Stop Recording Scr
SecureCRT脚本编写方法.pdf
08-07
SecureCRT脚本语言基于VBS，和VB有较大的不同，对于界面的支持性较差。用户可以使用VBS语言来编写脚本程序，从而实现自动化操作。 二、SecureCRT工具常用到的几个函数 SecureCRT提供了许多实用的函数，能够满足...
SecureCRT脚本参考文档大合集
08-08
SecureCRT脚本对象详解.doc SecureCRT脚本编写方法.doc SecureCrt自动化——疯狂的杰瑞.doc SecureCRT自动日志功能和脚本录制功能.doc SecureCrt英文VBS脚本手册.pdf 一个真实的用VBS脚本控制SecureCRT每天自动备份...
SecureCRT批量telnet连接脚本,并备份配置
10-11
2、将下载回来解压后的 SecureCRT脚本.vbs复制到D盘backup文件夹内； 3、在D盘backup文件夹中新建一个log文件夹，用于保存配置文件。然后再新建一个以日期为名字的文件夹用于区别多个备份。目录结构例如：d:\backup...
Vbscript 编写SecureCRT脚本
weixin_34354173的博客
12-11 213
Creating ActiveX ScriptsActiveX script engines communicate with SecureCRT via standard interfaces. Therefore, SecureCRT can host any compliant script engine to run your scripts. The advanta...
SecureCRT 使用脚本命令自动记录日志
weixin_42109053的博客
05-09 2518
一、SecureCRT 脚本引擎 SecureCRT 脚本引擎支持 VBScript、JScript 以及 Python 脚本，你可以选择任意你熟悉的脚本语言，与 SecureCRT 对象进行交互。 二、使用 SecureCRT 的自动日志功能 以下是利用 JScript 脚本语言写的示例 # $language = "JScript" /***********************************************************************************
Windows平台SecureCRT结合vbs脚本自动配置交换机文件
Bicction
05-23 1865
结合SecureCRT一起使用 Sub Main Const ForReading = 1, ForWriting = 2, ForAppending = 8 Dim fso,file1,line,str1,params Set fso = CreateObject("Scripting.FileSystemObject") Set file1 = fso.OpenTextFile("C:\HUAWEI.txt",Forreading, False) 'IP.
VBS教程及secureCRT脚本
yazhouren的专栏
06-20 1906
VBS 请看：http://blog.csdn.net/jinghaianlange/article/category/319878 secureCRT脚本编写请看secureCRT的帮助文件
《大话SecureCRT脚本》之批量设备维护工具（doCheck.vbs）
tcy65的专栏
07-02 1613
执行巡检动作的代码。 功能：3次登录设备，不成功则退出，成功则执行巡检动作并保存到日志、结果文件。 在程序最后，列出登录不成功的设备IP。 #$language = "VBScript" #$interface = "1.0" 'created by tcy02, 2018-7-2 crt.Screen.Synchronous = True Dim g_objTab...
SecureCRT的使用技巧-----录制脚本（vbs语法）
oO斯曼的博客
07-10 4791
使用脚本“Script”来执行重复性代码输入工作，含密码的记录。可以像word的宏一样，把你的重复性操作记录为一个脚本文件 ，大大提高效率与使用性。 脚本录制与使用： 1、在需要重复输入代码的节点，Script. => Start Recording Script，开始记录 ； 2、在代码结束节点，Script. => Stop Recording Script，停止记录； 3、 在弹出的保存框，保存成script文件； 4、下次调用时Script. => Run => Se
SecureCRT快速执行
07-07 172
打开secureCRT软件，单击菜单栏上面的【查看】，把“交互窗口”和“按钮栏”勾选上，就会在软件界面下面出现一行按钮栏以及一个矩形的空白栏，如图： 在按钮栏的右侧会有一个按钮总项，默认为【Default】,也可以在按钮栏上单击鼠标右键，选择【新的】创建新的按钮总项，可以设置多行，如图所示： 然后，在按钮栏上单击...
VBScript之SecureCRT自动重启设备脚本
Shuo_33的博客
12-19 1789
SecureCRT软件运行的vbs脚本：根据条件判断自动重启设备，并记录挂机测试结果，记录日志。
SecureCRT在windows本机执行VBS脚本，批量登录linux主机，跳转用户,并执行多条命令的脚本
weixin_39096855的博客
11-13 2581
#$language = “VBScript” $interface = “1.0” '本脚本示范：从一个文件里面自动读取设备IP地址，密码等，自动连接配置文件中设备，再执行命令 '设计思路，从list列表中获取IP列表与密码以及命令等参数 Sub Main '打开保存设备管理地址、名称以及密码的文件 Const ForReading = 1, ForWriting = 2, ForAppending = 8 Dim fso,file1,line,str1,params Set fso = CreateOb
Mac 使用 SecureCRT 运行vbs脚本
08-03
在Mac上，SecureCRT不支持直接运行.vbs格式的脚本。SecureCRT只支持运行.js和.py格式的脚本。所以，如果你想在Mac上运行脚本，你需要将你的.vbs脚本转换为.js或.py格式的脚本。你可以使用JavaScript或Python编写相同...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值