列出VBscript或HTML中可用的com端口

Question

嗨，我正在运行一个简单的VBscript程序，该程序将信号发送到USB串行转换器的com端口。每次插入此数字时，它都会更改，为了便于使用，我希望使用交互式窗口弹出可用的COM端口，而不是让用户查找并手动键入。

我想知道是否有一种方法可以使用VBscript或HTML代码获取可用的com端口，然后将其提供给ie窗口中的单选按钮选项。我已经看到了几个有关如何使用C＃进行获取的实例，但希望使用VBscript和HTML保留此代码。

现在，我正在使用devcon在CMD窗口中获取信息，但是我不知道如何将其移植回我的脚本。

Set objShell = wscript.CreateObject("Wscript.Shell")
strCommand = "elevate cmd /k c:/devcon listclass PORTS"
objShell.Run strcommand, 1, true

我尝试使用>将信息写入文本文件，但是由于某些原因它忽略了脚本的那部分...并且尝试通过.sendkeys发送命令也失败了。.sendkeys在Windows8 cmd中不起作用。

Answer 1

Run方法无法访问命令的输出。请使用Exec方法：

Exec

Answer 2

对我来说（在Win 10上，这仅适用：

Set sh = CreateObject("WScript.Shell")

Set devcon = sh.Exec("elevate cmd /k c:/devcon listclass PORTS")

Do While devcon.Status = 0
  WScript.Sleep 100
Loop

If devcon.ExitCode = 0 Then WScript.Echo devcon.StdOut.ReadAll