Set adsUser = GetObject("WinNT://./Имя_Вашего_Пользователя,user") Wscript.Echo "Пароль был изменен : " & CStr( DateAdd("s", -adsUser.Get("MaxPasswordAge"), adsUser.PasswordExpirationDate))