COMポートの名前取得について (ID:105538)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 現在、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 を用いていますが、今回の場合にはどのようにすれば、対応できるのでしょうか。よろしくお願いします。