邮件服务器-邮件系统-邮件技术论坛(BBS)

 找回密码
 会员注册
查看: 3248|回复: 4
打印 上一主题 下一主题

如何导出全公司成员的email地址

[复制链接]
跳转到指定楼层
顶楼
发表于 2006-8-18 10:08:10 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
windowns 2003+exchange2003的环境,有个叫all staff的组,里面包含了全公司员工的帐号,我想导出全部帐号的email地址,该如何做?我试了一下,最多好像导出帐号,不能导出email地址,请各位大哥知道的帮助一下小弟
沙发
发表于 2006-8-18 10:26:30 | 只看该作者
无法按组导, 只能按ou导.
邮件列表导出
csvde -f emailist.csv -d "ou=users,dc=yourdomain,dc=com"
导出后看emaillist.csv即可.
藤椅
发表于 2006-8-18 10:36:41 | 只看该作者
给你一个vbs脚本

const ForReading = 1, ForWriting = 2, ForAppending = 8
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile("c:\emaillist.txt", ForWriting,true,TristateFalse)
Set objGroup = GetObject("LDAP://cn=yourgroupname,ou=users,dc=yourdomain,dc=com")
i=0
For each objMember in objGroup.Members
    i=i+1
    StrRecord=i & ":::" & objMember.displayname & ":::" & objMember.mail
    f.Writeline StrRecord
Next
f.close

其中的Set objGroup = GetObject("LDAP://cn=yourgroupname,ou=users,dc=yourdomain,dc=com")
要看你的实际情况而定.
板凳
 楼主| 发表于 2006-8-18 15:17:01 | 只看该作者
真的非常感谢版主
报纸
 楼主| 发表于 2006-8-18 15:59:28 | 只看该作者
虽然没有解决我的问题,呵呵,
您需要登录后才可以回帖 登录 | 会员注册

本版积分规则

小黑屋|手机版|Archiver|邮件技术资讯网

GMT+8, 2026-8-5 06:47

Powered by Discuz! X3.2

© 2001-2016 Comsenz Inc.

本论坛为非盈利中立机构,所有言论属发表者个人意见,不代表本论坛立场。内容所涉及版权和法律相关事宜请参考各自所有者的条款。
如认定侵犯了您权利,请联系我们。本论坛原创内容请联系后再行转载并务必保留我站信息。此声明修改不另行通知,保留最终解释权。
*本论坛会员专属QQ群:邮件技术资讯网会员QQ群
*本论坛会员备用QQ群:邮件技术资讯网备用群

快速回复 返回顶部 返回列表