Programmaticly update passwords fail

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hi,

After inserting 2500 users, i would like to set their password and enable
them (noexpire). I'm getting no error errors when i run the procedure, and
i've seen this technique before on internet. But it doesn't work... Anybody
have any ideas??

Thanks in advance!

Rob Smeets

I'm using the following code:

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button3.Click
Try
Dim x As Integer
For x = 0 To Users1.Userlist.Rows.Count - 1
If Users1.Userlist.Rows(x).Item("Selected") = True Then
Dim objUser As
New DirectoryServices.DirectorySearcher(TextBox2.Text)
Dim child As System.DirectoryServices.DirectoryEntry
objUser.Filter = "sAMAccountName=" +
Users1.Userlist.Rows(x).Item
("UserName")
Dim objSearchResult As DirectoryServices.SearchResult
For Each objSearchResult In objUser.FindAll()
objSearchResult.GetDirectoryEntry().Properties.
("UserAccountControl").Value = 66048
Users1.Userlist.Rows(x).Item("Enabled") = "66048"
objSearchResult.GetDirectoryEntry().CommitChanges()
Next
End If
Next
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub
 
Cary Shultz A.D. M said:
You might want to post this to one of the scripting news
groups.....

--
Cary W. Shultz
Roanoke, VA 24012
Microsoft Active Directory MVP

http://www.activedirectory-win2000.com
http://www.grouppolicy-win2000.com



message

Users1.Userlist.Rows(x).Item("Enabled") = "66048"
Click to expand...

Hi,

This is the code for VB script. Maybe you can translate it to your
code!

Cheers
#JORGE#

##################
VB-CODE FOR SETTING A PASSWORD ON A USER OBJECT IN AD

Set xobjACCNTdn = GetObject("LDAP://<distinguished name of user
object>")
xobjACCNTdn.SetPassword(xACCNTPwd)
xobjACCNTdn.SetInfo

##################
VB-CODE FOR SETTING THE (NO) EXPIRE FLAG ON THE PASSWORD

Set xobjACCNTdn = GetObject("LDAP://<distinguished name of user
object>")
xACCNTControlORG = xobjACCNTdn.Get("userAccountControl")
xACCNTControlBIT = 65536
xboolEnable = False ’(password does not expire option is UNCHECKED)
xboolEnable = True ’(password does not expire option is CHECKED)
xACCNTControlCALC = xCalcBitFlags(xACCNTControlORG, xACCNTControlBIT,
xboolEnable)
If xACCNTControlORG <> xACCNTControlCALC Then
xobjACCNTdn.Put "userAccountControl", xACCNTControlCALC
End If

Function xCalcBitFlags(xACCNTControlORG, xACCNTControlBIT,
xboolEnable)
xCalcBitFlags = xACCNTControlORG
If xboolEnable = TRUE Then
xCalcBitFlags = xACCNTControlORG Or xACCNTControlBIT
Else
If xACCNTControlORG And xACCNTControlBIT Then
xCalcBitFlags = xACCNTControlORG Xor xACCNTControlBIT
End If
End If
End Function


##################
 
Back
Top