Hi,

I have written an ASP.NET 2.0 application that uses Active Directory or ADAM
to manage account users - the site has a page that allows people to create an
account (much like any site). The page populates the AD with all the
information and the user account but I am unable to enable the account.
Microsoft has information on how to do that here -->
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ad/ad/example_c
ode_for_creating_a_user.asp
(the sample is for Visual Basic) - and I am unable to complete the bottom
portion of the script. Can some one point me in the right direction - or can
you tell me how I can add a snippet of VBscript code to an ASP.NET page.

I am using the Active DS Type library - not sure why there are multiple ones
(System.DirectoryServices) but it is rather confusing - I seem to accomplish
one thing with one and another with the other (they did have trouble
co-existing however). Anyway my script works very well but I am not able to
access the properties required to enable the account.

Here is a simple version (no error checking) of the code
   Sub BTSub_Click(ByVal sender As Object, ByVal e As EventArgs)
       Dim objUsers As ActiveDs.IADsContainer
       Dim objNewUser As ActiveDs.IADsUser
       objUsers = GetObject("LDAP://OU=Pickupfootball,DC=systemfix,DC=ca")
       objNewUser = objUsers.Create("user", "CN=" & txtFName.Text &
txtLName.Text)
       objNewUser.Put("sAMAccountName", txtFName.Text & txtLName.Text)
       objNewUser.Put("givenName", txtFName.Text)
       objNewUser.Put("sn", txtLName.Text)
       objNewUser.Put("streetAddress", txtEADDR.Text)
       objNewUser.Put("mail", txtEADDR.Text)
       objNewUser.Put("title", txtOCC.Text)
       objNewUser.Put("displayName", txtFName.Text & "." & txtLName.Text)
       objNewUser.Put("description", GNDList.Text & ";" & txtAge.Text)
       objNewUser.SetInfo()
       objNewUser.ChangePassword("", "j1r1mi1")
       
   End Sub

One other thought I had is maybe I can run a VBscript from within the page
after the user is added - is that possible? If so how can I do that?

Thanks
Jeremie Legault
jlegault@systemfix.ca