运行VBscript提示0x8004100C错误，部分计算机提示此错误

Question

Dim i,j,k,items(100),threshold(100),smartdata(10,11),t
Dim Limit(10),Normal(10),Bad(10),Data(10),getinfo(10),status(10)
Dim strComputer,objWMIService,colItems,objItem

strComputer = "." 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\WMI")

Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM MSStorageDriver_FailurePredictThresholds",,48) 
For Each objItem in colItems 'error line
    j=0
    For i=2 To UBound(objItem.VendorSpecific,1) Step 12
        items(j) = objItem.VendorSpecific(i)
        threshold(j) = objItem.VendorSpecific(i+1)
        j=j+1
    Next
Next

错误代码0x8004100C

WBEM_E_NOT_SUPPORTED
    2147749900 (0x8004100C)
    Feature or operation is not supported.

上述代码我在win7/win8/win10都运行了
在win7 ok
在win8 失败，提示上述错误
在win10 部分成功了，部分失败了，提示错误如上，安装镜像都是一样的

Answer 1

检查BIOS SMART是否开启支持，将其改为enable.
虚拟机和没SMART选项的都不支持

Answer 2

用 on error 语句处理异常