Question

您好我正在运行一个简单的VBscript程序，该程序将信号发送到由USB＆gt;串行转换器生成的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

我尝试过使用＆gt;将信息写入文本文件，但由于某种原因它忽略了脚本的那一部分......并且尝试通过.sendkeys发送命令也失败了.sendkeys不适用于windows8 cmd。

Answer 1

Run方法不允许您访问命令的输出。请改用Exec方法：

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

Answer 2

对我来说（在Win 10上），只有这样：

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

列出VB脚本或HTML中可用的COM端口

2 个答案: