vb脚本自动更新版本信息

使用的串口显示软件为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 脚本中以符合“'”作为注释。