sanaz_
پنج شنبه 22 مرداد 1383, 19:10 عصر
سلام
لطفا این کد رو ببینید. پسورد رو نمیگیره. چرا ؟
<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()> 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").Add("newuser@prd.com")
NewUser.Properties("givenname").Add("FirstName-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").Value = &H220
'newuser.Properties("pwdlastset").Value = 0
NewUser.CommitChanges()
End Sub
End Class[/quote]</span>
برای Newuser.Password = "12345" هیچ error ی نمی گیره واما کاری هم انجام نمیده . !!!!!!!!!!!
لطفا این کد رو ببینید. پسورد رو نمیگیره. چرا ؟
<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()> 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").Add("newuser@prd.com")
NewUser.Properties("givenname").Add("FirstName-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").Value = &H220
'newuser.Properties("pwdlastset").Value = 0
NewUser.CommitChanges()
End Sub
End Class[/quote]</span>
برای Newuser.Password = "12345" هیچ error ی نمی گیره واما کاری هم انجام نمیده . !!!!!!!!!!!