SecureCRT中使用VBScript获取当前系统时间并发送给终端设备设置

由于VBS中不允许指定时间格式获取，因此只能绕弯弯。

#$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
	Dim currentTime, formattedTime

    ' 获取当前系统时间
    currentTime = Now
    
    ' 提取日期和时间的各个部分
    yearPart = Year(currentTime)
    monthPart = Right("0" & Month(currentTime), 2) ' 确保月份是两位数
    dayPart = Right("0" & Day(currentTime), 2) ' 确保日期是两位数
    hourPart = Right("0" & Hour(currentTime), 2) ' 确保小时是两位数
    minutePart = Right("0" & Minute(currentTime), 2) ' 确保分钟是两位数
    secondPart = Right("0" & Second(currentTime), 2) ' 确保秒是两位数
    
    ' 组合成所需的格式 "YYYY-MM-DD HH:mm:ss"
    formattedTime = yearPart & "-" & monthPart & "-" & dayPart & " " & hourPart & ":" & minutePart & ":" & secondPart

	crt.Screen.Send "date '" & formattedTime & "'" & chr(13)
End Sub