Скрипт для windows, выдает сообщение если до смены пароля остается N дней.

13.12.2017 11:17:04

Скрипт поможет предупреждать пользователей RDP, что им пора бы сменить пароль

Файл: reminder.VBS

 
iMinDays = 7

strComputer = "." 
Set wshNetwork = CreateObject("WScript.Network") 
strUser = wshNetwork.Username 
Set objUser = GetObject("WinNT://" & strComputer & "/" & strUser) 
      intPasswordAge = objUser.PasswordAge 
      maxPasswordAge = objUser.maxPasswordAge 
iCurrDays = int((maxPasswordAge-intPasswordAge)/86400)




if(iMinDays > iCurrDays) then
MsgBox "Внимание Ваш пароль станет недействительным через: " & iCurrDays & " дня."& chr(13) & chr(13) &"Сейчас откроется окно, в нем нужно нажать сменить пароль и ввести новый пароль. " 
set objShell = CreateObject("shell.application")
objshell.WindowsSecurity
End if


Пометки: VBS
Яндекс.Метрика