从 vbs 脚本中 Ping 一个变量的值

Question

我正在尝试制作一个简单的脚本，该脚本将对作为参数获取的机器执行 ping 操作。

VBScript执行时，好像没有把变量识别为变量，只是把它当作字符串信息，打印如下错误信息；

Ping request could not find host Var2. Please check the name and try again.

脚本如下：

Dim Var2

Var2 = inputbox("What is your B number?")
Wscript.Echo Var2

Set objShell = CreateObject("WScript.Shell")
objShell.Run "%COMSPEC% /k ping Var2"

通过在网络上搜索，我得到了更长的脚本解决方案，我认为这些解决方案应该不那么复杂。感谢任何帮助。

谢谢。

Answer 1

您正在将 Var2 作为字符串传递给命令。要将 Var2 的内容添加到命令中，您必须连接最后一行中的字符串：

objShell.Run "%COMSPEC% /k ping " & Var2

从 vbs 脚本中 Ping 一个变量的值

Ping from vbs script the value of a variable

variables

vbscript

ping