VB列出本机当前所有COM口

求助 VB列出本机当前所有COM口

用VB怎么读取当前的所有COM口（就是在设备管理器里看到的所有端口），然后放到下拉列表框里，

比如

COM1
COM2
COM3
COM4
COM5
COM6
...

请大侠们帮帮忙，先谢过！

[解决办法]

VB code

Option Explicit'添加一个按钮Command1和一个MSComm控件：mscPPrivate Sub Command1_Click()    Dim intP As IntegerOn Error GoTo errSub    For intP = 1 To 256        mscP.CommPort = intP        mscP.PortOpen = True           '这是关键语句，当执行打开不存在的串口时会发生错误，跳出循环        Debug.Print "COM" & CStr(intP)        mscP.PortOpen = False    Next intPerrSub:    End Sub
[解决办法]
VB code
'引用 MicroSoft WMI Scripting V1.2 LibraryFor Each s In GetObject("Winmgmts:").InstancesOf("Win32_SerialPort")    ListBox.AddItem s.DeviceIDNext s
[解决办法]
VB code
'引用 MicroSoft WMI Scripting V1.2 LibraryFor Each s In GetObject("Winmgmts:").InstancesOf("Win32_SerialPortConfiguration")    Debug.Print s.Name & IIf(s.IsBusy, " 忙", " 闲")Next s
[解决办法]
HKEY_LOCAL_MACHINE\HARDWARE\DEVICEMAP\SERIALCOMM

下会有类似 \Device\Serial0 的键名，读取其键值，如 COM1。