使用的串口显示软件为secureCrt，支持脚本功能，今天写了一个简单的软件升级脚本（VB脚本）。
如下：
# $language = "VBScript"
# $interface = "1.0"
Sub Main
crt.Screen.WaitforString "ath>",2
' 配置设备ip地址
crt.Screen.send "setenv ipaddr 192.168.2.101" & Chr(13)
crt.Screen.WaitforString "ath>",3
' 配置服务器地址
crt.Screen.send "setenv serverip 192.168.2.234" & Chr(13)
crt.Screen.WaitforString "ath>",3
' 保存配置
crt.Screen.send "saveenv" & Chr(13)
crt.Screen.WaitforString "ath>",15
' 上传kernel文件 crt.Screen.send "run lk" & Chr(13)
crt.Screen.WaitforString "ath>",25
' 上传rootfs文件 crt.Screen.send "run lf" & Chr(13) crt.Screen.WaitforString "ath>",40
' 重启设备
crt.Screen.send "boot" & Chr(13)
End Sub
VB 脚本中以符合“'”作为注释。