错误0x80041002 代码80041002
发布网友
发布时间:2023-10-14 03:14
我来回答
共1个回答
热心网友
时间:2024-09-29 03:46
你用这个试试
strComputer = "."
Set wbemServices = Getobject("winmgmts:\\" & strComputer)
Set wbemObjectSet = wbemServices.InstancesOf("Win32_Process")
ps = 0
For Each w In wbemObjectSet
'这里改成caption
if w.caption = "BBSPic.exe" then ps = 1
Next
if ps = 0 then msgbox "no" else msgbox "yes"
0x80041002是对象为找到的错误,出现在第二行说明是GetObject出了问题,可是GetObject的参数是正确的,由此可知,是您系统中安装的WMI服务有问题。。。重新安装WMI或者重装系统也许可以解决。。