1. Skip to Menu
  2. Skip to Content
  3. Skip to Footer

Напоминание о смене пароля

 

В операционных системах 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

--------------------------------------- конец скрипта --------------------------------------------

  

Добавить комментарий