#$language = "VBScript"
#$interface = "1.0"

Sub Main
crt.Screen.Synchronous = True

IP2 = inputbox("请输入IP地址","提示信息")
IP=""&IP2
'IP="172.16.0."&IP2
'IP="192.168.0."&IP2
strconnect="/SSH2 /L admin /PASSWORD admin_default " & IP
crt.session.connectInTab(strconnect)

log_file = IP

crt.Session.LogFileName = "D:\Crtvbs\log\"&log_file&".txt"
'日志文件保存在D:\Crtvbs\log\目录

Call crt.Session.Log(True)
'开启会话日志

crt.Screen.Send "show clock" & VbCr
crt.Screen.Send "show version" & VbCr
crt.Screen.Send "show running-config" & VbCr
Do while (crt.Screen.WaitForString("-MORE--",1)<>False)
crt.Screen.Send " "
Loop

Call crt.Session.Log(False)
'关闭会话日志
'crt.Screen.Synchronous = False
crt.Session.Disconnect

End Sub