vbs脚本操作AD

最新推荐文章于 2025-05-19 19:21:56 发布

原创最新推荐文章于 2025-05-19 19:21:56 发布 · 1.1k 阅读

1 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#脚本 #filter #user #存储

收录于

这篇博客展示了如何利用VBScript连接Active Directory（AD）并执行查询。脚本设置为从OU=1_UserAccount,dc=cu,dc=local获取所有用户对象，通过循环遍历结果集来获取并打印用户的distinguishedName属性值。" 113538995,10543799,北斗RNSS/RDSS手持终端设计与性能解析,"['嵌入式开发', '北斗导航', '软件设计', '硬件工程', '无线通信']

' 以下是连接ad并进行查询的脚本

Const ADS_SCOPE_SUBTREE = 4

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") = 5000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
'objCommand.Properties("Filter") = "User"

objCommand.CommandText = _
"SELECT cn,pager,distinguishedName FROM 'LDAP://ou=1_UserAccount,dc=cu,dc=local' where objectClass = 'user'"
Set objRecordSet = objCommand.Execute

objRecordSet.MoveFirst
Do Until objRecordSet.EOF

'此处添加运行存储过程代码

   'ad的用户属性值均通过此方法获得

    strDN = objRecordSet.Fields("distinguishedName").Value
    wscript.echo strDN
'


    objRecordSet.MoveNext
Loop