各位平时用什么方法开邮箱？

oneway1

因为每个邮箱有很多属性要填，我是自己编了个小程序，根据csv文件，批量开邮箱。将程序中所有的AD变量写在一个配置文件中，方便修改。最后，将用户名，mail地址，工号，密码之类的打印在类似银行密码信封中。撕开信封才能看到初始密码。

不知道各位怎么开邮箱的？交流一下？或者是怎么个申请流程？

钉子

oneway把你的小程序公布一下好了　

lideaiwa

使用脚本批量创建NT域帐户
yeyarong | 08/11 2006, 21:04
     今天接到任务要创建100个Windows NT 4.0域用户帐户的任务，虽然数量不多，但一个一个的去建也挺累的。于是自己编了个脚本自动创建帐号。
     这个脚本从C:盘下的Excel文件中读取用户名、全名、描述，然后创建帐号。再将密码进行修改，最后将用户加入到相应的组当中。
      脚本没有进行检测和校验功能，需要的朋友自己完善吧。另外，Excel格式第一行是表头。第一列是用户名，第二列是全名，第三列是描述。

On Error Resume Next

Set c = GetObject("WinNT://Domain")
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("C:UserList.xls")

intRow = 2
Do Until objExcel.Cells(intRow,1).Value = ""
    Username = "T" & objExcel.Cells(intRow, 1).Value

    Set u = c.Create("user", Username)
    u.Put "FullName", objExcel.Cells(intRow, 2).Value
    u.Put "Description", objExcel.Cells(intRow, 3).Value
    u.SetInfo

    Set objUser = GetObject("WinNT://Domain/" & Username)
    objUser.SetPassword(Username)

    Set oGroup = c.GetObject("Group", "NewGroup")
    oGroup.Add ("WinNT://Domain/" & Username)
    oGroup.SetInfo

    Set u = Nothing
    Set objUser = nothing
    Set oGroup = nothing

    intRow = intRow + 1
Loop

Set c = nothing
Set objWorkbook = nothing
objExcel.Quit
Set objExcel = nothing

lideaiwa

"将用户名，mail地址，工号，密码之类的打印在类似银行密码信封中。撕开信封才能看到初始密码。"  这个用什么设备实现？

oneway1

这个需要找人印刷密码信封。

通常为三联。第一联白纸，第二联复写纸，打印密码部分不是复写；第三联全部是复写纸。

用针打打印，第一联打好就撕掉，给用户第二，三联。因为第二联密码部分没有复写，所以看不到密码。撕开第三联才能看到密码。

主要程序和lideaiwa差不多，呵呵

atong999888

一般小公司用不到密码信封, 工资条可能会用它.

[ 本帖最后由 atong999888 于 2007-2-16 21:30 编辑 ]

yinjie

简单的做法是用不装色带的打印机打印在复写上也可以实现.不过由于用户密码可在第一次可强制修改,因此这样做的意义并不大,上面朋友给的程序只能建立用户且是建立域用户的,在活动目录里建立用户最好使用LDAP命令完成,建立邮箱需要调用CDOEXM完成,具体可参阅脚本中心.

wqlx2008

其實*.bat就可以搞定了唷

lideaiwa

bat咋做聂？

jbiscuit

学习中