Чтобы создать пользователя с неограниченным сроком действия пароля, в конец скрипта добавить еще строки:
Код:

Const ADS_UF_DONT_EXPIRE_PASSWD = &h10000
objUserFlags = objUser.Get("UserFlags")
objPasswordExpirationFlag = objUserFlags OR ADS_UF_DONT_EXPIRE_PASSWD
objUser.Put "userFlags", objPasswordExpirationFlag
objUser.SetInfo
А если пользователи в группе администраторов, то смысла в галке "Запретить пользователю менять пароль" нет.