Set wmiObjSet = GetObject _
("winmgmts:{impersonationLevel=impersonate}"). _
InstancesOf("Win32_SerialPort")
For Each obj In wmiObjSet
MsgBox obj.Caption
Next
>解決方法
>マイクロソフトでは、現在この問題を修正する修正プログラムを提供中ですが、
>修正プログラムはこの資料に記載された問題のみを修正することを目的としており、
>障害があったコンピュータに対してのみ適用することを推奨します。この修正プログラムは、
>今後さらにテストを受ける場合があります。この問題で深刻な影響を受けていない場合は、
>この修正プログラムが含まれる次の Windows XP Service Pack がリリースされるまで
>待つことを推奨します。
:
中略
:
>状況
>マイクロソフトでは、この問題をこの資料の冒頭に記載したマイクロソフト製品の問題として認識しています。
>この問題は、Windows XP Service Pack 1 で修正済みです。