Binaryworld - Creating User Accounts with Directory Services ... [ VB.net -> Active Directory ]

Public Function <webmethod()> RegisterUser(byval sFirstName, byval sLastName, byval sEmail, byval sUserName, byval sPassword) as string

  try
  Dim sRTN As String
  Dim dsUser As DirectoryEntry
  dim cnEntry as DirectoryEntry=new DirectoryEntry("LDAP://CN=USERS, DC=MYDOMAIN,DC=LOCAL")

  dsUser = cnEntry.Children.Create("CN=" & sUserName, "user")

  With dsUser.Properties
    .Item("sAMAccountName").Value = sUserName
    .Item("sn").Value = sLastName
    .Item("givenName").Value = sFirstName
    .Item("mail").Value = sEmail
  End With

  With dsUser
    .commitChanges()
    .NativeObject.setPassword (sPassword)
    .NativeOjbect.accountdisabled = False
    .commitChanges()
  End With

  return "OK"

  catch
  return err.number & "-" & err.description
  end try

End Function