Ten script NEMENI heslo ale vrati ti stare a nove, to pak predas jak jsem psal vyse - staci doplnit to co jsem psal vyse:
strUserName = "JohnDoe"
arrPasswords = IEChangePwd( strUserName )
WScript.Echo "Change password for : " & strUserName & vbCrLf _
& "The old password was : " & arrPasswords(0) & vbCrLf _
& "The new password is : " & arrPasswords(1)
Set objUser = GetObject("LDAP://cn=XX,ou=YY,dc=ZZ,dc=com")
objUser.ChangePassword arrPasswords(0),arrPasswords(1)
MP
