windows 2008 server

首先修改一份 Excel文件 将该文件另存为以CSV为后缀名的文件

在创建的过程中要注意各项的字段名

由于是批量添加，考虑到系统的用户密码策略中默认的情况下是不允许用户空密码，所以我们首先要进行修改组策略

在windows2008中进入组策略的命令与windows2003 有所区别：gpmc.msc

依次打开 计算机配置——策略——windows设置——安全设置——账户策略——密码策略

编辑完组策略后记得 刷新组策略  命令：gpupdate  /force

组策略修改完毕后 接下来我们要在 AD用户和计算机中新建一个组织单位，组织单位名称为XM，我们将把excel中的用户导入到该组织单位中；

如果我们想更详细的查看AD用户和计算机中的 其它选项可以单击菜单上的查看并选择“高级功能”

好了一切准备就绪，接下来我们通过一段命令来实现批量导入用户：

命令：csvde -i -f  xm2008.comUser.csv 

这时候我们就可以刷新 AD用户和计算机中的 XM组织单位，我们可以看到所以得用户已经被我们批量导入了：

如果我们希望为每个用户初始化一个密码，我们可以通过一段VBS来实现：

_______________________________________________________________________

Const ADS_SCOPE_SUBTREE = 4

Set objConnection = CreateObject("ADODB.Connection")

Set objCommand =   CreateObject("ADODB.Command")

objConnection.Provider = "ADsDSOObject"

objConnection.Open "Active Directory Provider"

Set objCOmmand.ActiveConnection = objConnection

objCommand.CommandText = _

    "Select name, mobile from 'LDAP://ou=xm,DC=xm2008,DC=com' where objectClass='user'"  

objCommand.Properties("Page Size") = 1000

objCommand.Properties("Timeout") = 30 

objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE 

objCommand.Properties("Cache Results") = False 

Set objRecordSet = objCommand.Execute

objRecordSet.MoveFirst

I=0

Do Until objRecordSet.EOF

    strPath = objRecordSet.Fields("name").Value

    strPwd = objRecordSet.Fields("mobile").Value

    Set objUser = GetObject("LDAP://cn="&strpath &",ou=xm,DC=xn2008,DC=com")

    objUser.SetPassword strPath

    objRecordSet.MoveNext

    I=I+1

Loop

WSCRIPT.ECHO "All " &I &" user(s) password be changed!"

同样的方法我们也可以实现批量导入计算机