VBScript中的WMI失败

我们目前有一个客户的安装程序有问题。安装程序运行一点VBScript来检索其当前IP地址。出于某种原因，在这台客户计算机上，它返回以下错误：

脚本错误-2146827859。Microsoft VBScript运行时错误：ActiveX组件无法创建对象：“objWMIService.ExecQuery”

下面是我们正在运行的VBScript：

Set objWMIService = GetObject("winmgmts:\\localhost\root\cimv2")
Set colAdapters = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled = True")

For each objAdapter in colAdapters
    If Not IsNull(objAdapter.IPAddress) Then
        For i = LBound(objAdapter.IPAddress) To UBound(objAdapter.IPAddress)
            if objAdapter.IPAddress(i)<>"0.0.0.0" then 
                if instr(objAdapter.IPAddress(i),":") > 0 Then
                    'This is an IPv6 Address.
                Else
                    session.property("IPADDRESS") = objAdapter.IPAddress(i) 
                end if
            end if
        Next
     end if
next

Set objWMIService=GetObject（“winmgmts:\\localhost\root\cimv2”）
设置colAdapters=objWMIService.ExecQuery（“从Win32\u NetworkAdapter配置中选择*，其中IPEnabled=True”）
对于ColjaAdapter中的每个对象适配器
如果不是IsNull（objAdapter.IPAddress），则
对于i=LBound（objAdapter.IPAddress）到UBound（objAdapter.IPAddress）
如果objAdapter.IPAddress（i）“0.0.0.0”，则
如果instr（objAdapter.IPAddress（i），“：”）大于0，则
'这是一个IPv6地址。
其他的
session.property（“IPADDRESS”）=objAdapter.IPADDRESS（i）
如果结束
如果结束
下一个
如果结束
下一个

有人知道这是什么原因吗

---

提前感谢。

您的客户运行的是什么版本的Windows？可能是所有WMI类都没有注册，或者您使用的帐户没有提升访问权限（即以管理员身份运行），请重试。@QuickNull枚举适配器应能对非管理员用户起作用。