Tech Talk

'###########Script created by Praveen Kumar##################
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("./users.txt", 1) ' text file input for list of users
Do until objFile.AtEndOfStream
strPassword = "Password" 'enter the default password
intPwdValue = "0"
Line = objFile.ReadLine
Set objUser = GetObject("LDAP://" & Line)
If objUser.class="user" then ' just to make sure the object is user or not
objUser.SetPassword strPassword
objUser.Put "PwdLastSet", intPwdValue
objUser.SetInfo
End If
loop