Gene
Mon Feb 21 06:01:50 CST 2005
NOTE: this is an example, and is not a complete script--you should test
thouroghly before using this. Also, you need to trap any errors that might
happen--mistyped user name, etc.
here is a link to Script Center covering passwords
http://www.microsoft.com/technet/scriptcenter/scripts/ad/users/pwds/default.mspx
here is the simple way to reset password for a user, use the input box
function to populate the user name
Dim strUsername 'define the variable for user name
Dim objUser 'define the object
strUsername = InputBox(prompt[, title][, default][, xpos][, ypos][,
helpfile, context])
Set objUser = GetObject("WinNT://NETBIOSDOMAINNAME/" & strUsername &
",user")
objUser.SetPassword "password"
Wscript.echo "Changed Password for: " & strUsername
Set objUser = Nothing
"Me" <z@z.com> wrote in message
news:db7j1156qijq1jgnokqd2jr0cjf8s51qj7@4ax.com...
> On Sun, 20 Feb 2005 15:35:52 -0800, Me <z@z.com> wrote:
>
> >
> > I'm trying to make a script so that the members of our helpdesk can
> >reset users passwords without have ADUC. Not easy for a rookie such
> >as myself. I would have thought there would be a ton of utilites /
> >scripts out there to do this in AD?? I did find one script online by
> >Brian Anderson but it doesn't seem to work correctly and so far my
> >lame attempts to fix it aren't helping! I don't need anything fancy
> >except I would like it to be as "easy and foolproof" as possible!
> >Heck, even a premade utility like those available for Novell would be
> >fine. I do have a small batch file using dsmod but the exe is needed
> >and it's not very user friendly.
> >
> > Any solutions / ideas would be most welcome!
>
>
> Oh yea.... I do know I could use... NET USER but I was hoping for
> something a little more elegant. :)