在多个 shell 窗口中执行多个 telnet 连接的命令答案

【问题标题】：Command in multiple shell windows for multiiple telnet connection在多个 shell 窗口中执行多个 telnet 连接的命令
【发布时间】：2016-11-12 17:50:39
【问题描述】：

我已经搜索了很多没有任何结果，所以我问你！我想打开多个windows shell，然后加载不同的telnet连接，将相同的commad发送到不同的计算机。我需要同时完成。所以，我错误地尝试创建不同的“WScript.Shell”对象并在它们上使用发送键。没有任何结果。我该怎么做？

Option Explicit
Dim tll1, tll2, tll3
set tll1=CreateObject("WScript.Shell")
set tll2=CreateObject("WScript.Shell")
set tll3=CreateObject("WScript.Shell")

tll1.run "cmd.exe"
tll2.run "cmd.exe"
tll3.run "cmd.exe"
WScript.Sleep 1000

tll1.SendKeys "telnet 192.168.114.254"
tll1.SendKeys ("{Enter}")
tll2.SendKeys "telnet 192.168.114.254"
tll2.SendKeys ("{Enter}")
tll3.SendKeys "telnet 192.168.114.254"
tll3.SendKeys ("{Enter}")
...

结果是在最后一个 shell 窗口中键入的 wole 命令。谢谢！

【问题讨论】：

IP地址是一样的，因为我用的是单机初试。
您只需要创建一个“Wscript.Shell”。使用应用激活。在 WScript.Shell 的帮助中查找它。
PS 您需要直接使用 Telnet（而不是先启动 cmd，然后再启动 telnet），并且每个窗口都有不同的 IP 地址，因此每个窗口都有不同的窗口标题。

标签： windows shell cmd telnet wsh

【解决方案1】：

谢谢面条。我已经做到了！唯一需要提醒的是在 AppActivate 和命令之间设置一个睡眠。没有对我不起作用，这里是最终代码

Option Explicit

Dim wshShell
set wshShell=CreateObject("WScript.Shell")
wshShell.run "telnet.exe"
WScript.Sleep 1000
wshShell.SendKeys "o 192.168.114.251"
wshShell.SendKeys ("{Enter}")
WScript.Sleep 1000
wshShell.SendKeys "admin"
wshShell.SendKeys ("{Enter}")
WScript.Sleep 1000
wshShell.SendKeys ""
wshShell.SendKeys ("{Enter}")
WScript.Sleep 1000
wshShell.SendKeys "CMD_PC1"

wshShell.run "telnet.exe"
WScript.Sleep 1000
wshShell.SendKeys "o 192.168.114.252"
wshShell.SendKeys ("{Enter}")
WScript.Sleep 1000
wshShell.SendKeys "admin"
wshShell.SendKeys ("{Enter}")
WScript.Sleep 1000
wshShell.SendKeys ""
wshShell.SendKeys ("{Enter}")
WScript.Sleep 1000
wshShell.SendKeys "CMD_PC2"

wshShell.run "telnet.exe"
WScript.Sleep 1000
wshShell.SendKeys "o 192.168.114.254"
wshShell.SendKeys ("{Enter}")
WScript.Sleep 1000
wshShell.SendKeys "userPC3"
wshShell.SendKeys ("{Enter}")
WScript.Sleep 1000
wshShell.SendKeys "PWD_PC3"
wshShell.SendKeys ("{Enter}")
WScript.Sleep 1000
wshShell.SendKeys "CMD_PC3"
WScript.Sleep 1000

wshShell.AppActivate "Telnet 192.168.114.251"
WScript.Sleep 3
wshShell.SendKeys ("{Enter}")
wshShell.AppActivate "Telnet 192.168.114.252"
WScript.Sleep 3
wshShell.SendKeys ("{Enter}")
wshShell.AppActivate "Telnet 192.168.114.254"
WScript.Sleep 3
wshShell.SendKeys ("{Enter}")
WScript.Sleep 1000
Wscript.Quit

【讨论】：