现有如下代码段：

Local oWMI As Object,oLocal As Object,oHARDWARE As Object,object1 As Object
oWMI=Createobject("WbemScripting.SWbemLocator")
oLocal=oWMI.ConnectServer(".", "root\cimv2")
oHARDWARE=oLocal.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration Where IPEnabled=1")
For Each object1 In oHARDWARE
LcIP=object1.Properties_('IPAddress').Value
Exit
Endfor
?'IP地址：',LcIP

在执行第三行 “oLocal=oWMI.ConnectServer(".", "root\cimv2") ”是出错，错误提示内容为“OLE IDispatch 异常代码0 出自 SWbemlocator：依赖服务或组无法启动”。
该问题困扰许久，不知道如何解决，请大侠支招。谢谢！！

代码我这运行无异常

试一下这样：
oIPs = GETOBJECT("winmgmts:")
oIPs = oIPs.InstancesOf("Win32_NetworkAdapterConfiguration")
FOR EACH oIP IN oIPs
    IF oIP.IPEnabled
        FOR EACH sIP IN oIP.IPAddress
            ? sIP
        ENDFOR
    ENDIF
ENDFOR

IPAddress属性类型是数组，如果只想取第一个IP，可直接 sIP = oIP.IPAddress[0]

[ 本帖最后由 吹水佬 于 2015-2-28 08:47 编辑 ]

SWbemlocator 依赖 Wbemdisp.dll 文件提供的服务，检查系统有无 Wbemdisp.dll 和注册。

谢谢楼上，已经解决了，参照了如下步骤：
1.在命令行键入以下命令：
cd /d %windir%\system32\wbem
rename Repository Rep_bak
2.建一个批处理文件如下：
Mofcomp C:\WINDOWS\system32\WBEM\cimwin32.mof
Mofcomp C:\WINDOWS\system32\WBEM\cimwin32.mfl
Mofcomp C:\WINDOWS\system32\WBEM\system.mof
Mofcomp C:\WINDOWS\system32\WBEM\wmipcima.mof
Mofcomp C:\WINDOWS\system32\WBEM\wmipcima.mfl
3。运行批处理文件。
4.运行下面内容：

cd /d %windir%\system32\wbem
for %i in (*.mof,*.mfl) do Mofcomp %i
5.重新注册 WMI 组件，在命令提示行运行以下命令：
cd /d %windir%\system32\wbem
for %i in (*.dll) do RegSvr32 -s %i
for %i in (*.exe) do %i /RegServer

NB 试下