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

标题: 如何导出全公司成员的email地址 [打印本页]

作者: maweicpu 时间: 2006-8-18 10:08
标题: 如何导出全公司成员的email地址
windowns 2003+exchange2003的环境，有个叫all staff的组，里面包含了全公司员工的帐号，我想导出全部帐号的email地址，该如何做？我试了一下，最多好像导出帐号，不能导出email地址，请各位大哥知道的帮助一下小弟

作者: atong999888 时间: 2006-8-18 10:26
无法按组导, 只能按ou导.
邮件列表导出
csvde -f emailist.csv -d "ou=users,dc=yourdomain,dc=com"
导出后看emaillist.csv即可.

作者: atong999888 时间: 2006-8-18 10:36
给你一个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")
要看你的实际情况而定.

作者: maweicpu 时间: 2006-8-18 15:17
真的非常感谢版主

作者: maweicpu 时间: 2006-8-18 15:59
虽然没有解决我的问题，呵呵，

欢迎光临邮件服务器-邮件系统-邮件技术论坛(BBS) (http://bbs.5dmail.cn/)