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
操作步骤：
- 建立通信连接
-
运行脚本
posted on
2018-05-05 23:58 Hello+World! 阅读(
...) 评论(
...) 编辑 收藏