DOBON.NET DOBON.NETプログラミング掲示板過去ログ

Windows2000での使用

環境/言語:[環境(Windows2000) 使用言語(VB6.0)]
分類:[VB6以前]

度々すみません。
下記の参考ソフトから各COMポートをWindowsXpで抽出していました。
しかし、Windows2000では「全ポートの数」の箇所でオートメーションエラー
になりました。Windows2000ではオートメーションエラーを出なくする事は
できないのでしょうか。ご教示を宜しくお願い致します。


Private Sub Form_Load()
strComputer = "."
'WMIを呼び出す
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
'シリアルポートのクラスでかつ名前に「(COMxx)」と付いているものを抽出
Set SerialSet = objWMIService.ExecQuery("Select * from Win32_PNPEntity " & _
"Where (Name like '%(COM%)')")

'全ポートの数
intCnt = SerialSet.Count

'情報の取得
strComName = ""
For Each Serial In SerialSet
'デバイス名を取得
If strComName <> "" Then
strComName = strComName & vbCrLf
End If
strComName = strComName & Serial.Name
Next
End Sub
  • 題名: Re[1]: Windows2000での使用
  • 著者: aki
  • 日時: 2008/07/19 14:43:59
  • ID: 22469
  • この記事の返信元:
  • この記事への返信:
    • (なし)
  • ツリーを表示
Windows2000につきましてはcomポートを個々にオープンしながら
確認することにしました。効率はよくありませんが一応目的が得
れましたので解決とさせてもらいました。お世話になりました。
解決済み!

DOBON.NET | プログラミング道 | プログラミング掲示板