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

Windows2000につきましてはcomポートを個々にオープンしながら
確認することにしました。効率はよくありませんが一応目的が得
れましたので解決とさせてもらいました。お世話になりました。