SecureCRT脚本(VBS)运行
2024-05-14 06:29:43
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)Read1RunRecd
'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 500crt.Screen.Send "d 0xfa050100" & chr(13)
crt.Screen.waitForString "004b"
crt.Screen.waitForString "value = 21 = 0x15"
crt.Sleep 500crt.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"
ElseErroRecd e_cnte_cnt = e_cnt + 1crt.Screen.Send "d 0xfa050100" & chr(13)crt.Screen.Send "d 0xfa050100" & chr(13)Read2 = e_cntexit 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"
ElseErroRecd e_cnte_cnt = e_cnt + 1crt.Screen.Send "d 0xfa050100" & chr(13)crt.Screen.Send "d 0xfa050100" & chr(13)Read2 = e_cntexit 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"
ElseErroRecd e_cnte_cnt = e_cnt + 1crt.Screen.Send "d 0xfa050100" & chr(13)crt.Screen.Send "d 0xfa050100" & chr(13)Read2 = e_cntexit 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操作步骤：
- 建立通信连接
- 运行脚本
SecureCRT脚本(VBS)运行相关推荐
- secureCRT脚本----vbs语法
常用语句: 1.CRT命令 '发送命令 crt.Screen.Send "whyy@dsl-vty" & chr(13) '等待字符串出现 crt.Screen.WaitF ...
- WMI服务故障，VBS脚本无法运行错误
WMI服务故障,VBS脚本无法运行错误报"0x80041002 代码80041002"错误 ---------------------------------- 脚本: C:\WI ...
- 计算机计划任务不执行,在Windows 8中作为计划任务调用时，VBS脚本无法运行
我创建了一个VBS脚本,即使在没有管理员权限的ID上,也可以在Windows 8 Home计算机上手动运行时完美运行.无论我用什么用户凭据通过计算机启动时的计划任务运行它,同样的脚本都会反复失败.我已 ...
- SecureCRT脚本-Python
SecureCRT脚本-Python 这里写两个小脚本 # $language = "python" # $interface = "1.0"#官方的实例可以在 ...
- windows脚本编制引擎_说说 Windows 脚本宿主运行的几种方式
1.在命令提示符下运行脚本 使用 Windows 脚本宿主,可以在命令提示符下运行脚本.CScript.exe 提供了用于设置脚本属性的命令行开关. 使用 CScript.exe 运行脚本 用下列语法 ...
- CuteFTP上传脚本(VBS)
CuteFTP上传脚本(VBS) 2010年08月13日 Option Explicit ' 强制显式声明变量. '****************************************** ...
- Linux环境python脚本后台运行
python 脚本后台运行 在服务器端一直运行一个Python脚本,当然就想到了在命令后面加&符号,代码如下: $ python /data/python/server.py >pyth ...
- secureCRT脚本编写
secureCRT脚本编写 secureCRT脚本编写 脚本编写实例 python脚本 js脚本 secureCRT支持三种脚本语言:vbs,Js,python.三种脚本分别以一下三种形式开头: // ...
- PyCharm编写shell脚本无法运行
背景 我们常常选择使用PyCharm在本地(Windows)进行开发,然后将文件远程同步到远程服务器(Linux)运行程序,但是这样编写的shell脚本常常无法运行,出现语法错误,因为好几个朋友和我提 ...
最新文章
- python中数据类型为list_python_数据类型_list
- 五步就让你成为一名很出色的程序员！
- Java Machine Learning Tools Libraries--转载
- 4.1.9 文件系统的层次结构
- 基于IPV6数据包分析（GNS3）
- 总线制和多线制示意图_再谈总线制与多线制的区别
- 揭秘一线互联网企业 前端JavaScript高级面试
- vue的this.$set的作用
- linux mint 自动更新设置,如何升级到Linux Mint 19.1
- 基础编程题目集 7-2 然后是几点 (15 分)
- Bluetooth L2CAP介绍
- kali linux nmap命令的使用
- Bjui框架--日期选择器
- 用python来开发webgame服务端（1）
- 攻克银联QPBOC L2认证的最后两个不过的案例（POS与卡片的数据交互分析）
- 网页版html怎么设置合适iPad,html – iPad缩放以适应在内容最少的网页上不起作用...
- 码住！Elsevier-最全清样/校样(Proof)处理流程
- C语言 输出1000年~2000年之间的闰年
- 实现键盘enter登录
- charles windows 和苹果手机进行连接抓包