如何将vbs运行结果输出到文本文件

来源：百度知道编辑：UC知道时间：2024/06/23 23:00:07

我写一个脚本登录到交换机并显示路由表,但不知道怎样将路由表输出到文本文件,请大家帮助.
on error resume next
dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.run"cmd"
WshShell.AppActivate"c:\windows\system32\cmd.exe"
WScript.Sleep 200
WshShell.SendKeys"telnet x.x.x.x"
WshShell.SendKeys"{ENTER}"
WScript.Sleep 100
WshShell.AppActivate"telnet.exe "
WScript.Sleep 2000
WshShell.SendKeys"xxx"
WshShell.SendKeys"{ENTER}"
WScript.Sleep 2000
WshShell.SendKeys"sh ip route"
WshShell.SendKeys"{ENTER}"
WshShell.SendKeys"{ }"
WshShell.SendKeys"{ }"
WshShell.SendKeys"{ }"
WshShell.SendKeys"{ }"
WScript.Sleep 1000
WshShell.SendKeys"exit"
WshShell.SendKeys"{ENTER}"
WScript.Sleep 1000
WshShell.SendKeys"exit"
WshShe

同情楼主

想了半天，也没想出办法，呵呵
不过我觉得你telnet时可以这样，更方便.
WshShell.run "cmd /k telnet x.x.x.x"
这是原先的代码，你比较一下，呵呵
WshShell.run"cmd"
WshShell.AppActivate"c:\windows\system32\cmd.exe"
WScript.Sleep 200
WshShell.SendKeys"telnet x.x.x.x"
WshShell.SendKeys"{ENTER}"

还有关闭telnet和cmd时可以用这个
WshShell.run "cmd /c tskill telnet"
WshShell.run "cmd /c tskill cmd"
这是你原先的代码
WshShell.SendKeys"exit"
WshShell.SendKeys"{ENTER}"
WScript.Sleep 1000
WshShell.SendKeys"exit"
WshShell.SendKeys"{ENTER}"
WScript.Sleep 100

我想用windows的超级终端还有可能。你再想想吧，呵呵

取得路由表后判断有无线路中断这句话是什么意思呀？

VBS如何将数据输出到文件如何将C程序的输出结果写入文本请问如何将sql查询结果保存到文本问件中？如何将扫描到电脑中的TIF文件中的文字以纯文本的形式输出？如何将自编程序运行结果用autocad和excel输出如何让C++结果以文本形式输出? 如何把批处理文件里面输出的内容输出到文本如何将c语言程序计算出来的结果输出到txt? 在vb中如何将结果用print输出到标签中为什么我的这个C程序运行结果不能输出到文本中??哪里有问题么??请各位高手指点迷津!!!不胜感激!