脚本:
#$language = "VBScript"
#$interface = "1.0"
Sub main
' turn on synchronous mode so we don't miss any data
crt.Screen.Synchronous = True
' Wait for a string that looks like "login: " or "Login: "
' Send your username followed by a carriage return
Dim i
i = 0
DO while i < 10
'crt.sleep 2000
crt.Screen.Send "date -s '2012-12-12 12:12:12'" & VbCr
crt.Screen.WaitForString "#"
crt.sleep 2000
crt.Screen.Send "date -s '1970-01-12 12:12:12'" & VbCr
crt.Screen.WaitForString "#"
crt.sleep 2000
i = i + 1
LOOP
' Wait for a string that looks like "password: " or "Password: "
'crt.Screen.WaitForString "assword:"
' Send your password followed by a carriage return
'crt.Screen.Send "password" & VbCr
' turn off synchronous mode to restore normal input processing
crt.Screen.Synchronous = False
End Sub
说明:
1.不同系统使用date设置的命令方法不一样。
2.设置时间可能导致某些系统异常。
3.这里只是列举简单的脚本。
4.在SecureCRT中,用户也可以录制脚本,这样再看懂写法就可以自己写简单的VB&SecureCRT结合的脚本了。