SecureCRT Script 学习笔记

SecureCRT支持ActiveX script engines，包括VBScript和JScript (Microsoft’s version of JavaScript)两种脚本。

Note：如果你想使用脚本自动运行方式的话，需要在session option中进行设置。

脚本可以用任何文本编辑器来开发。Script头部用来识别脚本语言和SecureCRT脚本接口的版本，脚本头部的每一行必须以#开头，头部包括 $language行和 $interface行。例如，下面是一个简单的脚本。

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

Sub  Main
   '  Display SecureCRT's version
   MsgBox   " SecureCRT version is:  "   &  crt.Version
End Sub

代码通常放在main子过程，引擎在执行main子过程前，将转换并执行全局代码(脚本代码定义在任何子过程之外)，如果你有一些初始化处理的话，可以使用这一特性。

如果想终止main过程，用VBScript的话，可以用Exit Sub语句。如：

Sub  Main

  condition  =  DoSomething()
   If  condition  =   0   Then
     '  Error, bailout
     Exit   Sub
   End   If
   
End Sub

SecureCRT有一些内建的对象，可以通过顶级应用对象或子对象调用。这些对象都有一些属性和方法。例如：

Dim  dlg
Set  dlg  =  crt.Dialog
dlg.Prompt( " Login: " )

下面分享给大家一个脚本：

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

    Sub Main
    Dim Counter

        crt.Screen.Send "setenv loadaddr 800000" & vbCr
        crt.Screen.WaitForString "HD-Mother>"
        crt.Screen.Send "setenv fdtaddr 780000" & vbCr
        crt.Screen.WaitForString "HD-Mother>"
        crt.Screen.Send "setenv bootfile uImage" & vbCr
        crt.Screen.WaitForString "HD-Mother>"
        crt.Screen.Send "setenv fdtfile mpc8349emitx.dtb" & vbCr
        crt.Screen.WaitForString "HD-Mother>"
        crt.Screen.Send "setenv serverip 10.1.0.77" & vbCr
        crt.Screen.WaitForString "HD-Mother>"
        crt.Screen.Send "setenv rootpath /home/test/nfs/rootfs" & vbCr
        crt.Screen.WaitForString "HD-Mother>"
        crt.Screen.Send "setenv ipaddr 10.1.0.100" & vbCr
        crt.Screen.WaitForString "HD-Mother>"
        crt.Screen.Send "setenv bootargs root=/dev/nfs mem=1024M rw nfsroot=$serverip:$rootpath ip=$ipaddr:$serverip:$gatewayip:$netmask:$hostname:$netdev:off console=$console,$baudrate $otherbootargs" & vbCr
        crt.Screen.WaitForString "HD-Mother>"
        crt.Screen.Send "setenv nfsboot 'tftp $fdtaddr $fdtfile\;tftp $loadaddr $bootfile\;bootm $loadaddr - $fdtaddr'" & vbCr
        crt.Screen.WaitForString "HD-Mother>"
        crt.Screen.Send "setenv bootcmd $nfsboot" & vbCr
        crt.Screen.WaitForString "HD-Mother>"
        crt.Screen.Send "boot" & vbCr

    End Sub