引用wmi
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_SerialPort",,48)
For Each objItem in colItems
msgbox "Binary: " & objItem.Binary
msgbox "Description: " & objItem.Description
msgbox "Device ID: " & objItem.DeviceID
Next