COM接続デバイスのポート番号特定方法について

解決済

質問者：pastrana
質問日時：2008/05/22 09:45
回答数：1件

自作COMポートデバイスと通信するソフトウェアをVB6.0で作成しています。COMポート番号の指定を、現状は、デバイスマネージャーでポート番号確認→ソフトウェアで設定、の流れで行っているのですが、これを自動で行う方法を探しています。デバイスマネージャーの、ポート（COMとLPT）以下の文字列の取得ができれば可能かと思うのですが、方法がわかりません。なにかよい方法はありませんでしょうか？

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (1件)

ベストアンサー優先
最新から表示
回答順に表示

No.1ベストアンサー

回答者： nda23
回答日時：2008/05/22 14:42

COMポートの個数と、デバイスIDだけならWMIで取得できます。

Dim Svc
Dim Obj
Dim Itm
Set Svc = GetObject("winmgmts:\\.\root\cimv2")
Set Obj = Svc.ExecQuery("SELECT * FROM Win32_SerialPort")
For Each Itm In Obj
　　Debug.Print Itm.DeviceID, Itm.Caption
Next
結果------
COM1　　通信ポート (COM1)

尚、LPTも必要なら、"Win32_SerialPort"を"Win32_ParallelPort"に代えて
同様の処理をしてください。