windows serverWord文档格式.docx

windows serverWord文档格式.docx

《windows serverWord文档格式.docx》由会员分享，可在线阅读，更多相关《windows serverWord文档格式.docx（8页珍藏版）》请在冰豆网上搜索。

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

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

gpupdate/force

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

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

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

命令：

csvde-i-fUser.csv

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

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

_______________________________________________________________________

ConstADS_SCOPE_SUBTREE=4

SetobjConnection=CreateObject（"

ADODB.Connection"

）

SetobjCommand=CreateObject（"

ADODB.Command"

objConnection.Provider="

ADsDSOObject"

objConnection.Open"

ActiveDirectoryProvider"

SetobjCOmmand.ActiveConnection=objConnection

objCommand.CommandText=_

"

Selectname,mobilefrom'

LDAP:

//ou=xm,DC=xm2008,DC=com'

whereobjectClass='

user'

"

objCommand.Properties（"

PageSize"

）=1000

Timeout"

）=30

Searchscope"

）=ADS_SCOPE_SUBTREE

CacheResults"

）=False

SetobjRecordSet=objCommand.Execute

objRecordSet.MoveFirst

I=0

DoUntilobjRecordSet.EOF

strPath=objRecordSet.Fields（"

name"

）.Value

strPwd=objRecordSet.Fields（"

mobile"

SetobjUser=GetObject（"

//cn="

&

strpath&

ou=xm,DC=xn2008,DC=com"

objUser.SetPasswordstrPath

objRecordSet.MoveNext

I=I+1

Loop

WSCRIPT.ECHO"

All"

&

I&

user（s）passwordbechanged!

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