AD域控用户批量修改

《AD域控用户批量修改》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、AD域控用户批量修改事件说明：由于电话交换机升级，所有用户电话号码都改变，需要批量修改所有域用户电话号码！1.1方案一采用VB代码实现！这段代码是在CSDN上找的，更改过相关字符，包含二个文件，一个文件是代码可执行文件change.vbs，一个是需要更改的用户清单文件userinfo.csv代码如下：标红为需要更改的字段！DimobjInfoConstADS_SCOPE_SUBTREE=2Setfso=CreateObject("Scripting.FileSystemObject")SetobjFile=fs

2、o.OpenTextFile("Userinfo.csv")SetobjConnection=CreateObject("ADODB.Connection")SetobjCommand=CreateObject("ADODB.Command")objConnection.Provider="ADsDSOObject"objConnection.Open"ActiveDirectoryProvider"SetobjCommand.ActiveConnection=objConnectionobjCommand.P

3、roperties("PageSize")=1000objCommand.Properties("Searchscope")=ADS_SCOPE_SUBTREEDoOnErrorResumeNextobjInfo=Split(objfile.ReadLine,",")strDN=FindUserDN(objInfo(0))SetobjUser=GetObject("LDAP://"&strDN)objUser.Put"telephoneNumber",objInfo(1)objUser.SetInfoIfErr

4、.Number<>0ThenWScript.Echo"Error:"&objInfo(0)&","&objInfo(1)EndIfstrDN=""LoopUntilobjfile.AtEndOfStream=Trueobjfile.CloseWScript.Echo"Done!"FunctionFindUserDN(strUserDisplayName)1objCommand.CommandText=_"SELECTdistinguishedNameFROM'LDAP://DC=wangba,DC=cn'WHE

5、REobjectCategory='user'"&_"ANDdisplayname='"&strUserDisplayName&"'"SetobjRecordSet=objCommand.ExecuteobjRecordSet.MoveFirstDoUntilobjRecordSet.EOFarrDN=objRecordSet.Fields("distinguishedName").ValueIfIsArray(arrDN)=TrueThenWScript.EchostrUserDisplayNameFindU

6、serDN=arrDN(0)ElseFindUserDN=arrDNEndifobjRecordSet.MoveNextLoopIfErr.Number<>0ThenWScript.EchoErr.telephoneNumber&":"&strUserDisplayNameErr.ClearEndIfEndFunction更改清单如下：文件打包如下(打包的文件的代码已贴出)：userinfo.csv1.2方案二通过dsmod命令来完成!dsmoduser"CN=罗某某,CN=Users,DC=wangba,DC

7、=cn"-tel"1112"2dsmoduser"CN=周某某,CN=Users,DC=wangba,DC=cn"-tel"1113"把所有需要修改的电话按下面格式帖在域控命令行！3