SecureCRT 脚本

  • Post author:
  • Post category:其他


======================================无敌分割线==============================================

在SecureCRT里,用得最多的应该就是crt.Screen,基本上很多操作都是基于屏幕的返回字来决定下一步的操作。

====================Screen之屏幕返回判断====================

在判断屏幕返回字的函数里,主要用到的是两个:

1、crt.Screen.WaitForString(“KeyString”,timeout)

2、crt.Screen.WaitForStrings(“KeyString1″,”KeyString2”,…,timeout)

———————WaitForString详解——————–

第一个函数是单字符串判断,KeyString是需要查找的关键字,timeout是一个超时阀值,例如:

crt.Screen.WaitForString(“Username:”,5)

该行代码的意思就是在5秒内没有检测到Username:出现,就执行下一条语句,如果改成:crt.Screen.WaitForString(“Username:”)

那就是指直到Username:出现才执行下一行代码。

WaitForString是有返回值的,返回值是True 或者 False。

因此,可以根据返回值进行条件判断以确定一下条代码。例如:

If (crt.Screen.WaitForString (“current state : UP”,1)<>False) Then

portStatus=”PortUP”

Else

portStatus=”PortDown”

End If

这段代码用于判断端口状态情况并记录下来。

———————WaitForStrings详解——————–

第二个函数用于多个字符串的判断,timeout的作用是一样的。例如:

crt.Screen.WaitForStrings(“cisco”,”huawei”,”H3C”,5)

意思就是在5秒内有检测到相应的字符时,返回相应的索引号(索引号是从1开始的)。如果都没有检查到,则返回0.因此,该函数的使用可以如下:

Dim SwitchKey

SwitchKey=crt.Screen.WaitForStrings(“cisco”,”huawei”,”H3C”,5)

Select case SwitchKey

case 1

MsgBox “思科设备”

case 2

MsgBox “华为设备”

case 3

MsgBox “华三设备”

case else

MsgBox “未知设备”

End Select