By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
457,724 Members | 859 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 457,724 IT Pros & Developers. It's quick & easy.

ADSI - Trying to enable a user - the user add works very well

P: n/a
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/de...ing_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
Thanks
Jeremie Legault
jl******@systemfix.ca
Nov 23 '05 #1
Share this question for a faster answer!
Share on Google+

This discussion thread is closed

Replies have been disabled for this discussion.