Asp classic ASP页面中的LDAP调用不再有效

我有一个经典的ASP页面，它向我们的域控制器发出LDAP调用，以查找登录用户的组成员身份。由于我们的网络管理员降级了两个旧的Windows Server 2003域控制器并升级了两个Windows Server 2008 R2服务器，该页面现在在

Set CurrentUser=GetObject（“LDAP://”&ADSysInfo.UserName）

（请参阅代码）处失败，错误为800704bc

Dim Strgroups

Const STAFF_GROUP = "cn=staff"
Const STUDENT_GROUP = "cn=student"

Set ADSysInfo = CreateObject("ADSystemInfo")
Set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName)

If IsArray(CurrentUser.MemberOf) Then
        strGroups = LCase(Join(CurrentUser.MemberOf))
Else
        strGroups = LCase(CurrentUser.MemberOf)
End If

---

感谢您的帮助。提前感谢。

我猜问题不在于代码，而在于新服务器（显然）

---

我不知道800704bc是什么错误，但请检查并查看ADSysInfo是否实际得到实例化。如果没有，则可能服务器上缺少模块或其他东西。

新服务器是否阻止未加密的绑定？如果是这样，那么这将是有意义的，因为您绑定为LDAP而不是LDAP或StartTLS

不知道为什么，但我需要打开服务器和DCs之间防火墙上的高端口（1024+）。一定是RPC的东西

我如何判断他们是否阻止了未加密的绑定？通常会出现错误13，响应中需要加密。