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