PCIのデバイス名を取得するには？ (ID:113665)

名前

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

本文 #Vb5で使用できるかどうかは知りません。 #OSによっては使用できません。 strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_PnPEntity", , 48) For Each objItem In colItems Debug.Print objItem.Caption Next objItem 上記サンプルコードで、PnPデバイスの列挙ができますので、 これを応用してみてはどうでしょうか?