feitianxiang 发表于 2006-3-16 13:07:45

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

我曾经使用这个脚本统一设置密码不过期。可以参考下。<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 发表于 2006-4-20 12:56:46

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

精华帖子没人支持下?

pres 发表于 2006-4-20 14:06:07

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

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

feitianxiang 发表于 2006-4-22 21:05:37

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

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

飞向天空 发表于 2006-4-24 10:06:18

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

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

steven_zgf 发表于 2007-8-24 17:32:33

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

jhonlone 发表于 2007-8-27 11:04:34

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

tender 发表于 2007-8-27 14:26:45

謝謝

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

liliboy 发表于 2007-10-16 09:24:27

不错,这个很有用的.:lol

fresh2006 发表于 2007-10-16 10:45:29

不错顶一个:lol
页: [1] 2
查看完整版本: [分享]批量更改AD用户帐号密码永不过期