> 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_code_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