批量导出AD组内的成员

网上搜来的代码，自己记录下来方面以后使用

把下面代码存为*.vbs，把红字体部分改为你的OU和DC即可。

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

'LDAP指定对象的来源, objectclass=group指定类型，Name, Mail都是用户帐号对象的属性

objCommand.CommandText = _

"Select Name, mail, distinguishedName from 'LDAP://OU=Domain Local Groups,OU=Groups,dc=test,dc=com' " _

& "Where objectClass='group'"

objCommand.Properties("Page Size") = 1000

objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE

Set objRecordSet = objCommand.Execute

objRecordSet.MoveFirst

'输出文件的名字叫group.csv

Set objFS = CreateObject("Scripting.FileSystemObject")

Set objNewFile = objFS.CreateTextFile("group.csv")

objNewFile.WriteLine "Group Name, Group Member, Mail"

Do Until objRecordSet.EOF

objNewFile.WriteLine

'输出组的名称

objNewFile.WriteLine objRecordSet.Fields("Name").Value & " ," & " ," &_

objRecordSet.Fields("mail").Value

'引用组的名称

Set objGroup = GetObject("LDAP://" & objRecordSet.Fields("distinguishedName").Value)

'列出组成员

For each objMember in objGroup.Members

objNewFile.WriteLine " ," & objMember.Name & " ," & objMember.description

objRecordSet.MoveNext

Loop

转载于:https://blog.51cto.com/2686716/1696634

批量导出AD组内的成员相关推荐

PowerShell实战5: 批量增加AD组成员
功能:批量把AAA分公司的员工加入BBB分公司的员工安全组 – BBBemployees. 使用:如实战4,把AAA员工的名单导出至c:\name.txt 源码: cls function Add_G ...
(AS3)组内成员之间的互斥管理
这里想讲的有点类似于Radio Button那样,即一组Radio Button中,始终只会有一个按钮处于选中状态. 更常见的,像多标签浏览器,同一时间只会有一个标签处于打开状态. 游戏中,当鼠标选中 ...
ad证书服务器在ADgroup,ACS 5.x ：根据AD组成员配置示例和Authorization命令的TACACS+认证...
本文提供配置根据用户的AD组成员和Authorization命令示例的TACACS+认证思科安全访问控制系统(ACS) 5.x和以后.ACS使用Microsoft Active Directory ( ...
导出ad 计算机用户,批量导入导出域(活动目录AD)用户账户
在活动目录的管理中会遇到对用户进行批量操作的问题,例如,在升级操作系统时或在刚刚使用活动目录时,管理人员需要批量的添加或删除用户帐户. 批量导入/导出域用户可以使用Windows服务器中的csvde. ...
批量移动AD用户到指定OU
作为域管理员,在日常工作中使用ADUC(AD用户和计算机)工具在图形界面中进行账号管理操作可谓是家常便饭了.然而一个个增加.移动.删除用户,这样操作有时真的够烦,当管理大批量的账户时,重复操作浪费的时 ...
SPL 简化 SQL 案例详解：组内运算
在开发数据库应用时,经常在分组后需要对组内数据进行计算,例如:列出近3年每年都发表过论文的学生名单(按论文发表年分组后列出每年都出现的学生清单),统计全部参加了历次培训的员工(按培训分组后统计每次都有 ...
Office365跨订阅迁移邮箱-批量导出用户PST文件
之前我有文章提到怎么通过PST去实现跨林的Exchange数据迁移,那么我们在实际工作中会遇到客户使用Office365,由于某种原因公司要剥离或者要收购其他公司,涉及到要做Office365订阅迁移 ...
低代码学习教程：通讯录支持批量导出导入
批量导入成员批量导入成员前需下载表样,按表样进行员工通讯录填写,填写完成后保存Excel文件,然后点击[选择文件]进行导入. 批量导入样式: 批量导入效果: 注意:Excel文件导入后,会通过登记的 ...
Azure实践之如何批量为资源组虚拟机创建alert
通过上一篇的简介,相信各位对于简单的创建alert,以及Azure monitor使用以及大概有个印象了.基础的使用总是非常简单的,这里再分享一个常用的alert使用方法实际工作中,不管是日常运维还 ...

批量导出AD组内的成员

批量导出AD组内的成员相关推荐

最新文章

热门文章