通过VBA检索AD中的用户 - ASP教程

VBA支持ADO，这也意味着我们可以在VBA中操作数据库，包括SQL Server、Access等。正因为如此，你 可以尝试着在Excel中编写一个VBA程序来将Excel作为一个用于数据同步的中间件，该中间件可以用来同 步应用程序与后台数据库中的数据，并在其中做一些处理。这是完全可以做到的！我在之前的一个项目中 就曾做过这样的例子，我们甚至通过Excel同步了SQL Server和Sharepoint List之间的数据（这个我会在 随后的一些中再做介绍）。

ADO的功能也很强大，我们可以在其中执行Windows脚本，经常使用的就是通过它来管理Windows Server的AD，如遍历AD中的账户，批量修改AD中的账户等，这已经没有什么好奇怪的了，你完全可以在 Windows上使用记事本编写一个vbs脚本，然后直接使用它来管理你服务器上的AD，当然，基于安全考虑， 这些都是需要适当的执行权限的。这些工作通过VBA也可以完成，并且在Excel中你会发觉有的时候很方便 ，如借用Excel现有的UI来展现所操作的数据；基于所查询的数据来生成图表；使用Excel提供的功能修改 数据；遍历和组织数据的方便性等等...

下面我给出一个示例。在新的Sheet中添加一个ActiveX Button，然后添加下面的代码。

Private　Sub CommandButton1_Click()
　　　 On　Error　Resume　Next

　　　 Const ADS_SCOPE_SUBTREE =　2

　　　 Set objConnection =　CreateObject ("ADODB.Connection")
　　　 Set objCommand =　CreateObject("ADODB.Command")
　　　 objConnection.Provider =　"ADsDSOObject"
　　　 objConnection.Open "Active Directory Provider"
　　　 Set objCommand.ActiveConnection = objConnection

　　　 objCommand.Properties("Page Size") =　1000
　　　 objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE

　　　 objCommand.CommandText = _
　　　　　　　 "SELECT Name FROM 'LDAP://dc=XXX,dc=com' WHERE objectCategory='user'"　'search all users from the domn XXX
　　　 Set objRecordSet = objCommand.Execute
　　　 objRecordSet.MoveFirst

　　　 Dim currCell As Range
　　　 Set currCell = Range("A1")

　　　 Do Until objRecordSet.EOF
　　　　　　　 currCell.Value = objRecordSet.fields("Name").Value
　 　　　　　　 Set currCell = currCell.Offset(1, 0)
　　　　　　　 objRecordSet.MoveNext
　　　 Loop
End Sub

（编辑：南通站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!