用perl修改AD用户的属性

yuipr

我想用perl程序去修改整个WINDOWS活动目录用户的其中的一个属性，现在所有用户的密码为永不过期，我想这个属性的勾给去掉，在网上搜下，还是没啥眉目，有谁做过种脚本没？

py

你先用ldapsearch把数据拿出来看看attributetype的名字，再用ldapmodify修改对应的值。
最后如果你想写成脚本，可以用Net::LDAP

yuipr

这个思路不错，我试试看

stanley_tam

1. 
   
2. 试试VB咯=> http://www.computerperformance.co.uk/index.htm
   
3. sample:
   
4. 
   
5. ' -----------------------------------------------'
   
6. Option Explicit
   
7. Dim objOU, objUser, objRootDSE
   
8. Dim strContainer, strLastUser, strDNSDomain
   
9. 
   
10. ' Bind to Active Directory Domain
    
11. Set objRootDSE = GetObject("LDAP://RootDSE")
    
12. strDNSDomain = objRootDSE.Get("DefaultNamingContext")
    
13. 
    
14. 
    
15. ' -----------------------------------------------'
    
16. ' Important change OU= to reflect your domain
    
17. ' -----------------------------------------------'
    
18. strContainer = "OU=Accounts, "
    
19. strContainer = strContainer & strDNSDomain
    
20. 
    
21. set objOU =GetObject("LDAP://" & strContainer )
    
22. 
    
23. For each objUser in objOU
    
24.    If objUser.class="user" then
    
25.       ' The heart of this script - Enable users
    
26.       objUser.Put "passwordNeverExpires", False
    
27.       objUser.SetInfo
    
28.    End if
    
29. next
    
30. 
    
31. ' End of Free Sample UserAccountControl VBScript

复制代码