[分享]批量更改AD用户帐号密码永不过期

feitianxiang

我曾经使用这个脚本统一设置密码不过期。可以参考下。<br>
<br>
On Error Resume Next<br>
<br>
Const ADS_SCOPE_SUBTREE = 2<br>
<br>
Set objConnection = CreateObject("ADODB.Connection")<br>
Set objCommand = CreateObject("ADODB.Command")<br>
objConnection.Provider = "ADsDSOObject"<br>
objConnection.Open "Active Directory Provider"<br>
Set objCommand.ActiveConnection = objConnection<br>
<br>
objCommand.Properties("Page Size") = 1000<br>
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE <br>
<br>
objCommand.CommandText = _<br>"SELECT Name,ADsPath FROM 'LDAP://ou=it,dc=ipcoreinc,dc=com' WHERE objectCategory='user' " <br>
Set objRecordSet = objCommand.Execute<br>
<br>
objRecordSet.MoveFirst<br>
Do Until objRecordSet.EOF<br>strADpath = objRecordSet.Fields("ADsPath").Value<br>Set objPath = GetObject(strADPath)<br>intUAC = objPath.Get("userAccountControl")<br>If ADS_UF_DONT_EXPIRE_PASSWD AND intUAC Then<br>
Wscript.echo objRecordSet.Fields("name").Value&":Already enabled"<br>Else<br>
objPath.Put "userAccountControl", intUAC XOR ADS_UF_DONT_EXPIRE_PASSWD<br>objPath.SetInfo<br>WScript.Echo objRecordSet.Fields("name").Value&":Password never expires is now enabled"<br>End If<br>objRecordSet.MoveNext<br>
Loop<br>

feitianxiang

精华帖子没人支持下?

pres

感谢分享，LZ能具体点吗，这样不会操作！

feitianxiang

不是吧.<br>
把我帖子里的拷到记事本里,然后保存为vbs格式的就可以了.<br>
直接运行就ok了啊

飞向天空

是个好帖子哈。。支持。。。。但是你要把你这个帖子应用到什么环境是不是要介绍清楚呢？？？

steven_zgf

由於本人第一次用腳本更改批量屬性,且過於性急,沒有版主提供腳本的相應的域名,OU,及一些屬性更改過來,而直接在測試服務器上運行了腳本,致使現在CPU的占用率達到100%,但我現在去結束進程時卻提示連接控制碼無效,請各位高手指導我如何才能這個腳本進程呀.急,急,急.

jhonlone

支持一下，不过貌似楼主帖子发错地方了哈～～

tender

早點知道就好了，上次害我修改搞了半天，不過感謝樓主

liliboy

不错,这个很有用的.

fresh2006

不错  顶一个