vb 求助 wmi 远程连接有时候会出现 Error # RPC 服务器不可用。

[jjoott]

远程连接的主机：
1.<dcomcnfg> 设置了administrator 权限
2.修改了注册表 forceguest = 0
第一次读取数据没有问题，再读取一次数据后就出现 RPC 服务器不可用，每读一次数据都等段时间，再读才有返回
想知道我问题出在哪了，WMI不应该是这个吧

Set lockAndThreads = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_PerfRawData_NETFramework_NETCLRLocksAndThreads  where Name='_Global_'") 
For Each objItem in lockAndThreads 
    Wscript.Echo "NumberofcurrentlogicalThreads: " & objItem.NumberofcurrentlogicalThreads
    Wscript.Echo "NumberofcurrentphysicalThreads: " & objItem.NumberofcurrentphysicalThreads
    Wscript.Echo "TotalNumberofContentions: " & objItem.TotalNumberofContentions
	Wscript.Echo "CurrentQueueLength: " & objItem.CurrentQueueLength
Next

Set memory = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_PerfRawData_NETFramework_NETCLRMemory where NAME='_Global_'") 
For Each objItem in memory 
    Wscript.Echo "NumberBytesinallHeaps: " & objItem.NumberBytesinallHeaps
    Wscript.Echo "PercentTimeinGC: " & objItem.PercentTimeinGC
Next

Set exceptions = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_PerfRawData_NETFramework_NETCLRExceptions where NAME='_Global_'") 
For Each objItem in exceptions 
    Wscript.Echo "NumberofExcepsThrown: " & objItem.NumberofExcepsThrown
Next

Set jit = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_PerfRawData_NETFramework_NETCLRJit where NAME='_Global_'") 
For Each objItem in jit 
    Wscript.Echo "PercentTimeinJit: " & objItem.PercentTimeinJit
Next

Set security = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_PerfRawData_NETFramework_NETCLRSecurity where NAME='_Global_'") 
For Each objItem in security 
    Wscript.Echo "TotalRuntimeChecks: " & objItem.TotalRuntimeChecks
Next

Set system = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_OperatingSystem") 
For Each objItem in system 
    Wscript.Echo "Caption: " & objItem.Caption
Next


WScript.Quit(0)