使用可能なCOMポートを検索するには？

ひろ 2002-08-27 10:08:00 No: 104766

こんばんは。
以前、MSCommでCOMポートの検索の仕方を教えていただいたのですが、
先方から、選択できるポートが３つもでてくると迷う人がいるから、
絶対に使えるCOMポートを１つだけ表示できないか？と、
かなり困難なことを言われて困ってます。
ちなみに以前教えていただいた方法は以下のようになっています。
********************************************
On Error Resume Next

    For comname = 1 To 16
        MSComm1.CommPort = comname
        MSComm1.Settings = "9600,N,8,1"
        MSComm1.PortOpen = True
    If MSComm1.PortOpen = True Then
        List2.AddItem "COM" & comname & " = OK"
        comcnt = comname
    End If
        MSComm1.PortOpen = False
    Next
********************************************
上記にもありますが、これだとポートが多い人だと
３つとか４つ表示されてしまいます。
実現したいことは、ノートPCで横にカードつけて携帯で電話させる
ときに、そのポートをズバリ探したいのですが、
それはVBで可能でしょうか？APIとかWSHなどを使えば
できそうな気もするのですが、やり方がサッパリ分かりません。
どなたかご存知ないでしょうか？
よろしくお願いしますm(__)m

あんちゃん 2002-08-28 22:20:28 No: 104767

>VBで可能でしょうか？APIとかWSHなどを…
DDKを使用されるのはいかがでしょうか？
MicroSoftのHPやMSDNのCDから情報は得られます。

ひろ 2002-08-31 03:07:53 No: 104768

あんちゃんさん度々ありがとうございます。

DDKを調べてみましたが、とても難しそうですね・・・。
納期までに時間がもうないので、とりあえず今回は
そういった仕様ということで出します(^_^;)
次回はちゃんとDDKを調べておこうと思います。

ありがとうございましたm(__)m