[网络连接] [已解决]用vbs编辑自动telnet批处理有没有等待字符返回的功能?

htnet11

因为网络工程的实施过程中，需要对大量的设备进行配置，以及工程结束时对大量设备进行配置备份。因此想做一个批处理工具自动telnet。
目前，结合百度搜索的结果，已经完成了以下功能：、
1、通过bat文件自动生成vbs文件
2、运行vbs文件以后，自动telnet设备，并输入准备好的命令。可以配置，也可以备份配置。

代码如下：
1、bat文件的代码：

@del .\temp.vbs 
@echo on error resume next >>.\temp.vbs 
@echo dim WshShell>>.\temp.vbs 
@echo Set WshShell = WScript.CreateObject("WScript.Shell")>>.\temp.vbs 
@echo WshShell.run"cmd">>.\temp.vbs 
@echo WshShell.AppActivate".\windows\system32\cmd.exe">>.\temp.vbs 
@echo WScript.Sleep 200>>.\temp.vbs 
@echo WshShell.SendKeys"telnet 192.168.1.2">>.\temp.vbs 
@echo WshShell.SendKeys"{ENTER}">>.\temp.vbs 
@echo WScript.Sleep 100>>.\temp.vbs 
@echo WshShell.AppActivate"telnet.exe ">>.\temp.vbs 
@echo WScript.Sleep 1000>>.\temp.vbs 
for /f "tokens=1 delims=" %%a in ('type .\input.txt') do (@echo WshShell.SendKeys"%%a" >>.\temp.vbs)&(@echo WshShell.SendKeys"{ENTER}">>.\temp.vbs)&(@echo WScript.Sleep 1000>>.\temp.vbs)
@call .\temp.vbs>>.\temp1.txt
复制代码

2、生成的vbs的代码：

on error resume next  
dim WshShell 
Set WshShell = WScript.CreateObject("WScript.Shell") 
WshShell.run"cmd" 
WshShell.AppActivate".\windows\system32\cmd.exe" 
WScript.Sleep 200 
WshShell.SendKeys"telnet 192.168.1.2" 
WshShell.SendKeys"{ENTER}" 
WScript.Sleep 100 
WshShell.AppActivate"telnet.exe " 
WScript.Sleep 1000 
WshShell.SendKeys"cisco" 
WshShell.SendKeys"{ENTER}"
WScript.Sleep 1000
WshShell.SendKeys"en" 
WshShell.SendKeys"{ENTER}"
WScript.Sleep 1000
WshShell.SendKeys"cisco" 
WshShell.SendKeys"{ENTER}"
WScript.Sleep 1000
WshShell.SendKeys"show ip int br" 
WshShell.SendKeys"{ENTER}"
WScript.Sleep 1000
WshShell.SendKeys"conf t" 
WshShell.SendKeys"{ENTER}"
WScript.Sleep 1000
WshShell.SendKeys"exit" 
WshShell.SendKeys"{ENTER}"
WScript.Sleep 1000
WshShell.SendKeys"exit" 
WshShell.SendKeys"{ENTER}"
WScript.Sleep 1000
复制代码

3、我测试用的txt文本

cisco
en
cisco
show ip int br
conf t
exit
exit
复制代码

在使用时，只需要将txt文本拖动到bat文件的图标上即可。



遗留问题：
1、生成的vbs代码中，一个命令输出完以后无法根据网络设备返回的命令结果进行下一步配置，而是通过sleep的等待时间来进行下一步配置。这样对于某些需要执行很久的命令就不兼容。最好能有类似WaitForString或者Experts 之类的方法，等待返回结果后再输入下一个命令。
2、现有的vbs代码，无法记录整个批处理的执行过程。只能在结束后，通过tftp把配置文件考下来比对。不方便，也不放心。


希望大家能够帮忙解决。

[ 本帖最后由 htnet11 于 2009-4-21 18:08 编辑 ]

htnet11

没人么？自己顶一下？

Batcher

本版规则
1、求代码、寻求代码解释、探讨代码得失的帖子均可发在本版块，其余话题禁止在本版讨论；
2、求助时，务必在顶楼一次性把问题交代清楚；若文字难以表述，请配图说明，或是上传附件；但是，一切操作应从节约论坛资源的角度出发，能文字说明清楚的就无需再发图片，小图能说明问题的尽量不截全图，在不影响效果的前提下尽量压缩图片及附件；
3、所发代码若不止一行，请务必用code标记把代码部分首尾括起来，以便他人复制；

Q: 如何用code把代码扩起来？
A: http://bbs.bathome.net/thread-404-1-1.html

htnet11

啊，谢谢哦，我改了。这样应该没错了吧

htnet11

同志们帮帮忙啊，这个问题我想了很久了。解答出来也是造福大家啊

htnet11

看来这个问题是真搞不定了，
我后来从网上找了一个telnet程序 该程序提供了一个输入文件，和一个输出文件。我自己编制了一个自动按照要求语法生成输入文件的脚本。目前使用的挺好，如果谁想看看可以发纸条给我。

基本算是实现了不用sleep，而是等待屏幕返回结果后再输入下一跳，在一个星期的使用中没有出过问题。

everest79

vbs有个exec方法，可以得到命令行窗口的输入与输出，你可以使用这个方法启动然后得到返回信息来判段是否执行下一步

Batcher

你直接贴出来给大家分享一下不是更好吗？
^_^

everest79

我是知道这个实现方法，但没有具体应用过，所以也没代码
你可以查下wsh的wshscriptexec对象
此对象由wsh下的exec方法访问

在子命令外壳程序中运行应用程序，提供对 StdIn/StdOut/StdErr 流的访问
复制代码

具体的输入输出访问是其中三个属性
StdOut 属性 | StdIn 属性 | StdErr 属性

Dim WshShell, oExec, input
Set WshShell = CreateObject("WScript.Shell")
Set oExec    = WshShell.Exec("test.bat")
input = ""

Do While True

     If Not oExec.StdOut.AtEndOfStream Then
          input = input & oExec.StdOut.Read(1)
          If InStr(input, "Press any key") <> 0 Then Exit Do
     End If
     WScript.Sleep 100
Loop

oExec.StdIn.Write VbCrLf

Do While oExec.Status <> 1
     WScript.Sleep 100
Loop
复制代码

zqz0012005

telnet似乎不是标准输出，exec的StdIn/StdOut得不到数据。
我上次在群里说过，可能大家没注意，现在还没找到解决办法。
各位有时间研究一下。
runas的输出也有点古怪（试试runas /? >a.txt），但exec的StdIn/StdOut可以访问。

everest79

先启动cmd，然后再加载telnet试试

zqz0012005

也试过，不行。

peijunjie2000

这么多年来，楼主的问题解决了吗，我也需要这个功能

ttskying

这么多年了，求楼主的实现方法，我有几百台这样的设备需要配置。这是要被弄死的节奏