Option Explicit
 
'WMIにて使用する各種オブジェクトを定義・生成する。
Dim oClassSet
Dim oClass
Dim oLocator
Dim oService
Dim sMesStr
 
'ローカルコンピュータに接続する。
Set oLocator = WScript.CreateObject("WbemScripting.SWbemLocator")
Set oService = oLocator.ConnectServer
'クエリー条件をWQLにて指定する。
Set oClassSet = oService.ExecQuery("Select * From Win32_PnPEntity")
 
'コレクションを解析する。
For Each oClass In oClassSet
    If InStr(oClass.Caption, "ISDB") > 0 Then
        sMesStr = sMesStr & "名前：" & oClass.Caption & vbCrLf & _
        "デバイス状態：" & oClass.ConfigManagerErrorCode & vbCrLf & _
        "デバイスID：" & oClass.PNPDeviceID & vbCrLf
    End If
Next
 
MsgBox sMesStr
 
'使用した各種オブジェクトを後片付けする。
Set oClassSet = Nothing
Set oClass = Nothing
Set oService = Nothing
Set oLocator = Nothing
 

T3B0aW9uIEV4cGxpY2l0CgonV01J44Gr44Gm5L2/55So44GZ44KL5ZCE56iu44Kq44OW44K444Kn44Kv44OI44KS5a6a576p44O755Sf5oiQ44GZ44KL44CCCkRpbSBvQ2xhc3NTZXQKRGltIG9DbGFzcwpEaW0gb0xvY2F0b3IKRGltIG9TZXJ2aWNlCkRpbSBzTWVzU3RyCgon44Ot44O844Kr44Or44Kz44Oz44OU44Ol44O844K/44Gr5o6l57aa44GZ44KL44CCClNldCBvTG9jYXRvciA9IFdTY3JpcHQuQ3JlYXRlT2JqZWN0KCJXYmVtU2NyaXB0aW5nLlNXYmVtTG9jYXRvciIpClNldCBvU2VydmljZSA9IG9Mb2NhdG9yLkNvbm5lY3RTZXJ2ZXIKJ+OCr+OCqOODquODvOadoeS7tuOCkldRTOOBq+OBpuaMh+WumuOBmeOCi+OAggpTZXQgb0NsYXNzU2V0ID0gb1NlcnZpY2UuRXhlY1F1ZXJ5KCJTZWxlY3QgKiBGcm9tIFdpbjMyX1BuUEVudGl0eSIpCgon44Kz44Os44Kv44K344On44Oz44KS6Kej5p6Q44GZ44KL44CCCkZvciBFYWNoIG9DbGFzcyBJbiBvQ2xhc3NTZXQKICAgIElmIEluU3RyKG9DbGFzcy5DYXB0aW9uLCAiSVNEQiIpID4gMCBUaGVuCiAgICAgICAgc01lc1N0ciA9IHNNZXNTdHIgJiAi5ZCN5YmN77yaIiAmIG9DbGFzcy5DYXB0aW9uICYgdmJDckxmICYgXwogICAgICAgICLjg4fjg5DjgqTjgrnnirbmhYvvvJoiICYgb0NsYXNzLkNvbmZpZ01hbmFnZXJFcnJvckNvZGUgJiB2YkNyTGYgJiBfCiAgICAgICAgIuODh+ODkOOCpOOCuUlE77yaIiAmIG9DbGFzcy5QTlBEZXZpY2VJRCAmIHZiQ3JMZgogICAgRW5kIElmCk5leHQKCk1zZ0JveCBzTWVzU3RyCgon5L2/55So44GX44Gf5ZCE56iu44Kq44OW44K444Kn44Kv44OI44KS5b6M54mH5LuY44GR44GZ44KL44CCClNldCBvQ2xhc3NTZXQgPSBOb3RoaW5nClNldCBvQ2xhc3MgPSBOb3RoaW5nClNldCBvU2VydmljZSA9IE5vdGhpbmcKU2V0IG9Mb2NhdG9yID0gTm90aGluZwo=