自动授时脚本

自动授时脚本

前段时间开发，由于板子rtc 没有电池，每次授时需要手敲，觉得比较麻烦就自己用vb写了个脚本，实现的功能很简单，就是获取当前pc机上的系统时间，然后通过串口同步到板子的rtc里面。代码如下：
稍微懂vb的人都应该可以看得懂：

$language = "VBScript"

#$interface = "1.0"

crt.Screen.Synchronous = True

' This automatically generated script may need to be
' edited in order to work correctly.

Sub Main
    CurrentTime=  Year(Now)&"-"&Month(Now)&"-"&Day(Now)&" "&Hour(Now)&":"&Minute(Now)&":"&Second(Now)
    crt.Screen.Send "date -s " &""""&CurrentTime&""""
    crt.Screen.Send vbCr
    crt.Screen.Send "hwclock -w" 
    crt.Screen.Send vbCr

新建一个文本文档，将以上代码复制文档里面，然后将文件重命名为 （ 校准时间.vbs ）

代码运行环境是SercureCRT,
运行方式如下图

运行脚本后，板子系统时间就自动更新了，可以省却很多手敲命令的时间了