现有如下代码段：

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：依赖服务或组无法启动”。
该问题困扰许久，不知道如何解决，请大侠支招。谢谢！！

谢谢楼上，已经解决了，参照了如下步骤：
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