各位平时用什么方法开邮箱？
因为每个邮箱有很多属性要填，我是自己编了个小程序，根据csv文件，批量开邮箱。将程序中所有的AD变量写在一个配置文件中，方便修改。最后，将用户名，mail地址，工号，密码之类的打印在类似银行密码信封中。撕开信封才能看到初始密码。不知道各位怎么开邮箱的？交流一下？或者是怎么个申请流程？ oneway把你的小程序公布一下好了 :) 使用脚本批量创建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 "将用户名，mail地址，工号，密码之类的打印在类似银行密码信封中。撕开信封才能看到初始密码。"这个用什么设备实现？ 这个需要找人印刷密码信封。
通常为三联。第一联白纸，第二联复写纸，打印密码部分不是复写；第三联全部是复写纸。
用针打打印，第一联打好就撕掉，给用户第二，三联。因为第二联密码部分没有复写，所以看不到密码。撕开第三联才能看到密码。
主要程序和lideaiwa差不多，呵呵:P 一般小公司用不到密码信封, 工资条可能会用它.
[ 本帖最后由 atong999888 于 2007-2-16 21:30 编辑 ] 简单的做法是用不装色带的打印机打印在复写上也可以实现.不过由于用户密码可在第一次可强制修改,因此这样做的意义并不大,上面朋友给的程序只能建立用户且是建立域用户的,在活动目录里建立用户最好使用LDAP命令完成,建立邮箱需要调用CDOEXM完成,具体可参阅脚本中心. 其實*.bat就可以搞定了唷 bat咋做聂？ 学习中
页:
[1]
2
