网址：http://wenku.baidu.com/link?url=nNG-UiSjvN5AU8M8PkApXm2Akwiz5d9Xr55r0OQjrGhTj0pb68uEyM5stj5gzwbyOYk8_u5CDCjnEDxKiqgRcGy9vxwtsY9kIaBtY4hy56G

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

crt.Screen.Synchronous = True

Sub Main
	Set objtab = crt.Session.ConnectInTab("/SSH2 /PASSWORD root [email protected]",True)
    crt.Screen.Send VbCr
	crt.Screen.Send "cd /home/c00358145" &VbCr
	crt.Screen.WaitForString ("SZX1000058409:/home/c00358145")
	
	crt.Screen.Send "scp 10.22.91.197:/home/chengtingting/readme.txt /home/c00358145" & chr(13)
	result = crt.Screen.WaitForStrings("Password:","continue connecting",10)
	If result<>1 Then
		crt.Screen.Send "yes" & chr(13)
		crt.Screen.WaitForString "Password:"
	End If
	crt.Screen.Send "root" & chr(13)
	crt.Screen.WaitForString "100%"
End Sub

上述代码意思：使用VBS脚本连接10.93.157.60 账号密码是root/root

进入目录/home/c00358145路径下

执行拷贝命令scp:将10.22.91.197服务器上的readme.txt文件拷贝到10.93.157.60服务器上

界面上则出现password：

接下来则需输入密码：root

界面上呈现拷贝100%


Sub Main
	
	Dim desIp
	Dim   filePath
	filedir  = "D:\tool\Test"	
	slotIp = "10.93.37.233"	
	set tab = crt.Session.ConnectInTab("/s "&desIp)
	result = tab.Screen.WaitForStrings("OSCA-SPUA:~ #")	
	crt.Sleep 1000
	tab.Session.LogFileName = filedir & "\log\start.log"
	tab.Session.Log True
	GetResource(tab)
	crt.Sleep 1000
	Set tab = crt.Session.ConnectInTab("/telnet 10.39.149.28 8080")
	crt.Sleep 1000
End Sub

Sub GetResource(tab)
	tab.Screen.SendKeys "^C"
	tab.Screen.WaitForStrings("(gdb)")	
	
	tab.Screen.Send "kill All" & Vbcr
	tab.Screen.WaitForStrings "=","No symbol",5
	
	tab.Screen.Send "c" & Vbcr
	tab.Screen.WaitForStrings("Continuing")
		
End Sub

上述代码意思：定义变量Dim desIp 

使用ConnectInTab进行连接，此种连接方式需在SecureCRT.exe上已完成快速连接配置

crt.Sleep 1000 延时

LogFileName = filedir & "\log\start.log"的意思是将后续执行的动作保存在日志start.log文件中，需要将tab.Seesion.Log置为True

定义函数GetResource(tab)，在主函数中进行调用

telnet 10.39.149.28 8080使用telent方式连接windows机器上的程序端口号