Active directory 'de kullanıcı şifresi değiştirme

Herkese merhaba,

Vb.net ile bir program hazirliyorum program ldaptaki kullanıcıyı şifre verip ve user must change password at next logon özelliğini aktif etmeye çalışıyorum.

şifre değiştirmeyi yaptım fakat bir türlü user must change password at next logon özelliğini aktif hale getiremedim nette çok araştırdım ama bir türlü bulamadım yardımcı olabilirseniz sevinirim.

nette buldugum kodlardan biri

---

   Dim des As New DirectoryEntry("LDAP://" & DomainTX.Text & "/" & DCTx.Text, DmKullaniciTX.Text, DmSifreTx.Text, AuthenticationTypes.Secure)

        Try

            Dim dss As New DirectorySearcher(des)

            Dim mySearchResultColls As SearchResultCollection

            Dim mySearchResults As SearchResult

            dss.Filter = "(SAMAccountName=" & kisi & ")"

            mySearchResultColls = dss.FindAll()

            Dim result As SearchResult = dss.FindOne()

            If mySearchResultColls.Count <> 1 Then MsgBox("Birden fazla kişi için işlem yapılmaz", MsgBoxStyle.Critical, "Hata") : Exit Sub

 

            For Each mySearchResults In mySearchResultColls

                mySearchResults.GetDirectoryEntry.Properties("pwdLastSet").Value = 0

                mySearchResults.GetDirectoryEntry.CommitChanges()

            Next

            MsgBox("must eklendi") 'islem tamam

        Catch ex As Exception

            MsgBox("Reset Failed: " + ex.Message)

--

 

bu kod normalde çalışmakta yani kulllanıcı ile giriş yaptığımda şifre değişiklik ekranı gelmiyor  fakat pwdlastset yerine
mySearchResult.GetDirectoryEntry.Invoke("SetPassword", TextBox1.Text)
mySearchResult.GetDirectoryEntry.CommitChanges()

yazınca kullanıcıya şifre veriyor acil yardımcı olursanız çok sevinirim teşekkürler