Set new Password

[Soundlover4711]

Hi All!

I'd like to use the following scritp to set the password for service accounts in my domain, but how do I have to modify the script to use usernames and passwords without a InputBox, so that I can add the userenames and passwords hardcoded???
__________________________________________________________
UserName = InputBox("What Account Needs To Be Reset?","Change PWD?")
NewPass = InputBox("Type New Password","Change PWD?")

Set objUser = GetObject _
("LDAP://cn="& UserName & ",ou=test,dc=test,dc=com")
objUser.SetPassword NewPass
objUser.setInfo
Wscript.Echo "Password Changed
__________________________________________________________

 

[mrmovie]

UserName = "blaaa"
NewPass = "pasword123"