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

标题: 如何为MD批量增加用户. [打印本页]

作者: 大碗豆浆 时间: 2007-1-18 12:51
标题: 如何为MD批量增加用户.
因公司更名.所以要在MD上添加一个新域.并在这个域里为所有用户添加用户名.考虑到数百个用户名批量增加确实工作量太大.于是写了个小程
序完成.我敢肯定我的方法不是最好的.因为我时间不够.还有一些问题未能解决.
环境:
win2k3
mdaemon 8.15 eng

任务:
1. 现有服务器上有2个域 a.com b.com 用户数分别为a.com 300人 b.com50人,现在新加一个域c.com 并为a.com里已有用户都增加一个c.com的
邮箱.
2. 设置转发所有a.com的用户邮件到c.com
3. 为a.com设置一个自动回复,通知客户邮箱已改的情况.

MD里查来查去.好像没有批量改这些用户属性的功能.于是我开始分析MD的APP目录下是那些文件在干这些事.最终查到的相关文件是下面的
userlist.dat 存储用户信息
Forward.dat  存储用户转发设置
AutoResp.dat 存储用户自动回复
后缀名为rsp的文件为自动回复邮件内容.
任务1步骤
因为我已有一个数据库,里面存储了所有用户的用户名.密码,邮件地址等信息.这个数据库是动态在更新的.通过我运行在服务器上的邮件备份软
件在更新.软件通过API访问MD用户信息.然后把内容更新到数据库里.如果你没有这样的一个数据库.也可以自己做一个简单的.
把MD里的用户导出成CSV文件.然后把用户名,邮件地址,密码这三栏留下.其它删掉.然后把这个文件导入到数据库里.比如导入到ACCESS里.并把
用户表命名为users 字段名为username,email,userpass
相信搞IT的朋友要做到这点不难.
下面为生成CSV文件的ASP代码.

adduser.asp
 此文件为数据库连接文件.可根据你的数据库位置更改.
<%
dim rs,sql,fso
set fso=server.CreateObject("scripting.filesystemobject")
path="f:\csv\"  '这是生成后的文件的保存位置.如果是NTFS的.记得要把IIS匿名用户的权限加进去.
Set MyFile = fso.CreateTextFile(path&"csv.csv", True)
function getdomain(strng)
getdomain=right(strng,len(strng)-instr(strng,"@"))
end function
sql="select * from users"  '查询语句得到所有用户
set rs=conn.execute(sql)
cl0="""Email"", ""MailBox"", ""Domain"",
""FullName"",""MailDir"",""Password"",""AutoDecode"",""IsForwarding"",""AccessType"", ""AllowChangeViaEmail"",
""KeepForwardedMail"", ""HideFromEveryone"", ""EncryptMail"", ""ApplyQuotas"", ""EnableMultiPOP"", ""CanModifyGAB"",
""MaxMessageCount"", ""MaxDiskSpace"", ""FwdAddress"", ""FwdHost"",""FwdSendAs"", ""FwdPort"", ""NTAccount"", ""MailFormat"",
""AutoRespScript"", ""AutoRespProcess"", ""AddToList"", ""RemoveFromList"", ""PassMessageToProcess"", ""MaxUIDLCount"",
""MaxMessageSize"", ""RecurseIMAP"", ""Disabled"", ""CheckAddrBook"", ""UpdateAddrBook"", ""MaxInactive"", ""MaxMessageAge"",
""MaxDeletedIMAPMessageAge"", ""Comments"", ""UserDefined"", ""LastAccessDate"", ""FileCount"", ""DiskSpaceConsumed"""
'上面这句为CSV文件栏目名.不可更改.
myfile.writeline(cl0)
dh=","
do while not rs.eof or rs.bof
cl1=""""&rs("email")&""""
cl2=""""&rs("username")&""""
cl3=""""&getdomain(rs("email"))&""""
cl4=""""&rs("username")&""""
domain=getdomain(rs("email"))
cl5="""f:\MDaemon\Users\"&getdomain(rs("email"))&"\"&rs("username")&"\"""  '用户文件目录
cl6=""""&rs("userpass")&""""
fwdadd=""
cl7="0,1,Y,1,1,0,0,0,0,1,0,0,"""&fwdadd&""","""","""",""25"","""",""RFC822"","""","""","""","""",0,0,0,0,0,1,1,0,0,0,"""","""
","""",,"
myfile.writeline(cl1&dh&cl2&dh&cl3&dh&cl4&dh&cl5&dh&cl6&dh&cl7)
rs.movenext
loop
rs.close
addsql="select * from users where email like '%cn.osmglobal.com'"
set rs=nothing
set rs=conn.execute(addsql)
do while not rs.eof or rs.bof
cl1=""""&rs("username")&"@c.com"&""""
cl2=""""&rs("username")&""""
cl3=""""&"c.com"&""""
cl4=""""&rs("username")&""""
domain=getdomain(rs("email"))
cl5="""f:\MDaemon\Users\c.com\"&rs("username")&"\"""  '用户文件目录
cl6=""""&rs("userpass")&""""
fwdadd=""
cl7="0,1,Y,1,1,0,0,0,0,1,0,0,"""&fwdadd&""","""","""",""25"","""",""RFC822"","""","""","""","""",0,0,0,0,0,1,1,0,0,0,"""","""
","""",,"
myfile.writeline(cl1&dh&cl2&dh&cl3&dh&cl4&dh&cl5&dh&cl6&dh&cl7)
rs.movenext
loop
myfile.close
rs.close
set rs=nothing
conn.close
set conn=nothing%>
生成csv.csv文件后.可以用CSVed查看,和系统生成的对比一下格式正不正确, CSVed可以在这里下载:http://www.softsea.net/soft/141997.htm
查看无误后就可以导入了.在导入前先说明一下.这也是我一个未解决的问题.就是导入后.所有用户的POP默认都是被禁止的.原因不清楚.决定访
问状态的是第九栏.可是我按系统要求的试了Y y 1都不行.导进去后就是不能启用POP.请解决了此问题的朋友告诉我一声.
导入完成后.POP不能用.当然不能一个个点一个个调.那样要累死人了.达不到我们的目的了.请按以下方法解决.
把帐户存储改成ODBC源.这样所有的用户都会存储到数据库里了.打开查询分析器.操作目标为master 操作命令为
update userlist set allowaccess=1
执行后.用户的的访问就被开启了.如果你喜欢可以一直保留存为数据库的.或者转成用USERLIST.DAT文件存储.
任务2 2. 设置转发所有a.com的用户邮件到c.com
运行此ASP代码,将生成的文件复制到APP目录下即可.
setfwd.asp

<%
dim rs,sql,fso
set fso=server.CreateObject("scripting.filesystemobject")
path="f:\csv\"  '这是生成后的文件的保存位置.如果是NTFS的.记得要把IIS匿名用户的权限加进去.
Set MyFile = fso.CreateTextFile(path&"forward.dat", True)
sql="select * from users where email like '%a.com'"
set rs=conn.execute(sql)
do while not (rs.eof or rs.bof)
myfile.writeline ("["&rs("email")&"]")
myfile.writeline ("Address="&rs("username")&"@c.com")
rs.movenext
loop
rs.close
set rs=nothing
myfile.close
set myfile=nothing
set fso=nothing
conn.close
set conn=nothing
%>
3. 为a.com设置一个自动回复,通知客户邮箱已改的情况.
先制作一个自动回复文件,内容随意
autorspforall.rsp
您好
由于本公司变更了英文为　c　相应的邮件地址也变更为新的地址.格式如下：
name@c.com
如果之前的邮件地址为　abc@a.com　则新的地址格式为abc@c.com，你的邮件我们已收到.并已转发到新的地址.因此你无需重发此邮件.
请及时更新您的通讯录并使用新的邮件地址和我们联系.
谢谢！

Hello,
Pls. be advised that our company name in English has changed to "c" therefore our current E-mail addresses will be changed
accordingly, the format of our new E-mail address is : name@c.com
For example if the previous E-mail address is abc@a.com, then the new one will be abc@c.com. We will transfer your E-mail to
the receiver’s new E-mail address, so it is not necessary for you to resend it.
Please kindly update your address book with our new contact E-mail addresses!
Thanks!

C Company

将这个文件放在APP目录下.
然后运行以下程序
setautorsp.asp

<%
dim rs,sql,fso
set fso=server.CreateObject("scripting.filesystemobject")
path="f:\csv\"  '这是生成后的文件的保存位置.如果是NTFS的.记得要把IIS匿名用户的权限加进去.
Set MyFile = fso.CreateTextFile(path&"AutoResp.dat", True)
sql="select * from users where email like '%a.com'"
set rs=conn.execute(sql)
do while not (rs.eof or rs.bof)
myfile.writeline ("["&rs("email")&"]")
myfile.writeline ("MailBackFile=C:\MDaemon\App\autorspforall.rsp") '如果你的MD装在其它盘请修改这个路径
myfile.writeline ("PassMessage=No")
rs.movenext
loop
rs.close
set rs=nothing
myfile.close
set myfile=nothing
set fso=nothing
conn.close
set conn=nothing
%>
将生成的autorsp.dat放置到APP目录下.重启 MD
然后就生效了.现在起所有发到a.com的邮件会自动的抄送一份到同名的c.com域内.发件人并会收到一份自动回复.得知已变更邮件的情况.

作者: wxhsh 时间: 2007-1-18 13:02
标题: 回复 #1 大碗豆浆的帖子
楼主辛苦，不过不用这么麻烦，在\mdaemon\Docs\API\下有例子的，你参考一下吧。

作者: 大碗豆浆 时间: 2007-1-18 13:14
你说的是用API吧.例子参考过.也运行过.老让我的VB死掉.不好使.

作者: wxhsh 时间: 2007-1-18 14:16
标题: 回复 #3 大碗豆浆的帖子
偶用它的ASP例子测试，速度很快。

作者: tomato 时间: 2007-1-18 14:33
谢谢!!!!!!!!!!!!!!!!

作者: asionliang 时间: 2007-1-18 15:45

强！！

作者: lwz_08 时间: 2007-1-18 19:25

强!!

作者: job21 时间: 2007-1-19 14:52
能不搞个工具，一次性搞定

作者: 大碗豆浆 时间: 2007-1-19 15:22
标题: 那我用VB再写一个工具吧.不过要在服务器上运行.而且用户必须提供新用户的数据库文件.

作者: askever 时间: 2007-1-19 15:35
我真的实在不想打击楼主,楼主是不是舍近求远了?

账户导出成csv的文件后,用计事本编辑这个文件,将所有的A.com替换成C.com,然后建立C.com这个次域,再导入这个文件不就行了么?

特意写了个批处理是不是小题大做了...

作者: askever 时间: 2007-1-19 15:39
抱歉,我收回楼上的话,没注意还有其他的操作,为楼主的专业精神致敬.

作者: 大碗豆浆 时间: 2007-1-19 22:04
标题: 回复 #11 askever 的帖子
你说的对.你的方法确实是很好.这点我不是没有想到.其实方法很多.我只是想给大家多一种选择.假设你对添加的用户有一些不同的属性要指定.比如我这里就需要对不同用户指定不同的邮箱容量.用程序方法就灵活得多了.

作者: cheng1999 时间: 2007-2-17 00:34
这么好的东东一定要顶

作者: min123a 时间: 2007-2-18 18:51
标题: 的呢
好麻烦啊

作者: qsqwy 时间: 2007-6-7 10:47
标题: 不管如何要鼓励一下lz

作者: villain 时间: 2007-7-19 09:59
楼主的专业精神制的敬佩，不过10楼的方法确实不错，简单实用！两个都顶一下！

作者: clc4214 时间: 2007-10-10 15:33
标题: 废那事
废那事,去FILES.ALTN.COM下载一个批量建用户的小软件即可

作者: orchid6419 时间: 2007-11-5 14:51
标题: 求救
请问各位高手，怎么在MD邮件系统中删除多个邮件帐户，是不是需要在域控制器和MD中同时删除邮件帐户才可以彻底删除,我是个新手，希望各位高手列出详解，小弟在这里先谢了
win2003
MD9.5.0

作者: CTCT 时间: 2009-5-7 10:59

原帖由 askever 于 2007-1-19 15:35 发表
我真的实在不想打击楼主,楼主是不是舍近求远了?

账户导出成csv的文件后,用计事本编辑这个文件,将所有的A.com替换成C.com,然后建立C.com这个次域,再导入这个文件不就行了么?

特意写了个批处理是不是小题大做 ...

这样更快，而且没有POP打不开的问题，我也是一直用这方法的。

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