邮件服务器-邮件系统-邮件技术论坛(BBS)

标题: [分享]批量更改AD用户帐号密码永不过期 [打印本页]

作者: feitianxiang 时间: 2006-3-16 13:07
标题: [分享]批量更改AD用户帐号密码永不过期
我曾经使用这个脚本统一设置密码不过期。可以参考下。 
 
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

作者: feitianxiang 时间: 2006-4-20 12:56
标题: re:精华帖子没人支持下?
精华帖子没人支持下?

作者: pres 时间: 2006-4-20 14:06
标题: re:感谢分享，LZ能具体点吗，这样不会操作！
感谢分享，LZ能具体点吗，这样不会操作！

作者: feitianxiang 时间: 2006-4-22 21:05
标题: re:不是吧.把我帖子里的拷到记事本里,然...
不是吧. 
把我帖子里的拷到记事本里,然后保存为vbs格式的就可以了. 
直接运行就ok了啊

作者: 飞向天空 时间: 2006-4-24 10:06
标题: re:是个好帖子哈。。支持。。。。但是你要把你...
是个好帖子哈。。支持。。。。但是你要把你这个帖子应用到什么环境是不是要介绍清楚呢？？？

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

作者: jhonlone 时间: 2007-8-27 11:04
支持一下，不过貌似楼主帖子发错地方了哈～～

作者: tender 时间: 2007-8-27 14:26
标题: 謝謝
早點知道就好了，上次害我修改搞了半天，不過感謝樓主

作者: liliboy 时间: 2007-10-16 09:24
不错,这个很有用的.

作者: fresh2006 时间: 2007-10-16 10:45
不错顶一个

作者: chuqiao8250 时间: 2007-12-24 17:16
我用了,密码永不过期怎么没钩上,怎么不起作用..请指点

作者: feitianxiang 时间: 2007-12-25 20:19
请把脚本里的OU名根据你们的名字修改,不要直接执行哦

不好意思,忘了提醒了.

欢迎光临邮件服务器-邮件系统-邮件技术论坛(BBS) (http://bbs.5dmail.net/)