批量创建联系人

leanneliang

我用dsadd contact 方式批量添加联系人（exchange 2003),但是创建完成之后还需要手动一个一个的选择右键---exchange 任务，建立邮件地址。我有1000多个联系人，有没有什么批量处理的脚本可以做的。
格式如下：
dsadd contact -display username@snapon.com cn=username@snapon.com,ou=10.parents09,dc=doaminmane,dc=local -email username@snapon.com -desc "Seo Hwa, Nam"
这样做只是将联系人加入到系统中，没有创建smtp地址，不能正常发送邮件，
您有什么好的办法没有？

想Fei的猪

有VBS可以实现,下面贴上脚本:
Set objOU = GetObject("LDAP://OU=Test,DC=The9,DC=com")
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = False
Set objWorkbook = objExcel.Workbooks.Open("D:\MailAdress.xls")
Set objWorksheet = objWorkbook.Worksheets(1)
objWorksheet.Activate
Const xlCellTypeLastCell = 11
Set objRange = objWorksheet.UsedRange
objRange.SpecialCells(xlCellTypeLastCell).Activate
intLastRow = objExcel.ActiveCell.Row
For i = 1 To intLastRow
ContactName = Trim(objWorksheet.Cells(i, 1))
MailAdress = Trim(objWorksheet.Cells(i, 2))
objName = split(MailAdress,"@")
Name = objName(0)
Set objContact = objOU.Create("contact", "cn=" & ContactName )
                objContact.Put "sn", ContactName
                objContact.Put "displayName", ContactName
                objContact.Put "mail", MailAdress
                objContact.Put "mailNickname", ContactName
                objContact.Put "targetAddress", "SMTP:" & MailAdress
                objContact.SetInfo
Next
objWorkbook.close
objExcel.quit

具体做法:
1.在D盘根目录建立Excel表格MailAdress.xls
2.表格里每行第一个单元格输入联系人的名称,如:Just;第二行输入mail地址, 如:just@test.com
3.修改脚本:
  a.脚本第一行的LDAP后的信息请更改成自己的OU
  b.脚本第四行是建立Excel表格的路径,根据自己情况更改
4.保存脚本为vbs后缀,双击运行.
5.如果是Exchange 2007,还需要加东西...

tarian

有空试一下。高人来了，呵呵

想Fei的猪

  谢谢Tarian啊!

leanneliang

非常感谢 ，我会试的   结果告诉大家

钉子

全选联系人然后右键Exchange任务即可.

leanneliang

是不是必须在exchange 服务器上运行，我服务器上没有安装excel,提示不能创建对象。

钉子说的，全选联系人，右键exchange属性，没有创建邮箱选项 ，只有删除邮箱。

想Fei的猪

只要是域内的计算机，只要有权限的帐户来运行就可以了。
钉子哥的方法，估计是因为你的联系人已经有Exchange信息了吧，你先删除然后再创建看行不行。

leanneliang

非常感谢大家的帮忙  已测试过了，非常方便 excel表格里的记录不能有重复的，否则就执行不下去了 。

david.wang666

好东西，纯支持