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

crt.Screen.Synchronous = True

' This automatically generated script may need to be
' edited in order to work correctly.
' https://www.runyf.cn


Sub main
    CurrentTime=Hour(Now)&":"&Minute(Now)&":"&Second(Now)
    m = CurrentTime

    Currentdate2=year(Now)&"-"&Month(Now)&"-"&day(Now)
    clock = "clock set "&Currentdate2&" "&m
    
    crt.Screen.Send "conf-mode" & VbCr
    crt.Screen.Send clock & VbCr
    crt.Screen.Send "show clock" & VbCr
    

End Sub