-
别离憔悴
发布于 2011-05-14 15:09
-
收藏
复制代码 代码如下: 'Handle Errors On Error Resume Next 'Get the provider object Set prov = GetObject("WinNT:") 'Examine the available domains the provider can reach For each dom in prov 'Examine the objects in the domain and check..