[Petya V4sechkin]

изменению свойств пользователей "Сменить пароль при первом входе в систему" и "Срок действия пароля не ограничен"

С помощью ADSI, для локальных учеток провайдер WinNT:
User Must Change Password at Next Logon (WinNT Provider)
Password Never Expires (WinNT Provider)

Например, для учетки Test установка флажка "Потребовать смену пароля при следующем входе в систему":

Код:

Set usr = GetObject("WinNT://./Test,user")
usr.PasswordExpired = 1
usr.SetInfo

Установка флажка "Срок действия пароля не ограничен":

Код:

Set usr = GetObject("WinNT://./Test,user")
usr.UserFlags = usr.UserFlags Or &H10000
usr.SetInfo

Учтите, что эти флажки взаимоисключающие.

Для доменных учеток провайдер LDAP:
User Must Change Password at Next Logon (LDAP Provider)
Password Never Expires (LDAP Provider)