NOVOTS KMS 词汇表 Glossary    联系我们 Contact Us
查询 Search  
   
按类别浏览 Browse by Category
NOVOTS KMS .: 工作心得 .: 修改所有域内用户密码的脚本

修改所有域内用户密码的脚本

 

  1. const ADS_SCOPE_SUBTREE=2


  2. Set objConnection = CreateObject("ADODB.Connection")
  3. Set objCommand =   CreateObject("ADODB.Command")
  4.    objConnection.Provider = "ADsDSOObject"
  5.    objConnection.Open "Active Directory Provider"
  6. Set objCommand.ActiveConnection = objConnection
  7.    objCommand.Properties("Page Size") = 200
  8.    objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
  9.    objCommand.CommandText = "SELECT adspath,name FROM 'LDAP://dc=shenma,dc=local' WHERE objectCategory='user' "

  10. Set objRec = objCommand.Execute

  11.    if objRec.BOF OR objRec.EOF then  
  12.     wscript.echo "不存在"
  13.    else
  14.     FOR i = 1 to objRec.RecordCount
  15.      UserPATH = objRec.Fields("adsPath").Value   
  16.      set obj = GetObject(UserPATH)
  17.      obj.setpassword "111111"
  18.      obj.setinfo
  19.      wscript.echo objRec.Fields("name").Value
  20.      objRec.MoveNext
  21.     Next
  22.     wscript.echo objRec.RecordCount&"个用户成功!"
  23.    end if


这篇文章对你多有用?

相关文章

article 用系统盘破解windows7管理员密码
...

(No rating)  4-29-2011    Views: 1704   
article 详细设置Windows Server 2008多元密码策略

(No rating)  12-29-2010    Views: 1507   
article 双重密码保护,让你的电脑更安全
对于Windows...

  4-24-2012    Views: 1420   

用户评语

添加评语
当前还没有评语.


.: .: .: .: .:
[ 登陆 ]
北京护航科技有限公司 2006

Novots Technologies Limited