一键显示可用串口

yoya0303

运行后显示当前可以使用的串口和设备名

方便插上USB转串口后不知道生成的串口号

避免反复启动任设备理器查看

yoya0303

代码,可直接复制进文本文件,然后改扩展名为 *.vbs  双击即可运行

Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly       = &h20

On Error Resume Next

If WScript.Arguments.UnNamed.Count = 1 Then
        strComputer = WScript.Arguments.UnNamed(1)
Else
        strComputer = "."
End If

Set objWMIService = GetObject( "winmgmts://" & strComputer & "/root/CIMV2" )
Set colInstances = objWMIService.ExecQuery( "SELECT * FROM Win32_PnPEntity WHERE  ClassGuid='{4d36e978-e325-11ce-bfc1-08002be10318}'", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly )

For Each objInstance In colInstances
        stri=stri+objInstance.Caption + vbcrlf       
Next
msgbox stri

箫天

试了，非常好用。
貌似不能自动刷新。
可再完善一下，能自动刷新或者加个刷新按钮。

BG2UKY

不错不错，很好用！

yoya0303

箫天 发表于 2013-3-3 14:30
试了，非常好用。
貌似不能自动刷新。
可再完善一下，能自动刷新或者加个刷新按钮。 ...

老大 自动刷新需要常驻进程下钩子  。。。

test

抱歉，只有特定用户可以下载本站附件

社建电子

手机下载了，明天放电脑上试试！

九天

抱歉，只有特定用户可以下载本站附件

阿四

解决大问题了