我曾经使用这个脚本统一设置密码不过期。可以参考下。

On Error Resume Next

Const ADS_SCOPE_SUBTREE = 2

Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection

objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE

objCommand.CommandText = _
"SELECT Name,ADsPath FROM 'LDAP://ou=it,dc=ipcoreinc,dc=com' WHERE objectCategory='user' "
Set objRecordSet = objCommand.Execute

objRecordSet.MoveFirst
Do Until objRecordSet.EOF
strADpath = objRecordSet.Fields("ADsPath").Value
Set objPath = GetObject(strADPath)
intUAC = objPath.Get("userAccountControl")
If ADS_UF_DONT_EXPIRE_PASSWD AND intUAC Then
Wscript.echo objRecordSet.Fields("name").Value&":Already enabled"
Else
objPath.Put "userAccountControl", intUAC XOR ADS_UF_DONT_EXPIRE_PASSWD
objPath.SetInfo
WScript.Echo objRecordSet.Fields("name").Value&":Password never expires is now enabled"
End If
objRecordSet.MoveNext
Loop

精华帖子没人支持下?

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

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

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

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

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

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

不错,这个很有用的.

不错  顶一个