COMポートの名前取得について

マルコ 2002-11-28 02:57:59 No: 105538

現在、HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Enum\ACPI 配下のレジストリの情報を取得するのには、以下のプログラムで取得できることは判っています。

Option Explicit
Dim objPort
Dim wshShell
Set wshShell = CreateObject("WScript.Shell")
For Each objPort In GetObject("winmgmts:").InstancesOf("Win32_SerialPort")
MsgBox "DeviceDesc : " & vbTab & wshShell.RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Enum\" & CStr(objPort.PNPDeviceID) & "\DeviceDesc")
Next
Set wshShell = Nothing

しかしながら、実際に取得したい情報は、
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Enum\USB\VID_0000&PID_0E01\123456 配下の DeviceDesc です。
上記プログラムでは、objPort.PNPDeviceID を用いていますが、今回の場合にはどのようにすれば、対応できるのでしょうか。よろしくお願いします。