设为首页收藏本站
ORF反垃圾邮件系统

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

 找回密码
 会员注册

QQ登录

只需一步,快速开始

查看: 13768|回复: 11

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

[复制链接]
发表于 2006-3-16 13:07:45 | 显示全部楼层 |阅读模式
我曾经使用这个脚本统一设置密码不过期。可以参考下。<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>
 楼主| 发表于 2006-4-20 12:56:46 | 显示全部楼层

re:精华帖子没人支持下?

精华帖子没人支持下?
发表于 2006-4-20 14:06:07 | 显示全部楼层

re:感谢分享,LZ能具体点吗,这样不会操作!

感谢分享,LZ能具体点吗,这样不会操作!
 楼主| 发表于 2006-4-22 21:05:37 | 显示全部楼层

re:不是吧.把我帖子里的拷到记事本里,然...

不是吧.<br>
把我帖子里的拷到记事本里,然后保存为vbs格式的就可以了.<br>
直接运行就ok了啊
发表于 2006-4-24 10:06:18 | 显示全部楼层

re:是个好帖子哈。。支持。。。。但是你要把你...

是个好帖子哈。。支持。。。。但是你要把你这个帖子应用到什么环境是不是要介绍清楚呢???
发表于 2007-8-24 17:32:33 | 显示全部楼层
由於本人第一次用腳本更改批量屬性,且過於性急,沒有版主提供腳本的相應的域名,OU,及一些屬性更改過來,而直接在測試服務器上運行了腳本,致使現在CPU的占用率達到100%,但我現在去結束進程時卻提示連接控制碼無效,請各位高手指導我如何才能這個腳本進程呀.急,急,急.
发表于 2007-8-27 11:04:34 | 显示全部楼层
支持一下,不过貌似楼主帖子发错地方了哈~~
发表于 2007-8-27 14:26:45 | 显示全部楼层

謝謝

早點知道就好了,上次害我修改搞了半天,不過感謝樓主
发表于 2007-10-16 09:24:27 | 显示全部楼层
不错,这个很有用的.
发表于 2007-10-16 10:45:29 | 显示全部楼层
不错  顶一个
您需要登录后才可以回帖 登录 | 会员注册

本版积分规则

小黑屋|手机版|Archiver|邮件技术资讯网    

GMT+8, 2020-12-4 03:41

Powered by Discuz! X3.2

© 2001-2016 Comsenz Inc.

本论坛为非盈利中立机构,所有言论属发表者个人意见,不代表本论坛立场。内容所涉及版权和法律相关事宜请参考各自所有者的条款。
如认定侵犯了您权利,请联系我们。本论坛原创内容请联系后再行转载并务必保留我站信息。此声明修改不另行通知,保留最终解释权。
*本论坛会员专属QQ群:邮件技术资讯网会员QQ群
*本论坛会员备用QQ群:邮件技术资讯网备用群

快速回复 返回顶部 返回列表