Posted August 6, 200619 yr Dim UserNameDim UserDomainUserDomain = InputBox("Enter the user's login domain name")UserName = InputBox("Enter the user's login name")Set User = GetObject("WinNT://"& UserDomain &"/"& UserName &"",user)Dim NewPasswordNewPassword = InputBox("Enter new password")Call User.SetPassword(NewPassword)If err.number = 0 Then Wscript.Echo "The password change was successful."Else Wscript.Echo "The password change failed!"End if
Please sign in to comment
You will be able to leave a comment after signing in
Sign In Now