遇到用VB操作win2000的Active Directory的问题，请高手指教。

Question

通过iADs就可以进行操作了。
在工程中引用Active DS Type Library

Answer 1

通过WinNT:// 或 LDAP://路径进行访问。要看你具体要做什么操作了

Answer 2

下面是一个列出域用户的例子
其中DC=Domain,DC=COM是你的域，也就是通常用的Domain.com,在这里需要转换成LDAP的形式。Dim objContainer As IADsContainer
Dim objUser As IADsUser
Dim strServerFullName, strDomainName As StringSet objContainer = GetObject("LDAP://Server.Domain.Com/CN=Users,DC=Domain,DC=COM)
For Each Child In objContainer
    On Error Resume Next
    Set objUser = Child
    If Err.Number = 0 Then
       List1.AddItem Right(Child.Name, Len(Child.Name) - 3)
    End If
Next

Answer 3

我这里的域是CEC-NT
但是
Set objContainer = GetObject("LDAP://Server.CEC-NT.Com/CN=Users,DC=CEC-NT,DC=COM")
这句出现
实时错误'-2147016646(8007203a)'；
自动化错误。我要实现的功能是：当客户端访问网页时，取得该客户端登录域的用户名，再从数据库中查找
该用户名的真名，用于bbs的实名制。

Answer 4

域控制器叫什么名字？
如果只有一台域控制器，也可以这样写，前提是DNS与Wins必须有效Set objContainer = GetObject("LDAP://CN=Users,DC=CEC-NT,DC=COM")另外，你是否引用了Active DS Type Library?