SecureCRT 脚本示例

#$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
For i = 1 To 5000	'循环执行次数
	crt.Screen.Send "display ip" & chr(10)   '引号中为要执行的命令
	crt.Sleep 200	'延迟200ms
	crt.Screen.Send "display systime" & chr(10) 
	crt.Sleep 200
	crt.Screen.Send "ip 2 address 172.16.100.155 255.255.0.0" & chr(10) 
	crt.Sleep 200
	crt.Screen.Send "display ip" & chr(10)
	crt.Sleep 200
Next
End Sub