|
Компьютерный форум OSzone.net » Серверные продукты Microsoft » Windows Server 2008/2008 R2 » 2008 R2 - Предупреждение о смене пароля |
|
2008 R2 - Предупреждение о смене пароля
|
Старожил Сообщения: 257 |
Профиль | Отправить PM | Цитировать Есть домен на W2K8 R2. Пoлитика паролей предусматривает смену чераз каждие три месяца. Но естественно, об этом никто не помнит и когда пароли подходят к концу машины лочатся, доступ к сети закрывается, в общем, для юзеров наступает армагеддец. Так вот, вопрос. Можно ли создать навязчивое предупреждение о смене пароля? В виде окна, которое появляется за несколько дней до смены пароля и потом периодически открывается, если юзер его просто закрыл и не изменил пароль?
|
|
Отправлено: 14:17, 24-06-2014 |
Ветеран Сообщения: 4677
|
Профиль | Отправить PM | Цитировать Цитата Odisseus:
кол-во дней регламентируется ГП. |
|
------- Отправлено: 15:57, 24-06-2014 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Старожил Сообщения: 257
|
Профиль | Отправить PM | Цитировать Цитата cameron:
|
|
Отправлено: 10:53, 29-06-2014 | #3 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Цитата Odisseus:
|
|
Отправлено: 12:00, 29-06-2014 | #4 |
Старожил Сообщения: 257
|
Профиль | Отправить PM | Цитировать Цитата Iska:
|
||
Отправлено: 13:20, 29-06-2014 | #5 |
Ветеран Сообщения: 4677
|
Профиль | Отправить PM | Цитировать Цитата Odisseus:
Если пользователь баран - то и ваше уведомление ничем не поможет. Предполагаю, что бдет проще реализовать скрипт на пош отправляющий почту с напоминанием. |
|
------- Отправлено: 13:26, 29-06-2014 | #6 |
Старожил Сообщения: 257
|
Профиль | Отправить PM | Цитировать |
Отправлено: 19:48, 29-06-2014 | #7 |
Старожил Сообщения: 257
|
Профиль | Отправить PM | Цитировать Какие будут идеи, народ?
|
Отправлено: 20:49, 04-07-2014 | #8 |
Новый участник Сообщения: 5
|
Профиль | Отправить PM | Цитировать Odisseus
Гугел все давно придумал |
Отправлено: 12:16, 23-09-2014 | #9 |
Старожил Сообщения: 257
|
Профиль | Отправить PM | Цитировать Цитата clevergod:
Но надо прояснить по скрипту кое-что. Итак, весь скрипт тут: strComputer = "." REM ======================================== REM Проверка версии операционной системы. REM Если Windows 7, то действуем дальше REM ======================================== Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colOperatingSystems = objWMIService.ExecQuery _ ("Select * from Win32_OperatingSystem") For Each objOperatingSystem in colOperatingSystems Select Case Left(objOperatingSystem.Caption,19) Case "Microsoft Windows 7" REM ======================================== REM Доменные политики и количество дней REM ======================================== Dim oDomain Dim oUser Dim maxPwdAge Dim numDays Dim warningDays warningDays = 15 ' порог срабатывания уведомления Set LoginInfo = CreateObject("ADSystemInfo") Set objUser = GetObject("LDAP://" & LoginInfo.UserName & "") strDomainDN = UCase(LoginInfo.DomainDNSName) strUserDN = LoginInfo.UserName Set oDomain = GetObject("LDAP://" & strDomainDN) Set maxPwdAge = oDomain.Get("maxPwdAge") REM ======================================== REM Считаем сколько дней осталось REM ======================================== numDays = CCur((maxPwdAge.HighPart * 2 ^ 32) + _ maxPwdAge.LowPart) / CCur(-864000000000) REM WScript.Echo "Maximum Password Age: " & numDays ' это для дэбага REM ======================================== REM Определяем когда менялся пароль REM ======================================== Set oUser = GetObject("LDAP://" & strUserDN) whenPasswordExpires = DateAdd("d", numDays, oUser.PasswordLastChanged) fromDate = Date daysLeft = DateDiff("d",fromDate,whenPasswordExpires) REM WScript.Echo "Password Last Changed: " & oUser.PasswordLastChanged if (daysLeft < warningDays) and (daysLeft > -1) then Msgbox "Число дней до истечения срока действия пароля: " & daysLeft & "." & chr(13) & "Пароль действительный до " & whenPasswordExpires & chr(13) & chr(13) & "Чтобы изменить пароль, нажмите клавиши " & chr(13) & "CTRL+ALT+DEL и выберите 'Сменить пароль...'", 0, "Рекомендуется изменить ваш пароль" End if REM ======================================== REM Конец проверки версии ОС REM ======================================== End Select Next REM ======================================== REM Зачистка REM ======================================== Set oUser = Nothing Set maxPwdAge = Nothing Set oDomain = Nothing Set LoginInfo = CreateObject("ADSystemInfo") Set objUser = GetObject("LDAP://" & LoginInfo.UserName & "") strDomainDN = UCase(LoginInfo.DomainDNSName) strUserDN = LoginInfo.UserName Set oDomain = GetObject("LDAP://" & strDomainDN) Set maxPwdAge = oDomain.Get("maxPwdAge") Цитата cameron:
|
||
Отправлено: 09:10, 24-09-2014 | #10 |
Участник сейчас на форуме | Участник вне форума | Автор темы | Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
2008 - [решено] Не выключается сложность пароля и не включается смена пароля по желанию пользователя | LEGI0N | Windows Server 2008/2008 R2 | 3 | 26-12-2013 23:06 | |
Доступ - Проблема при смене пароля в Windows 7 (домен - 2003) | Gavrentii | Microsoft Windows NT/2000/2003 | 0 | 27-08-2013 17:24 | |
Службы - Как убрать предупреждения о смене пароля в windows 8 | face control | Microsoft Windows 8 и 8.1 | 1 | 20-07-2013 09:58 | |
проблема при смене пароля юзера в домене | klif.sys | Microsoft Windows NT/2000/2003 | 8 | 02-07-2009 11:52 | |
Сброс почтового пароля после изменения доменного пароля | Gangabass | Microsoft Windows NT/2000/2003 | 4 | 27-01-2009 06:47 |
|