VB6でのWMI (ID:102393)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 このような特定の名前を持つデバイス一覧を表示させるプログラムを作ったのですがWINDOWSXPでは動作したのにWINDOWS2000では動作しませんでした。（オートメーションエラーとでます。） WINDOWS2000で動作させる方法はないでしょうか。 よろしくお願いします。 Private Sub Command2_Click() Dim PnPSet As SWbemObjectSet Dim PnP As SWbemObject Dim Locator As SWbemLocator Dim Service As SWbemServices Dim MesStr As String Dim Ret As String Ret = -1 Set Locator = New WbemScripting.SWbemLocator Set Service = Locator.ConnectServer Set PnPSet = Service.ExecQuery _ ("Select * From Win32_PnPentity " & _ "Where Description Like '%Intel%'") For Each PnP In PnPSet Ret = PnP.Name MsgBox Ret Next Set PnPSet = Nothing Set PnP = Nothing Set Locator = Nothing Set Service = Nothing End Sub