Thanks for the code and the help. A few questions to make this complete. How do I set the users Fullname, Organization, options such as not having to change password at next login and password never expires?

>
>You can do this with the help of ADSI. The examples below should give you a start:
>

*-- Adds a user
>oDomain = GetObject("WinNT://myServer")
>oUser = oDomain.Create("user", "Crescencio")
>oUser.SetInfo
>oUser.SetPassword("mypassword")
>oUser.SetInfo
>*-- Adds the user to the group
>oGroup = oDomain.GetObject("Group", "Power Users")
>oGroup.Add("WinNT://myServer/Crescencio")

>HTH