I need to develop a front end aspx code where user accounts can be created, etc. In my research, there are a lots of example on using c++ and very little vb. Therefore, I found this c+ which is already been converted to vb. Now, I need to create a front
end. Does anyone can provide an example for creating the aspx or similar front end web page?
Namespace senior
Public Class Class1
Public Structure UserInfo
Public username As String
Public AccountName As String
Public firstname As String
Public lastname As String
Public address As String
Public email As String
Public displayname As String
Public password As String
Public givenName As String
End Structure
Private newUserInfo As UserInfo
Public Sub New(Rfirstname As String, Rlastname As String, Raddress As String, Remail As String, Rdisplayname As String, Rusername As String, _
RaccountName As String)
newUserInfo.firstname = Rfirstname
newUserInfo.lastname = Rlastname
newUserInfo.address = Raddress
newUserInfo.email = Remail
newUserInfo.displayname = Rdisplayname
newUserInfo.username = Rusername
newUserInfo.AccountName = RaccountName
lions1855
Member
8 Points
61 Posts
ASPX Page And Active Directory
Jun 13, 2012 10:50 PM|LINK
I need to develop a front end aspx code where user accounts can be created, etc. In my research, there are a lots of example on using c++ and very little vb. Therefore, I found this c+ which is already been converted to vb. Now, I need to create a front end. Does anyone can provide an example for creating the aspx or similar front end web page?
Imports System.Collections
Imports System.Data
Imports System.Configuration
Imports System.Linq
Imports System.Web
Imports System.Web.Security
Imports System.Web.UI
Imports System.Web.UI.HtmlControls
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.WebParts
Imports System.Xml.Linq
Imports System.DirectoryServices
Namespace senior
Public Class Class1
Public Structure UserInfo
Public username As String
Public AccountName As String
Public firstname As String
Public lastname As String
Public address As String
Public email As String
Public displayname As String
Public password As String
Public givenName As String
End Structure
Private newUserInfo As UserInfo
Public Sub New(Rfirstname As String, Rlastname As String, Raddress As String, Remail As String, Rdisplayname As String, Rusername As String, _
RaccountName As String)
newUserInfo.firstname = Rfirstname
newUserInfo.lastname = Rlastname
newUserInfo.address = Raddress
newUserInfo.email = Remail
newUserInfo.displayname = Rdisplayname
newUserInfo.username = Rusername
newUserInfo.AccountName = RaccountName
Dim adUserFolder As New DirectoryEntry("LDAP://10.1.0.1/CN=Users;DC=seniorproject,DC=COM", "Administrator@seniorproject.com", "********")
If adUserFolder.SchemaEntry.Name = "container" Then
Dim newUser As DirectoryEntry = adUserFolder.Children.Add("CN=" & newUserInfo.username, "User")
If DirectoryEntry.Exists(newUser.Path) Then
Console.Write("The user:" + newUser.Username & "exists, they will be deleted")
adUserFolder.Children.Remove(New DirectoryEntry(newUser.Path))
End If
newUser.Properties("AccountName").Value = newUserInfo.AccountName
newUser.Properties("givenName").Value = newUserInfo.firstname
newUser.Properties("sn").Value = newUserInfo.lastname
newUser.Properties("displayName").Value = newUserInfo.displayname
newUser.Properties("Address").Value = newUserInfo.address
newUser.Properties("email").Value = newUserInfo.email
'newUser.Properties["Password"].Value = "Y7l11909";
newUser.CommitChanges()
newUser.Invoke("setPassword:", "P@ssword:")
newUser.Properties("userAccountControl").Value = &H200
newUser.CommitChanges()
End If
End Sub
End Class
End Namespace
Qin Dian Tan...
All-Star
113532 Points
12480 Posts
Microsoft
Re: ASPX Page And Active Directory
Jun 15, 2012 07:08 AM|LINK
Hi,
Have a look at this sample: http://www.codeproject.com/Articles/19689/Working-with-Active-Directory-in-VB-NET
Thanks,
If you have any feedback about my replies, please contactmsdnmg@microsoft.com.
Microsoft One Code Framework