SecureCRT自动登录Linux并设置时间

#$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

    crt.Screen.WaitForString "Username: "

    crt.Screen.Send "root" & chr(13)

    crt.Screen.WaitForString "Password: "

    crt.Screen.Send "123456789" & chr(13)

    crt.Screen.WaitForString "root> "

    crt.Screen.Send "status" & chr(13)

    crt.Screen.WaitForString "root> "

    CurrentYear       = mid(Now, 9, 2)

    CurrentMonth      = mid(Now, 1, 2)

    CurrentDay        = mid(Now, 4, 2)

    CurrentHour       = mid(Now, 12, 2)

    CurrentMinute     = mid(Now, 15, 2)

    CurrentSecond     = mid(Now, 18, 2)

    crt.Screen.Send "date " & CurrentMonth & CurrentDay & CurrentHour & CurrentMinute & CurrentYear & vbcr

    crt.Screen.WaitForString "root> "

    crt.Screen.Send "cli" & chr(13)

    crt.Screen.WaitForString "redhat> "

    crt.Screen.Send "en" & chr(13)

End Sub