导出域中安全组成员列表

因为工作需求需要把原来做ruidas的用户导出，发现在活动目录只有OU才有导出列表功能。不过可以通过脚本来实现

把以下文件写入文本中然后另存为listuser.vbs

Set objGroup = GetObject(" LDAP://CN=outgoing,CN=users,DC=test,DC=51cto,DC=com")
objGroup.GetInfo

arrMemberOf = objGroup.GetEx("member")

For Each strMember in arrMemberOf
        Set objUser = GetObject("LDAP://" & strMember)
    objUser.GetInfo
    WScript.Echo objUser.Displayname & "," & objUser.Department
Next
如果需要导出列表，在命令行下运行cscript listuser.vbs>user.txt即可。