xshell script抓取路由配置文件

[tex=code]Sub Main
dim fso,fread,strline
set fso=createobject("scripting.filesystemobject")
set fread=fso.opentextfile("C:\dev\e\xae",1)
do until fread.atendofstream
   strline=fread.readline
   'wscript.echo strline '这里也仅仅是显示一行内容而已
   xsh.Session.LogFilePath = "c:\dev\e\route.log"
   xsh.Session.StartLog
   xsh.Screen.WaitForString "server ip or domain name ( 'q' to exit ):"
   xsh.Screen.Send strline
   xsh.Screen.Send VbCr
   xsh.Screen.WaitForString "Last Login:"
   xsh.Session.Sleep 1000
   'xsh.Screen.Send "cat /etc/rc3.d/S27route"
   xsh.Screen.Send "cp /etc/rc3.d/S27route /tmp/route-"&strline&" && rsync /tmp/route-"&strline&" 10.217.13.242::hean/tmp/routecheck"
   xsh.Screen.Send VbCr
   xsh.Screen.Send "exit"
   xsh.Screen.Send VbCr
loop
fread.close
xsh.Session.StopLog
set fso=nothing

end Sub[/tex]