取出Win2000的用户和组

感谢您使用微软产品。您可以使用ADSI方式得到win2000 server上的所有的用户和组信息。
您可以设置IADsContainer接口的Filter属性分别获得用户集合和组集合，再通过IADsUser接口获得每个用户的信息，通过IADsGroup获得每个组的信息，再利用IADsGroup的members属性查询到所有属于该组的用户信息。
如下例：Private Sub Command1_Click()
    sComputer = "MyComputer"
     Set cont1 = GetObject("WinNT://" & sComputer & ",computer")
    'We want only users.
    cont1.Filter = Array("user")
    Debug.Print "************User list***************"
    For Each usr In cont1
      Debug.Print usr.Name
    Next
    
    Set cont2 = GetObject("WinNT://" & sComputer & ",computer")
    'We want only groups.
    cont2.Filter = Array("Group")
    Debug.Print "***********group info***************"
    For Each grp In cont2
      Debug.Print grp.Name
      Set memberList = grp.members
        For Each member In memberList
           Debug.Print "   "; member.Name & "(" & member.Class & ")"
        Next
    Next
End Sub详细信息请参考：
IADsContainer
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/netdir/adsi/iadscontainer.asp
Enumerating Users
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/netdir/ad/enumerating_users.asp
IADsUser
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/netdir/adsi/iadsuser.asp
IADsGroup
http://msdn.microsoft.com/library/en-us/netdir/adsi/iadsgroup.asp
以下链接的样例程序可供参考：
Example Code for Enumerating Users on a Member Server or Windows 2000 Professional
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/netdir/ad/example_code_for_enumerating_users_on_a_member_server_or_windows_2000_professional.asp-  微软全球技术中心 VB技术支持本贴子以“现状”提供且没有任何担保，同时也没有授予任何权利。具体事项可参见使用条款
(http://support.microsoft.com/directory/worldwide/zh-cn/community/terms_chs.asp)。
为了为您创建更好的讨论环境，请参加我们的用户满意度调查
(http://support.microsoft.com/directory/worldwide/zh-cn/community/survey.asp?key=(S,49854782))。