Advertisement
Advertisement
| 05.12.2008 at 02:32PM PDT, ID: 23396049 |
|
[x]
Attachment Details
|
||
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: |
Option Explicit
Dim OU, User, RootDSE, WShell,Container, Domain, PwdValue
' Bind to Active Directory Domain
Set RootDSE = GetObject("LDAP://RootDSE")
Domain = RootDSE.Get("DefaultNamingContext")
Container = "CN=Users,"
Container = Container & Domain
WScript.Echo Container
' PwdLastSet seems to only take 0 to flag "User must change password at next logon"
' and -1 which means today.
PwdValue = -1
' Loop through container
set OU =GetObject("LDAP://" & Container )
For each User in OU
If User.class="user" And User.CN = "TestGuy" Then
WScript.Echo User.CN
WScript.Echo "Setting PwdLastSet to " & PwdValue
User.Put "PwdLastSet", PwdValue
User.SetInfo
End If
Next
|