Напоминание о смене пароля
В операционных системах Windows XP и 2003, когда подходило время для смены пароля, пользователь получал уведомление в виде отдельного диалогового окна. В Windows Vista и более поздних это оповещение убрали, заменив его всплывающим окном в панеле задач, которое пропадает достаточно быстро (5 секунд) и зачастую пользователь просто не успевает его увидеть.
Данную проблему можно решить только одним способом - запихнув нужный скрипт в политику User Configuration - Policies - Windows Settings - Scripts (Logon/Logoff) - Logon.
А вот и сам скрипт, который я предлагаю вам использовать для этой задачи:
--------------------------------------- начало скрипта --------------------------------------------
Const PWDAge = 26 'укажите кол-во дней, по истичению которых пользователю будет выдано оповещение
Const PWDExpiries = 30 'укажите срок действия паролей пользователей в вашем домене
Const MsgTitle = "Напоминание о смене пароля"
Const MsgPart1 = "Ваш текущий пароль устаревает через "
Const MsgPart2 = " дня."
Const MsgPart3 = "Пожалуйста, не забудьте сменить ваш пароль до "
Const MsgPart4 = "."
Dim oEnv : Set oEnv = CreateObject( "WScript.Shell" ).Environment( "PROCESS" )
Dim oADS : Set oADS = CreateObject( "ADSystemInfo" )
Dim objUser, strPWDate, intPWAge
strPWDate = GetObject( "LDAP://" & oEnv( "USERDNSDOMAIN" ) & "/" & oADS.UserName ).PasswordLastChanged
intPWAge = DateDiff( "d", strPWDate, Now )
If intPWAge > PWDAge And intPWAge <= PWDExpiries Then
MsgBox MsgPart1 & PWDExpiries - intPWAge & MsgPart2 & vbCrLf & MsgPart3 & strPWDate + PWDExpiries & MsgPart4, VbOkOnly, MsgTitle
End If
--------------------------------------- конец скрипта --------------------------------------------