您的位置:首页 > 其它

导出活动目录组成员列表

2009-02-26 17:27 225 查看
下面脚本的功能是把 "group"组中的成员列表保存到 c:\text.txt中

Const ForAppending = 8
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objGroup = GetObject _
("LDAP://cn=group,cn=users,dc=local,dc=com")
objGroup.GetInfo
Set objTextFile = objFSO.OpenTextFile _
("C:\text.txt", ForAppending, True)
arrMemberOf = objGroup.GetEx("member")

For Each strMember in arrMemberOf
objTextFile.WriteLine(strMember)
Next

objTextFile.Close本文出自 “Updating” 博客,请务必保留此出处http://mycys.blog.51cto.com/11076/133333
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: