vbscript - 如何使用 VB 脚本以静默模式运行 telnet？

Question

我是 VB 脚本编写新手。实际上我想运行应用程序服务器的一些telnet命令。

我正在我的客户端 PC 上运行该 VB 脚本(操作系统:Windows server 2003)。该脚本运行良好。

现在的问题是，当 telnet 通过 VB 脚本运行时，我无法执行任何其他操作

电脑。我希望该脚本在后端运行。即处于静音模式。

以下是我正在使用的 VB 代码。

set oShell = CreateObject("WScript.Shell")
oShell.run"cmd.exe"
WScript.Sleep 500
oShell.SendKeys"telnet x.x.x.x -f roamingsubscriber.txt"
oShell.SendKeys("{Enter}")
WScript.Sleep 1500
oShell.SendKeys"username"
oShell.SendKeys("{Enter}")
WScript.Sleep 500
oShell.SendKeys"password"
oShell.SendKeys("{Enter}")
WScript.Sleep 500
oShell.SendKeys"command"
oShell.SendKeys("{Enter}")
WScript.Sleep 1000
oShell.SendKeys"command"
oShell.SendKeys("{Enter}")
WScript.Sleep 1000
...

Answer 1

请参阅此网站 http://www.dimac.net/default3.asp?M=FreeDownloads/Menu.asp&P=FreeDownloads/FreeDownloadsstart.asp 以获得执行此类操作的免费 ActiveX 组件事物。这是API

http://www.dimac.net/products/freeproducts/w3sockets/reference/refstart.htm

这里是一些示例代码

Set oSocket = WScript.CreateObject("Socket.TCP")
oSocket.DoTelnetemulation = True
osocket.Timeout = 1000
oSocket.Host = "host.somewhere.com" & ":" & 80
oSocket.Open
oSocket.SendLine("GET /" & vbCrLf)
data = oSocket.GetLine
If (Instr(data, "yourtest")) then
    ' doSomething
End if
oSocket.Close