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

信仰者
  • 272
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 部分成功了,部分失败了,提示错误如上,安装镜像都是一样的

回复
阅读 2.4k
2 个回答

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

用 on error 语句处理异常

撰写回答
你尚未登录,登录后可以
  • 和开发者交流问题的细节
  • 关注并接收问题和回答的更新提醒
  • 参与内容的编辑和改进,让解决方法与时俱进
宣传栏