Vba kgroups:“&sWorkgroups） 阿德罗 oRespDS.SetField（nRow，MSG\u USER\u QUERY\u RESP\u USERNAME，sRSUserName） oRespDS.SetField（nRow，MSG\u USER\u QUERY\u RESP\u LASTNAME，sRSLastName） oRespDS.SetField（nRow、MSG\u USER\u QUERY\u RESP\u FIRSTNAME、sRSFirstName） 如果不是IsNull（sRSEMail），则 oRespDS.SetField（nRow、MSG\u USER\u QUERY\u RESP\u EMAIL、sRSEmail） 如果结束 oRespDS.SetField（nRow、MSG\u USER\u QUERY\u RESP\u DN、sRSDN） oRespDS.SetField（nRow、MSG\u USER\u QUERY\u RESP\u APPLICATIONS、sApplications） oRespDS.SetField（nRow、MSG\u USER\u QUERY\u RESP\u WORKGROUPS、sWorkgroups） 如果Len（sSLPPrimary）>0，则 如果IsNull（sRSSLPPrimary），则 跟踪（“警告：&sSLPPrimary&“未填充值”） 其他的 oRespDS.SetField（nRow、MSG\u USER\u QUERY\u RESP\u SLPPRIMARY、sRSSLPPrimary） 如果结束 如果结束 如果Len（sSLPSecondary）>0，则 如果IsNull（sRSSLPSecondary），则 跟踪（“警告：&sSLPSecondary&“未填充值”） 其他的 oRespDS.SetField（nRow、MSG\u USER\u QUERY\u RESP\u SLPSECONDARY、sRSSLPSecondary） 如果结束 如果结束 如果Len（sExtension）>0，则 如果为空（sRSExtension），则 跟踪（“警告：&sExtension&“未填充值”） 其他的 oRespDS.SetField（nRow，MSG\u USER\u QUERY\u RESP\u EXTENSION，sRSExtension） 如果结束 如果结束 如果Len（sConfiggroup）>0，则 如果为空（sRSConfiggroup），则 跟踪（“警告：&sConfiggroup&“未填充值”） 其他的 oRespDS.SetField（nRow、MSG\u USER\u QUERY\u RESP\u CONFIGGROUPS、srsconfiggroups） 如果结束 如果结束 nRow=nRow+1 如果结束 oDSRS.MoveNext 环 “清理 出错时继续下一步 oDSP=无 oDSRS=无 错误转到0 端接头

用户和组的LDAP服务器、LDAP端口、用户名、密码和搜索库的变量都是通过应用程序输入的，到目前为止它还在工作

我遇到的错误是，一旦它达到1000个用户：

超出了此请求的大小限制

如果我删除了行

oDSRS.MoveNext

，它将给出一个“溢出”错误

---

我做了一些阅读，这是我能想到的最接近的限制。

LDAP管理限制平衡了Active Directory的操作能力和性能。这些限制防止特定操作对服务器性能产生不利影响。这些限制还使服务器能够抵御拒绝服务攻击

作为限制的一部分，有一个MaxPageSize设置，用于控制LDAP查询可返回的记录数。默认值为1000条记录，如果超过1000条，则会出现错误“此请求的大小限制已超出”

要解决此问题，请设置页面大小选项，该选项指示域控制器处理一定数量的记录，并在继续搜索之前将其返回给客户端

objCommand.Properties("Page Size") = 1000

其中objCommand是命令对象的名称

---

请参阅完整示例。

您可能需要进行多个查询。代码太多，无法浏览。哪个函数调用会发出错误消息？您是否检查了文档以查看是否存在已发布的限制？这与VBScript有何关系？您好，我为代码太长而道歉，但我只想明确我正在尝试的内容为了实现这一点，Sub-UserSynchQuery无法工作，我读取了objCommand.Properties（“Page Size”）=1000，但它给了我一个错误：“超出了此请求的大小限制。”然后我删除了oDSRS.MoveNext行，现在我得到了这个错误“Overflow”。嗨，我应用了bjCommand.Properties（“Page Size”）=1000此行前面的Dim sRoot'保存LDAP对象的根sRoot=“LDAP://”&sLDAPServer&“：”&sLDAPPort&”/“&SLDAPBASE但仍提示我一个错误此请求的大小限制在此行oDSRS.MoveNext Loop‘错误恢复时清除’下一次我看到了链接，您能告诉我该将行命令放在哪里吗。属性（“页面大小”）=1000？请提供完整的代码。上面给出的示例与搜索无关。另外，请参阅其他类似主题，例如，我可以为您提供代码吗？因为它有近1000行，我上传了原始的一行，每个人都不愿意说一点

objCommand.Properties("Page Size") = 1000