اضافه کردن کاربر جدید در اکتیو دایرکتوری با asp.net

سلام
لطفا این کد رو ببینید. پسورد رو نمیگیره. چرا ؟
<span dir=ltr>

[quote]Imports System.DirectoryServices



Public Class WebForm1

    Inherits System.Web.UI.Page



#Region " Web Form Designer Generated Code "



    'This call is required by the Web Form Designer.

    <System.Diagnostics.DebuggerStepThrough(&#4  1;> Private Sub InitializeComponent()



    End Sub



    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init

        'CODEGEN: This method call is required by the Web Form Designer

        'Do not modify it using the code editor.

        InitializeComponent()

    End Sub



#End Region



    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'Put user code to initialize the page here

        Dim Path As String = "ldap://server"

        Dim Domain As String = "prd.com"

        Dim UserName As String = "test"

        Dim pwd As String = "testpass"



        Dim DE As DirectoryEntry = New DirectoryEntry(Path, Domain & "\" & UserName, pwd)

        Dim OU As DirectoryEntry = DE.Children.Find("cn=users")

        Dim NewUser As DirectoryEntry = OU.Children.Add("cn=NewUser", "user")

        NewUser.Properties("SAMAcountName").Value = "newuser"

        NewUser.Properties("userprincipalname").Ad  d("newuser@prd.com")

        NewUser.Properties("givenname").Add("F  irstName-test")

        NewUser.Properties("initials").Add("nu  ")

        NewUser.Properties("sn").Add("lastname-test")

        NewUser.Properties("displayname").Add(  "test user")

        NewUser.Properties("description").Add(  "test user added")

        NewUser.CommitChanges()



        'Newuser.Password = "12345"

        'newuser.Invoke("SetPassword", "12345")

        'Dim userflags As Object = newuser.Properties("UserAcountControl")

        'newuser.Properties("UserAcountControl").V  alue = &H220

        'newuser.Properties("pwdlastset").Value = 0

        NewUser.CommitChanges()



    End Sub



End Class[/quote]

</span>
برای Newuser.Password = "12345" هیچ error ی نمی گیره واما کاری هم انجام نمیده . !!!!!!!!!!!

http://www.codeproject.com/aspnet/ac...rectoryuse.asp