导出活动目录组成员列表

下面脚本的功能是把 "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