ＣＯＭポートに何がつながっているか知るには？ (ID:111738)

名前

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

本文 USBに挿したRS-232C変換アダプタに割り当てられたCOMポート と言うことであれば・・・ Dim Serial As SWbemObject Dim SerialSet As SWbemObjectSet Dim Locator As SWbemLocator Dim Service As SWbemServices Set Locator = New WbemScripting.SWbemLocator Set Service = Locator.ConnectServer Set SerialSet = Service.ExecQuery("Select * From Win32_SerialPort") For Each Serial In SerialSet Debug.Print Serial.Description Debug.Print Serial.DeviceID Debug.Print Serial.PNPDeviceID Next ※ 参照設定で、Microsoft WMI Scripting V1.x Library をチェックして下さい。 ＷＭＩ関係をインストールしていない場合は・・・ Dim Serial As Object Dim SerialSet As Object Dim objWMIService As Object Dim strComputer As String strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set SerialSet = objWMIService.ExecQuery("Select * from Win32_SerialPort") For Each Serial In SerialSet Debug.Print Serial.Description Debug.Print Serial.DeviceID Debug.Print Serial.PNPDeviceID Next で、情報は取れます。 ● ここで、Win32_SerialPort でヘルプ等から検索して頂きます と、中身の他の情報が解ります。 通常、マシンの設定変更をしていない場合、COM1・COM2は本体 なので、それ以降が、増設になります。 ただし、マシンやＯＳによっては、COM3・COM4が予約になって おり、増設が、COM5からの場合もあるのでご注意下さい。 ● 取得された情報からＵＳＢ経由でのアダプタであろうと、認識 するしかありませんが・・・ ご検討下さい。 以上。